انتقال ایتم های لیست باکس

[mohammad1314]

سلام.
من میخوام با زذن یک دکمه در برنامه ، تم (http://www.parsiland.com/)ام آیتم (http://www.parsiland.com/) های listbox1 به listbox2 منتقل بشن . ممنون میشم راهنماییم کنین.

[Reza,M]

Dim i As Integer
Dim s As String
For i = 0 To ListBox1.Items.Count - 1
s = ListBox1.Items.Item(i)
ListBox2.Items.Add(s)
Next
ListBox1.Items.Clear()

[xxnagin]

سلام

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 0 To 20
ListBox1.Items.Add("item " & i)
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ListBox1.Items.Count > 0 Then
For i = 0 To ListBox1.Items.Count
ListBox2.Items.Add("item " & i)
ListBox1.Items.Clear()
Next
End If
End Sub
End Class

[مهرداد صفا]

سلام

Listbox2.Items.AddRange(Listbox1.Items)