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

[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


باتشکر احسان