29-06-22, 11:07 AM
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 فك السر