انتقال داده انتخاب شده از لیست باکس اول به لیست باکس دوم.

[kama2222]

انتقال داده انتخاب شده از لیست باکس اول به لیست باکس دوم.

[r_oscar2007]

List2.AddItem List1.List(List1.ListIndex)

[r0ot$harp]

دوست عزیز اگر فقط می خواهید که داده ها از لیست اولی به داخل دومی انتقال پیدا کنه از این کد استفاده کنید :

Private Sub List1_Click()

    List2.AddItem List1.List(List1.ListIndex)

End Sub

و اگر می خواهید اون آیتم انتخاب شده از لیست اول حذف و به لیست دوم انتقال پیدا کنه از کد زیر استفاده کنید :

Private Sub List1_Click()

    List2.AddItem List1.List(List1.ListIndex)

    List1.RemoveItem (List1.ListIndex)

End Sub

باتشکر احسان