تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2
#1
السلام عليكم ورحمة الله 


لدي ليست بوكس 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
الرد
تم الشكر بواسطة:
#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
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
الرد
تم الشكر بواسطة: محمد اسماعيل , محمد اسماعيل , Ronald
#3
(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

الكود يعمل جيدا جزاك الله كل خير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعريب عناصر جدول في الريتش بوكس _ مرفق _( كود _ مثال _صورة ) zinom 5 176 28-11-21, 09:52 PM
آخر رد: zinom
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 104 28-11-21, 12:52 PM
آخر رد: سعود
  [سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox alims 10 371 24-11-21, 02:01 PM
آخر رد: alims
  ممكن شرح اضافة مشغل mpv بداخل الفورم masport tv 6 371 19-11-21, 03:34 AM
آخر رد: معاند الحظ
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 326 16-11-21, 04:04 AM
آخر رد: ابو روضة
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 769 14-11-21, 03:47 PM
آخر رد: kebboud
  اضافة ادوات لفيجوال بيسك خالد20 4 336 09-11-21, 09:49 PM
آخر رد: خالد20
  [سؤال] سؤال في تكست بوكس حسن الجلب 1 143 08-11-21, 12:47 PM
آخر رد: Anas Mahmoud
  سؤال : هل يمكن اضافة فاصلة الوف علوية ( اعلى الارقام ) 00. 000'000'3 mh66 3 254 06-11-21, 06:12 PM
آخر رد: ابو انس
  تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس ismaeel 3 285 16-10-21, 05:42 PM
آخر رد: ismaeel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم