[ابو روضة]

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

إخوتى أريد تحديد أو عمل سيلكت على ListBox2 حينما أقوم بعمل سيلكت على ListBox1

بحيث حينما أضغط على ListBox1 يتم كتابة موعد الصلاة مثلا الفجر الساعة كذا

لآنى بجلب أوقات الصلاة من على الانترنت فى ListBox1  أما  ListBox2  كاتب فيهم الأسماء يدوياً

لكن يتم كتابة الوقت فقط.

وأنا أريد كما قولت موعد صلاة "ويأخذ الأسم من  ListBox2 "  ....  

[3booody]

السلام عليكم ورحمة الله وبركاته
اذا الترتيب متساوي ممكن هشكل

كود :

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub

[ابو روضة]

(27-11-19, 10:55 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته
اذا الترتيب متساوي ممكن هشكل

كود :

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub

تسلم أخى ربنا يكرمك فعلاً نجحت

PHP كود :

ListBox2.SelectedIndex = ListBox1.SelectedIndex
        Label1.Text = "موعد صلاة " & ListBox2.SelectedItem & "   " & ListBox1.SelectedItem 


هل ينفع أربط اى صوت به عند دخول الوقت ؟

[3booody]

نعم ممكن عن طريق مكتبة تشغيل ملفات الصوت التي ارفقتها لك بمشروع سابقآ : تشغل مثلآ اذان
نفس فكرة المنبه

---

تفضل اخي عملتك هالطريقة توضيحية
بس حاول تتأكد من قيمة t اذا تتوافق مع الاوقات التي تحملها

كود :

Dim t As String = ""
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       t = TimeOfDay.ToString("h:mm tt")
       Select Case t
           Case ListBox1.Items(0)
               'حان موعد اذان الفجر
           Case ListBox1.Items(1)
               'حان موعد اذان الظهر
           Case ListBox1.Items(2)
               'حان موعد اذان العصر
           Case ListBox1.Items(3)
               'حان موعد اذان المغرب
           Case ListBox1.Items(4)
               'حان موعد اذان العشاء
       End Select
   End Sub

[ابو روضة]

(27-11-19, 11:29 PM)3booody كتب : نعم ممكن عن طريق مكتبة تشغيل ملفات الصوت التي ارفقتها لك بمشروع سابقآ : تشغل مثلآ اذان
نفس فكرة المنبه

---

تفضل اخي عملتك هالطريقة توضيحية
بس حاول تتأكد من قيمة t اذا تتوافق مع الاوقات التي تحملها

كود :

Dim t As String = ""
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       t = TimeOfDay.ToString("h:mm tt")
       Select Case t
           Case ListBox1.Items(0)
               'حان موعد اذان الفجر
           Case ListBox1.Items(1)
               'حان موعد اذان الظهر
           Case ListBox1.Items(2)
               'حان موعد اذان العصر
           Case ListBox1.Items(3)
               'حان موعد اذان المغرب
           Case ListBox1.Items(4)
               'حان موعد اذان العشاء
       End Select
   End Sub

ربنا يجزيك كل الخيرات والبركات أخى الغالى...