منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعديل علي كود في الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل علي كود في الليست بوكس (/showthread.php?tid=32442)

تعديل علي كود في الليست بوكس - اليوم السابع - 09-12-19

اخواتي انا عندي بالفورم كما هو موضح 2 ليست بوكس يستقبلوا بياانات من ملف تكست 
اريد عند عمل سليكت علي عنصر في ليست بوكس 1 يتم عمل سليكت ايضا علي ما يقابله من الليست بوكس 2 
بمعني لو عملت سليكت علي ليست بوكس 1 علي العنصر رقم 3 يتم عمل سليكت علي العنصر رقم 3 ايضا في ليست بوكس 2 
جربت هذا الكود ولكن اخطاءت به 
كود :
If ListBox1.SelectedItem Then
           ListBox3.SelectedIndex = ListBox1.SelectedIndex

       End If

           TextBox2.Text = ListBox1.SelectedItem
           TextBox3.Text = ListBox3.SelectedItem



RE: تعديل علي كود في الليست بوكس - علي بنيان - 09-12-19

كودك صحيح وشغال بس ماعرف الحدث الي مخليه , تأكد من هذا الكود

PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.SelectedIndex = ListBox1.SelectedIndex
    End Sub 



اخي دائما افكر بنوع البرامج الي تطورها ودائما اشوف بيها حساب وايميل وباسورد وهذا الشيء يخليني افكر بخصوصية المستخدمين الي بالمستقبل ممكن يستخدمون برنامج حضرتك

RE: تعديل علي كود في الليست بوكس - اليوم السابع - 09-12-19

(09-12-19, 06:03 AM)علي بنيان كتب : كودك صحيح وشغال بس ماعرف الحدث الي مخليه , تأكد من هذا الكود

PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox2.SelectedIndex = ListBox1.SelectedIndex
    End Sub 



اخي دائما افكر بنوع البرامج الي تطورها ودائما اشوف بيها حساب وايميل وباسورد وهذا الشيء يخليني افكر بخصوصية المستخدمين الي بالمستقبل ممكن يستخدمون برنامج حضرتك

شكرا لك اخي هحاول اعيد النظر في الكود ثانيا 
بالنسبه لي البرامج في انا اشتغل علي برنامج يساعدني بالتسويق مثل برامج الادشير و am control و غيرها ممكن حضرتك فهم المقصود لي شاهدت شرح لمثل هذه البرامج علي اليوتيوب

RE: تعديل علي كود في الليست بوكس - ابو روضة - 09-12-19

PHP كود :
  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub 
 الكود من الاخ

3booody

RE: تعديل علي كود في الليست بوكس - 3booody - 09-12-19

مثل ما تفضل به الاخوان الافاضل (ابو روضة , [b]علي بنيان) اسأل الله ان يبارك لهم عملهم ويديم مساعدتهم للجميع[/b]

[b]واضافة للموضوع حتى لايبقى سؤال لك[/b]
[b]اذا اردت تربط الاثنين معآ  لان الكود السابق يعمل على الليست الاولى فقط بينما اذا غيرت التحديد في اللست الثانية لاتتغير الاولى[/b]
[b]غير الكود بهذا الشكل وسيعمل معك ان شاء الله[/b]


كود :
Private Sub ListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles ListBox1.SelectedIndexChanged, ListBox2.SelectedIndexChanged
       On Error Resume Next
       If sender Is ListBox1 Then
           ListBox2.SelectedIndex = ListBox1.SelectedIndex
       Else
           ListBox1.SelectedIndex = ListBox2.SelectedIndex
       End If
   End Sub

[b]الغاية من السطر On Error Resume Next[/b]
[b]حتى اذا كانت عدد العناصر اكبر من الثانية مايطلق البرنامج استثناء (خطأ)[/b]