10-04-21, 01:10 AM
السلام عليكم ورحمة الله
لدي ليست بوكس 1 وليست بوكس 2 ولدي تيكست بوكس
اريد الاتي عند وضع قيمة بالتيكست بوكس اذا كانت القيمة موجودة باليست بوكس 1 يتم نقل العناصر بدء من القيمة الموجودة الي اخر العناصر باليست واحد الي اليست 2
محاولتي ولم اصل لنتيجة
لدي ليست بوكس 1 وليست بوكس 2 ولدي تيكست بوكس
اريد الاتي عند وضع قيمة بالتيكست بوكس اذا كانت القيمة موجودة باليست بوكس 1 يتم نقل العناصر بدء من القيمة الموجودة الي اخر العناصر باليست واحد الي اليست 2
محاولتي ولم اصل لنتيجة
كود :
Private Sub BT_ADDITEM_Click(sender As Object, e As EventArgs) Handles BT_ADDITEM.Click
'كود اضافة العناصر
For i As Integer = 0 To 20
ListBox1.Items.Add("good" & i)
Next
End Sub
Private Sub BT_ITEMFOUND_Click(sender As Object, e As EventArgs) Handles BT_ITEMFOUND.Click
Dim foo As String
Dim index As Integer = 0
foo = TextBox1.Text
ListBox2.Items.Clear()
'كود البحث وتحديد عنصر ونقل القيمة المساوية والاكبر الي اليست 2
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i).ToString = foo Then
index = i
End If
If i >= index Then
ListBox2.Items.Add(ListBox1.Items(i).ToString)
End If
Next
'MsgBox(index)
End Sub