اصدار الأصوات

الخطوات كالأتي في التحكم في احداث صدور الصوت

ضع هذا الكود في مديول

'تعريف الصوت
Private Declare Function sndPlaySound Lib _
"winmm.dll" Alias "sndPlaySoundA" (ByVal _
lpszSoundName As String, ByVal uFlags As Long) As Long

ثم نقوم بعمل أجراء في الموديول ولنسميه wrong

وسنكتب بداخله مسار الصورت الذي نريد أصاره عند أي حدث نريده ويفضل أن يكون الصوت

من النوع wav :lol:

Public Sub wrong()
sndPlaySound App.Path & "\" & "wrong.wav", &H1
End Sub

سنستدعي الاجراء تحت حدث Click لزر كومند Command

Call wrong

وهذا هو المثال

تحياتي B)

-waf

Sound.rar

أخي هذا الكود يظهر صوت فقط داخل برنامجي ولكن قصدي هو عمل برنامج شبيه ببرنامج keyboard sound الذي يظهر صوت مثلا صوت الطابعة اثناء الكتابة في الوورد وغيرها من الأصوات .

أرجو أخي hnhn ان أكون قد وضحت الصورة

مصطفى زيداني

يا إخوان أرجو منكم فهم الموضوع و المساعدة ولو بفكرة على الأقل

وسأكون شاكر لكم

مصطفى زيداني

تستطيع عمل ذلك بنفس الطريقة وتضع حدث اصدار الصوت

تحت KeyUp أو KeyDown

تحياتي :blink:

أخي HNHN شكر ا على الرد أولا

لقد جربت هذه الطريقة من قبل ولكن هذه الطريقة محدودة بمعنى عندما يكون البرنامج شغال أي مرئي امامي ولكن عندما تقوم بإخفائه وتضغط على أي زر ليظهر الصوت فإنه لايؤدي الغرض المطلوب

فما العمل

مصطفى زيداني

سأبحث لك في الموضوع . !!!!!!!!!!

الله يوفقك