الاخوة الاعزاء
السلام عليكم
باستخدام الكود التالي كيف اعيد تشغيل ملف الصوت عند الانتهاء
'Refrence----> ActiveMovie control type library
Dim strSound As String
Dim MediaControl As IMediaControl
Private Sub Form_Load()
strSound = App.Path + "\Lacool.wav"
Set MediaControl = New FilgraphManager
MediaControl.RenderFile strSound
MediaControl.Run
End Sub
اقتباستحياتي
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
شكرا جزيلا اخي الكريم المتميز علي الاهتمام و علي الرابط
في الحقيقة انا اعرف استخدام اكتر من اداة و طريقة ال API ايضا
انا ارغب في معرفة طريقة التكرار مع هذا الكود !!
اكرر شكرى و امتناني
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
up
الاخوة الافاضل
الا يوجد طريقة لعمل loop للكود الموجود بهذا الموضوع
'Refrence----> ActiveMovie control type library Dim strSound As String Dim MediaControl As IMediaControl Private Sub Form_Load() strSound = App.Path + "\Lacool.wav" Set MediaControl = New FilgraphManager MediaControl.RenderFile strSound MediaControl.Run End Sub
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
هذا الموضوع مغلق.
