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

(30-10-18, 02:00 AM)elgokr كتب : [ -> ]

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

يعتمد الامر على اتمام شرط تحقق من حيث 

اذا تم تحديد الخيار تحت اسم X يقوم بتشغيل مسار كذا وكما وضح الاخ  asemshahen5

فبارك الله له لما يقدمه من مجهود كبير فى مساعدة الاخرين زاده الله علماً ونفعاً للغير

طيب لو مش محتاج تعمل كتابة كل خيار وتضخم عدد الاكواد لتشغيل الفيديو

هنا ستضع عدد 2 ComboBox الاول وهو مرئي والذى يظهر به العنوان مثلاً

والثاني غير مرئي والذى يحتوى على مسار الفيديو

وهتعمل كود واحد بان رقم index الخاص بـ ComboBox1 وليكن تم تحديد الخيار 1

سياليه جلب المسار من ComboBox2 وهو للـ index رقم 1 ايضاً

اتمنى ان تكون الصورة والفكرة وصلت لك

تحياتى لك

وتمنياتى لك التوفيق

---

(29-10-18, 10:34 PM)asemshahen5 كتب : [ -> ]

كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If ComboBox1.SelectedItem = "video" Then 'xxxxxxx
           Process.Start("D:\Videos\REGEX Tutorial Regular Expressions Pt 3.mp4")
       End If
   End Sub

الكود المستخدم كاملاً فى المثال

كل ما ستحتاج اليه للعمل به هو

(31-10-18, 03:58 AM)elgokr كتب : [ -> ]

مرفق مثال بسيط يوضح الطريقة المطلوب استخدامها

السورس (2015)

المستخدم فى المثال عدد 2 ComboBox

الكود المستخدم كاملاً فى المثال

كود :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       REM تعبئة عناوين كل فيديو
       ComboBox1.Items.Add("123")
       ComboBox1.Items.Add("456")
       ComboBox1.Items.Add("789")

       REM تعبئة مسار الفيديوهات
       ComboBox2.Items.Add("C:\123.mp4")
       ComboBox2.Items.Add("C:\456.mp4")
       ComboBox2.Items.Add("C:\789.mp4")
       REM اخفاء ظهور كومبو المسارات
       ComboBox2.Visible = False
   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       MsgBox(ComboBox2.Items(ComboBox1.SelectedIndex))
   End Sub
End Class

كل ما ستحتاج اليه للعمل به هو

كود :

ComboBox2.Items(ComboBox1.SelectedIndex)

تحياتى لك

وتمنياتى لك التوفيق

(29-10-18, 10:34 PM)asemshahen5 كتب : [ -> ]

كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If ComboBox1.SelectedItem = "video" Then 'xxxxxxx
           Process.Start("D:\Videos\REGEX Tutorial Regular Expressions Pt 3.mp4")
       End If
   End Sub

(31-10-18, 08:19 PM)hamadz كتب : [ -> ]

شكرا ليك بالرغم عدم تشغيل الملف

هناك خطاء لكن الطريقة صحيحة 

انا اريد عمل شبيه برنامج tv 3l

لكن انا يعتمد على iptv و البث المباشر لبعض القنوات فقط

ومن حيث بدلاً من C:\123.mp4 و.. الخ سيتم وضع رابط iptv مثل 

وياتى الامر فى التعديل الاخير من حيث

ليصبح الكود كا مشغل فيديو مثل 

(01-11-18, 12:16 AM)elgokr كتب : [ -> ]

(31-10-18, 08:19 PM)hamadz كتب : [ -> ]

شكرا ليك بالرغم عدم تشغيل الملف

هناك خطاء لكن الطريقة صحيحة 

انا اريد عمل شبيه برنامج tv 3l

لكن انا يعتمد على iptv و البث المباشر لبعض القنوات فقط

الشكر لله والحمد لله

والحمد لله على كل حال

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

حيث ان بدلاً من 123 و 456 و 789 سيتم وضع اسماء القنوات

ومن حيث بدلاً من C:\123.mp4 و.. الخ سيتم وضع رابط iptv مثل 

PHP كود :

http://127.0.0.1:8888/live/test/20272020/23.ts 


وياتى الامر فى التعديل الاخير من حيث

كود :

MsgBox(ComboBox2.Items(ComboBox1.SelectedIndex))

ليصبح الكود كا مشغل فيديو مثل 

كود :

asmmoshagl.list.add(ComboBox2.Items(ComboBox1.SelectedIndex))
asmmoshagl.play

حيث ان كلمة asmmoshagl المقصود المسمى لما تستخدمه من اداء لتشغيل القناه

اتمنى ان تكون الصورة وضحت لك كاملاً

تحياتى لك

وتمنياتى لك التوفيق

(01-11-18, 12:21 AM)hamadz كتب : [ -> ]

الخطاء الذي اقصده هو اني استخدم فيجوال بيسك 2010 وانت تستخدم 2015

اما الطريقة سوف اجربها وارد لك