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

نسخة كاملة : اريد مساعدة من الاخوى الكرام
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

أيضاً لم يعمل عندي البرنامج 
ولكن ملاحظتي من مراجعتي للأكواد أنك قد عرفت مشغل في كل من  النافذة الثانية والثالثة
يعني عندك مشغلين وليس مشغل واحد
لحل هذه المشكلة قم بتعريف المشغل فقط في كود النافذة الأولى فقط ك متغير عام  تحت كلاس الفورم 1 كما في التالي..
كود :
Public Class Form1
   Public player As MpvPlayer

وأمسح سطر التعريف من النافذتين الثانية والثالثة
أما باقي الكود يصبح كـ مثل هذا الكود ..
كود :
Public Class Form3
   '  Private player As MpvPlayer
   Public Sub New()

       InitializeComponent()
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       On Error Resume Next
       Form1.player.PlaylistRemove()
       Form1.player = New MpvPlayer(Form1.Panel4.Handle) With {
       .[Loop] = True,
      .Volume = 50
      }
       Form1.player.Load("http://iptv.ipslow.com/tv34_www.elahmad.com_almajd_quran/tracks-v1a1/mono.m3u8?token=a6d37ac9b10b6e4a6d6d73e114c978c98e7a4214-29e40e57a45c89c7767082677cc6e6bd-1661981790-1661970990", "disney")
       Form1.player.[Resume]()
   End Sub
End Class

وكذلك افعل في كود النافذة الثانية
(01-09-22, 08:08 AM)asmarsou كتب : [ -> ]
(01-09-22, 02:45 AM)yahya10 كتب : [ -> ]
(01-09-22, 01:47 AM)asmarsou كتب : [ -> ]
(01-09-22, 01:28 AM)yahya10 كتب : [ -> ]
(01-09-22, 12:20 AM)asmarsou كتب : [ -> ]اخي الكريم فتحت المثال مرات عدة و لم المح اي اشكال مع ان المشغل لم يشتغل
فهل تعني بتكرار فتح الفورم هو تكرار فتخ فورم 2 و فورم 3 ؟
اذا كان كذلك اضف عند كل فتح احدى الفوميين اي 2 و3 في حدث قورم لود
مثلا فورم 2 لود اضف لها form3.close()
وفورم 3لود اضف form2.close()
لا اخي العزيز المشكل في فورم واحد يشتغل مرتين
واضح اخي الكريم ان لم اخطىء تقصد فتح المشغل على نسختين او اكثر كلما ضغط الزر يفتح نافذة جديدة
اذا كان كذلك عليك بالدخول الى خصائص المشروع اما من شريط القوائم في الاعلى او كلك يمين غلى اسم المشروع في القائمة على اليمين و احتر  properties ستفتح لك نافذة خصائص المشروع في قائمة Application ابجث عن مربع اختيار باسم make single instance application فعله ان لم بكن كذلك و باذن الله يزول الاشكال

نعم اخي مشغل وضعته في فورم 4 و 2 البوتن في فورم 1 عندما اضغط على بتن الاول يشتغل عند الضغط على بوتن الثاني يبقى الاول شغال وثاني يشتغل في الخفاء انا اوريده عند الضغط على البوتن الاول يشتغل  وعند ضغط على بوتن الثاني  يشتغل في مكان الاول في شاشة واحدة

انا مبتدئ لااعرف كيف اوضح المشكل لهاذا رفعت لك المشروع
لك كل الاحترام اخي الغالي
بارك الله فيك اخي الكريم ... حاولت قدر الامكان ايجاد حل و لكن للاسف لم اتمكن لعدم تعاملي مع mpv من قبل
انتظر فلربما احد الاخوة يتمكن من ذلك
استذكر مناقشة طويلة في ذاك المجال طرحت في هذا المنتدى الموقر وبعد بحث طويل تمكنت من ايجاد الصفحة تجدها في الرابط التالي
http://vb4arb.com/vb/thread-40035.html
ربما تجد ما يسرك بعد متابعة النقاش الوارد فيها

شكرا لك اخي بارك الله فيك لم افهم شرح  مازلت مبتدئ انتظر ربما يساعدني احد

(01-09-22, 08:30 AM)Taha Okla كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

أيضاً لم يعمل عندي البرنامج 
ولكن ملاحظتي من مراجعتي للأكواد أنك قد عرفت مشغل في كل من  النافذة الثانية والثالثة
يعني عندك مشغلين وليس مشغل واحد
لحل هذه المشكلة قم بتعريف المشغل فقط في كود النافذة الأولى فقط ك متغير عام  تحت كلاس الفورم 1 كما في التالي..
كود :
Public Class Form1
   Public player As MpvPlayer

وأمسح سطر التعريف من النافذتين الثانية والثالثة
أما باقي الكود يصبح كـ مثل هذا الكود ..
كود :
Public Class Form3
   '  Private player As MpvPlayer
   Public Sub New()

       InitializeComponent()
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       On Error Resume Next
       Form1.player.PlaylistRemove()
       Form1.player = New MpvPlayer(Form1.Panel4.Handle) With {
       .[Loop] = True,
      .Volume = 50
      }
       Form1.player.Load("http://iptv.ipslow.com/tv34_www.elahmad.com_almajd_quran/tracks-v1a1/mono.m3u8?token=a6d37ac9b10b6e4a6d6d73e114c978c98e7a4214-29e40e57a45c89c7767082677cc6e6bd-1661981790-1661970990", "disney")
       Form1.player.[Resume]()
   End Sub
End Class

وكذلك افعل في كود النافذة الثانية
شكرا لك اخي اقوم بتجريب اخبرك

شكراً على مساعدتك لي اخي الكريم



إنّ من أجمل الصفات التي يتحلى بها الإنسان هي أن يبقى شاكراً من قلبه وممتناً لكل شخص وقف معه يوماً ومدّ له يد العون
الصفحات : 1 2