مساعده لو سمحتم

[feky1]

اولا انا بتكلم على فجوال بيسيك 6
لو سمحتم عاوز اعرف ازاى لما ادوى على زورار يعمل صوت الكليك
وكمان كل حاجه عن اضافة ملفات الصوت للبرنامج
وشكرا

[@...Khalefa]

في اكتر من طريقة لتشغيل ملفات الصوت بالفيجوال
والطريقة الشائعة من هن (http://www.bramjnet.com/vb3/showthread.php?t=199615)ا لسهولة استخدامها في تشغيل ملفات Wav,mid,avi

[(li) صقر (li)]

كود لإصدار صوت عند المرور على زر أمر :


Dim a As Boolean
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not a Then
r = sndPlaySound("C:\WINDOWS\MEDIA\notify.wav", 1)
a = True
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If a Then
a = False
End If
End Sub


أرجو أن يساعدك