[VB.NET] اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 (/showthread.php?tid=38250) |
اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 - محمد اسماعيل - 10-04-21 السلام عليكم ورحمة الله لدي ليست بوكس 1 وليست بوكس 2 ولدي تيكست بوكس اريد الاتي عند وضع قيمة بالتيكست بوكس اذا كانت القيمة موجودة باليست بوكس 1 يتم نقل العناصر بدء من القيمة الموجودة الي اخر العناصر باليست واحد الي اليست 2 [attachment=26613] محاولتي ولم اصل لنتيجة كود : Private Sub BT_ADDITEM_Click(sender As Object, e As EventArgs) Handles BT_ADDITEM.Click RE: اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 - الماجيك مسعد - 10-04-21 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 RE: اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 - محمد اسماعيل - 10-04-21 (10-04-21, 01:55 AM)الماجيك مسعد كتب : Private Sub BT_ADDITEM_Click(sender As Object, e As EventArgs) Handles BT_ADDITEM.Click الكود يعمل جيدا جزاك الله كل خير |