منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2

السلام عليكم ورحمة الله

لدي ليست بوكس 1 وليست بوكس 2 ولدي تيكست بوكس

اريد الاتي عند وضع قيمة بالتيكست بوكس اذا كانت القيمة موجودة باليست بوكس 1 يتم نقل العناصر بدء من القيمة الموجودة الي اخر العناصر باليست واحد الي اليست 2

[attachment=26613]

محاولتي ولم اصل لنتيجة

كود :

  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

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
Dim mg As Integer
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i).ToString = foo Then
mg = i
Exit For
End If
Next
For i = mg To ListBox1.Items.Count - 1
ListBox2.Items.Add(ListBox1.Items(i).ToString)
Next
End Sub

(10-04-21, 01:55 AM)الماجيك مسعد كتب : [ -> ]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
Dim mg As Integer
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i).ToString = foo Then
mg = i
Exit For
End If
Next
For i = mg To ListBox1.Items.Count - 1
ListBox2.Items.Add(ListBox1.Items(i).ToString)
Next
End Sub

الكود يعمل جيدا جزاك الله كل خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

الماجيك مسعد

محمد اسماعيل