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

السلام عليكم ورحمه الله وبركاته
عندي شويه اسئله 
1-عايز كود يشغل الفيديو علي اداه picture pox بصوت وليس ax window media player

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


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

(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/

(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/

(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/

جزاك الله كل الخير أخى..

صراحة طريقة جميلة أول مرة أعرفها لتشغيل الصوت من خلال أداة الصور

العفو اخي الكريم