انتقال آيتم در بين listbox

[smhzkk61]

با سلام خدمت دوستان
مي خواستم با يه تكه كد هر آيتمي كه در Listbox1 انتخاب كردم به list box2 منتقل بشه
ممنون متشكر

[Dr.Bronx]

خدمت شما دوست عزیز

For i = List1.ListCount - 1 To 0 Step -1
List2.AddItem (List1.List(i))
Next i

فقط Sorted لیست 2 رو روی True قرار بدید

موفق و موید باشید

[smhzkk61]

تشكر مي كنم از دوست عزيزم
مشكلي كه هست اينه كه تكه كدي نوشتيد كل محتويات listbox1 را در listbox2 كپي مي كند
برنامه كه مي خوام بايد به اين صورت باشه به ازاي هر آيتمي كه انتخاب كردم از listbox1 برداشته (cut) شود و به listbox2 منتقل شود

[IamOverlord]

سلام دوست عزیز!:چشمک:
کد انتقال:

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem (List1.List(i))
End If
Next i
End Sub

[behroz1992]

دوست عزیز این هم امتحان کن روی فرمت یک command بذار ودو تا listbox و وقتی عنصر فعال را انتخاب کردی روی command کلیک کن :

Private Sub Command1_Click()
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem (List1.ListIndex)
End Sub

[site-111]

Private Sub List1_Click()
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem (List1.ListIndex)
End Sub