هدية بسيطة "ملف صوتي"

بسم الله الرحمن الرحيم

أرجوا ان ينال هذا العمل البسيط استحسانكم

هذا العمل يمكن تنفيذه من خلال Access2000 وهو عبارة عن تشغيل أي ملف صوتي ذو الامتداد WAV من خلال أي حدث وساستعمل الحدث عند النقر على زر أمر والسلام

1-صمم نموذج جديد به زر أمر

2- في الوحدة النمطية للنموذج اكتب ما يلي

Private Declare Function sndplaysound Lib "winmm.dll" Alias "sndplaysoundA" (Byval LpszsoundName As String,Byval uflags As Long) as long

3-في حدث عند النقر لزر الامر أكتب التالي

Dim soundfile as string

soundfile="C:\Windows\Media\Dind.Wav"

sndplaysound soundfile,1

والله الموفق أحمد