31-05-20, 02:48 AM
31-05-20, 05:50 AM
ادوات الليست بوكس الللي تحت الازرار هي لمراقبة محتوى القوائم الداخلية(ان صحت التسمية)
PHP كود :
Public Class Form1
Dim Arr() As String
Dim lst As New List(Of String)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ReDim Arr(ListBox1.Items.Count)
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
Arr(i) = ListBox1.Items(i).ToString
Next
larr.Items.Clear()
For m = LBound(Arr) To (UBound(Arr) - 1)
larr.Items.Add(Arr(m))
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
lst.Clear()
For Each h As String In ListBox1.Items
lst.Add(h)
Next
llst.Items.Clear()
For Each h As String In lst
llst.Items.Add(h)
Next
End Sub
End Class