منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج مساعده طلب بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج مساعده طلب بسيط (/showthread.php?tid=35044)



محتاج مساعده طلب بسيط - اليوم السابع - 31-05-20

لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه


RE: محتاج مساعده طلب بسيط - سعود - 31-05-20

ادوات الليست بوكس الللي تحت الازرار هي لمراقبة محتوى القوائم الداخلية(ان صحت التسمية)
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