سؤال اتحدى به خبراء الفيجيوال بيسك وسؤال اخر للجميع :(

[فار الانترنت]

السلام عليكم
هذا السؤال عجز عنه بعض الاصدقاء والحاصلين على شهادة مايكروسوفت ، فبعدما يئست كتبت الموضوع لعل وعسى وخصوصا ان الخبير ليس من يملك شهادة ولكن الذي مارس العمل
السؤال : عندي ملفات صوت وضعتها في برنامج فيجيوال واريد الانتقال اتوماتيكيا بينها ، يعني بعد الانتهاء من الاول ينتقل الى الثاني اوتوماتيكيا

اما السؤال الثاني : فهو كيف يمكنني تحويل ملف swf الى ملف تنفيذي exe
ودمتم
والسلام ختام الكلام

[Syria com]

هذه كتير سهلة عن طريق الفلاش بلاير قله من قائمة ملف ---> اصنع ملف exe

والسؤال الأول انتظرني لأعطيك الإجابة

[beshoo]

اخ syria com
هل انت السيد mezz ?

[Syria com]

ليش ؟؟؟

[فار الانترنت]

أخي Syria com
شكرا لك على سرعة الإجابة وبالنسبة للسؤال الأول كلي آذان صاغية وانا في الانتظار على أحر من الجمر
والسلام ختام الكلام

[الساحل الغربي]

اضف مشروع جديد
اضف اداة مكروسوفت ميديا كنترول
اضف اداة list1 ثم من خصائص list اضف اسامي ملفات الصوت
مع مراعه وضع الملفات في نفس المجلد

اضف زر كومند

بعد ذلك اذهب الى جنرال حق الفورمة
والصق هذا الكود
========================
Option Explicit

Private Sub Command1_Click()
List1.ListIndex = 0

' Set properties needed by MCI to open.
MMControl1.Notify = False
' MMControl1.Wait = True
' MMControl1.Shareable = False
MMControl1.Command = "close"
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path & "\" & List1.Text
' Open the MCI WaveAudio device.
MMControl1.Command = "Open"
MMControl1.Command = "play"

End Sub

Private Sub Form_Load()
List1.ListIndex = 0

' Set properties needed by MCI to open.
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.Command = "close"
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path & "\" & List1.Text
' Open the MCI WaveAudio device.
MMControl1.Command = "Open"
MMControl1.Command = "play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub




Private Sub MMControl1_Done(NotifyCode As Integer)

If List1.ListIndex + 1 >= List1.ListCount Then

Exit Sub
End If
List1.ListIndex = List1.ListIndex + 1
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.Command = "close"
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path & "\" & List1.Text
' Open the MCI WaveAudio device.
MMControl1.Command = "Open"
MMControl1.Command = "play"

End Sub

====================

واخيرا اتعجب من حمله الشهادات !!!!!!!!!! هل هذا صعب

[فار الانترنت]

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

[الساحل الغربي]

على حسب اداه مكروسوفت ميديا كنترول
اذا كانت الاصدار الاخير اعتقد تدعم الريل بلير؟

[فار الانترنت]

السلام عليكم
اخي العزيز
بالنسبة للريل بلير لقيت في الكومبوننت خاصية للريل منفصلة
ولكن الطريقة السابقة ما مشت عليها ما بعرف ليش
هذا كان قصدي

[Abdulrahim]

أخي العزيز ليش ما تجرب تحط تايمر؟

[الساحل الغربي]

تأكد من الديفايس المثال السابق ديفايس ملف WAV بهذ الشكل
MMControl1.DeviceType = "WaveAudio"

لكل نوع من الملفات له ديفايس خاص فيه