[سعود]

PHP كود :

Private Function ro(ByRef lst1 As List(Of String)) As List(Of String)
        Dim lst2 As New List(Of String)
        Do Until lst2.Count = lst1.Count
            Dim i As Integer = Int(Rnd() * lst1.Count)
            Dim t As String = lst1(i)
            If lst2.Contains(t) = False Then
                lst2.Add(t)
            End If
        Loop
        Return lst2
    End Function
   


السلام عليكم ورحمة الله و بركاته
بعد البهدلة مع سي++ حبيت اطيب خاطري مع المحبوبة الى قلبي vb.net.
لا يوجد تعقيد ابدا مع فيجوال بيسك ولا حتى سي شارب ولا توجد انواع للنص او تقسيمات اما سي++ فـــــــــــــــخلاص فهمتوها.

والتالي هو اجراء الزر:

PHP كود :

       Dim lst As New List(Of String)
        For Each h As String In ListBox1.Items
            lst.Add(h)
        Next
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(ro(lst).ToArray)
        lbl.Text = ListBox1.Items.Count
        lst = Nothing 


واللي يريد المثال

sarab فك السر