منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : محتاج مساعده طلب بسيط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه
ادوات الليست بوكس الللي تحت الازرار هي لمراقبة محتوى القوائم الداخلية(ان صحت التسمية)
PHP كود :
Public Class Form1
    Dim Arr
() As String
    Dim lst 
As New List(Of String)
 
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(ArrTo (UBound(Arr) - 1)
 
           larr.Items.Add(Arr(m))
 
       Next

    End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles 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