تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال في المديا بلاير
#1
السلام عليكم ورحمه الله وبركاته
عندي شويه اسئله 
1-عايز كود يشغل الفيديو علي اداه picture pox بصوت وليس ax window media player

2-انا ضفت اداه open file dailog عشان اختار الملفات منها وجعلت خاصيه mult select=true عشان اقدر احدد اكتر من ملف ولكن عند الاضافه يقوم لاضافه ملف واحد فقط في الليست بوكس انا عايز كود لاضافه كل الملفات المحدده في ليست بوكس


3- عايز كود يظهر لي حاله ax window media player في رساله حال إذا كان شغال أو لا  وعايز كود يعمل تحقق إذا لكن الاداه في حاله وقوف مؤقت ام لا  وشكرا
الرد
تم الشكر بواسطة:
#2
(31-12-20, 11:49 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته
عندي شويه اسئله 
1-عايز كود يشغل الفيديو علي اداه picture pox بصوت وليس ax window media player

2-انا ضفت اداه open file dailog عشان اختار الملفات منها وجعلت خاصيه mult select=true عشان اقدر احدد اكتر من ملف ولكن عند الاضافه يقوم لاضافه ملف واحد فقط في الليست بوكس انا عايز كود لاضافه كل الملفات المحدده في ليست بوكس


3- عايز كود يظهر لي حاله ax window media player في رساله حال إذا كان شغال أو لا  وعايز كود يعمل تحقق إذا لكن الاداه في حاله وقوف مؤقت ام لا  وشكرا

و عليكم ورحمه الله وبركاته
بالنسبه للسؤال الاول لارفق لك مثال
و بالنسبه للسوال الثاني يجب اضافة الكود التالي :
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        
        For Each track In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        Next
         
        ListBox1.SelectedIndex = 0
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
   
End Sub

اما السؤال الثالث لاحظ الرابط التالي:
https://silkyroad.developpez.com/VBA/Win...diaPlayer/


الملفات المرفقة
.rar   Playing video in Picturebox.rar (الحجم : 69.07 ك ب / التحميلات : 18)
الرد
تم الشكر بواسطة: حسن الجلب , ابو روضة , ابو روضة
#3
(31-12-20, 02:03 PM)asmarsou كتب :
(31-12-20, 11:49 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته
عندي شويه اسئله 
1-عايز كود يشغل الفيديو علي اداه picture pox بصوت وليس ax window media player

2-انا ضفت اداه open file dailog عشان اختار الملفات منها وجعلت خاصيه mult select=true عشان اقدر احدد اكتر من ملف ولكن عند الاضافه يقوم لاضافه ملف واحد فقط في الليست بوكس انا عايز كود لاضافه كل الملفات المحدده في ليست بوكس


3- عايز كود يظهر لي حاله ax window media player في رساله حال إذا كان شغال أو لا  وعايز كود يعمل تحقق إذا لكن الاداه في حاله وقوف مؤقت ام لا  وشكرا

و عليكم ورحمه الله وبركاته
بالنسبه للسؤال الاول لارفق لك مثال
و بالنسبه للسوال الثاني يجب اضافة الكود التالي :
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        
        For Each track In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        Next
         
        ListBox1.SelectedIndex = 0
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
   
End Sub

اما السؤال الثالث لاحظ الرابط التالي:
https://silkyroad.developpez.com/VBA/Win...diaPlayer/


جزاك الله كل الخير أخى..
صراحة طريقة جميلة أول مرة أعرفها لتشغيل الصوت من خلال أداة الصور
الرد
تم الشكر بواسطة:
#4
(31-12-20, 07:38 PM)ابو روضة كتب :
(31-12-20, 02:03 PM)asmarsou كتب :
(31-12-20, 11:49 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته
عندي شويه اسئله 
1-عايز كود يشغل الفيديو علي اداه picture pox بصوت وليس ax window media player

2-انا ضفت اداه open file dailog عشان اختار الملفات منها وجعلت خاصيه mult select=true عشان اقدر احدد اكتر من ملف ولكن عند الاضافه يقوم لاضافه ملف واحد فقط في الليست بوكس انا عايز كود لاضافه كل الملفات المحدده في ليست بوكس


3- عايز كود يظهر لي حاله ax window media player في رساله حال إذا كان شغال أو لا  وعايز كود يعمل تحقق إذا لكن الاداه في حاله وقوف مؤقت ام لا  وشكرا

و عليكم ورحمه الله وبركاته
بالنسبه للسؤال الاول لارفق لك مثال
و بالنسبه للسوال الثاني يجب اضافة الكود التالي :
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        
        For Each track In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)
        Next
         
        ListBox1.SelectedIndex = 0
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
   
End Sub

اما السؤال الثالث لاحظ الرابط التالي:
https://silkyroad.developpez.com/VBA/Win...diaPlayer/


جزاك الله كل الخير أخى..
صراحة طريقة جميلة أول مرة أعرفها لتشغيل الصوت من خلال أداة الصور
العفو اخي الكريم
الرد
تم الشكر بواسطة:



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم