[Mohamed20]

(09-04-19, 09:18 PM)بدري كتب : هذا الكود يحضر عدد عشوائي من المصفوفه

كود :

       ListBox1.Items.Clear()
       Dim str = New String() {"Test1", "Test2", "Test3", "Test4"}
       Dim test = 3
       If test > str.Count Then
           MsgBox("العدد المطلوب أكبر من العناصر الموجوده")
           Exit Sub
       End If
       Dim lst As New List(Of String)
       Dim random = New Random()
       For i = 0 To test - 1
           Do
               Dim a = random.Next(0, str.Count)
               If Not lst.Contains(str(a)) Then
                   lst.Add(str(a))
                   Exit Do
               End If
           Loop
       Next
       ListBox1.Items.AddRange(lst.ToArray)

شكرأ اخي