ListBox

[gakayay]

ListBox1 deki veriyi ListBox2 e alıyorum ama isteği ListBox3 veriyide aynı anda ListBox4 alsın yardımlarınızı için şimdiden teşekkür

 

[veyselemre]

Aşağıdaki iki prosedürünüzü değiştirin, deneyin.
[vb:1:0622cb1c01]Private Sub AKTAR_Click()
Dim i As Integer
For i = o To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem (ListBox1.List(i))
ListBox1.RemoveItem i
ListBox1.Selected(i) = False
ListBox4.AddItem (ListBox3.List(i))
ListBox3.RemoveItem i
ListBox3.Selected(i) = False
End If
Next i
End Sub
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
ListBox1.AddItem (ListBox2.List(i))
ListBox2.RemoveItem (i)
ListBox2.Selected(i) = False
ListBox3.AddItem (ListBox4.List(i))
ListBox4.RemoveItem (i)
ListBox4.Selected(i) = False
End If
Next i
End Sub[/vb:1:0622cb1c01]