VB de listboxlar arası geçiş işlemleri..Deneyinn...

[ozlem16]

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

Private Sub Command2_Click()
a = 0
For i = 0 To List2.ListCount - 1
If List2.Selected(i - a) Then
List1.AddItem List2.List(i - a)
List2.RemoveItem i
a = a + 1
End If
Next
End Sub

Private Sub Command3_Click()
For i = 1 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List1.Clear
End Sub

Private Sub Command4_Click()
For i = 1 To List2.ListCount - 1
List1.AddItem List2.List(i)
Next
List2.Clear
End Sub

 

[ibrahimkaya396]

komutlar için tesekkür ederim.....