الاصوات في الفيجوال بيسك

ارفق ملفات مشروعك وإن شاء الله نساعدك وحياك الله في منتدانا

أخي محمد سعيد تستطيع فعل ذلك عن طريق دالة sndplaysound وهي دالة API تقوم يتشغيل الصوت. فقط مرر لها ملف الصوت بالإضافة الى كيفية تشغيل الصوت وتأخذة عد قيم او ماتسمى ب flags او constants منها snd_async و snd_sync وأفضل ان تستخدم snd_async أو حسب ماتريده

اولا عرف التالي في ال genaral module

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

ثم في form_load قم بكتابة التالي

sndPlaySound filepath , snd_async

ضع مسار الملف في ال filepath

وهذه ال flags :

Private Const SND_ASYNC = &H1

Private Const SND_NODEFAULT = &H2

Private Const SND_SYNC = &H0

اما اذا أردت ان توقف الصوت . فقط ماعليك الا كتابة VBNULL مكان filename بالأضافة الى كتابة ال flag الذي استخدمته في البداية

أرجو ان تكوت الصورة واضحة

mostafazidani كتب:

أخي محمد سعيد تستطيع فعل ذلك عن طريق دالة sndplaysound  وهي دالة API تقوم يتشغيل الصوت. فقط مرر لها ملف الصوت بالإضافة الى كيفية تشغيل الصوت وتأخذة عد قيم او ماتسمى ب flags او constants  منها snd_async  و snd_sync  وأفضل ان تستخدم snd_async أو حسب ماتريده

اولا عرف التالي في ال genaral module 

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

ثم في form_load  قم بكتابة التالي

sndPlaySound filepath ,  snd_async

ضع مسار الملف  في ال  filepath

وهذه ال flags :

Private Const SND_ASYNC = &H1       

Private Const SND_NODEFAULT = &H2

Private Const SND_SYNC = &H0

اما اذا أردت ان توقف الصوت . فقط ماعليك الا كتابة VBNULL مكان filename بالأضافة الى كتابة ال flag  الذي استخدمته في البداية 

أرجو ان تكوت الصورة واضحة

←