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

اخواتي انا عندي بالفورم كما هو موضح 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

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

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

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

(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 و غيرها ممكن حضرتك فهم المقصود لي شاهدت شرح لمثل هذه البرامج علي اليوتيوب

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

مثل ما تفضل به الاخوان الافاضل (ابو روضة , [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]

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

اليوم السابع

علي بنيان

اليوم السابع

ابو روضة

3booody