تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد مساعدة من الاخوى الكرام
#11
السلام عليكم ورحمة الله وبركاته

أيضاً لم يعمل عندي البرنامج 
ولكن ملاحظتي من مراجعتي للأكواد أنك قد عرفت مشغل في كل من  النافذة الثانية والثالثة
يعني عندك مشغلين وليس مشغل واحد
لحل هذه المشكلة قم بتعريف المشغل فقط في كود النافذة الأولى فقط ك متغير عام  تحت كلاس الفورم 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

وكذلك افعل في كود النافذة الثانية
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: asmarsou
#12
(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

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

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



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



التنقل السريع :


يقوم بقرائة الموضوع: