[ Visual Basic 6 ] أجعل مع الزر صوت؟

[Ya8S8eR]

أخواني الفاضلين...
أبغى لما أبرمج زر يخرج معاه صوت .
يعني=
لما يجي العميل يضغط على هذا الزر يخرج مع الزر صوت بطة.
مع العلم أن صوت البطة محمل في الجهاز.
أرجو المساعدة منكوم يا أخواني الاعزاء.​

 

["ذيب تميم"]

رد: أجعل مع الزر صوت؟

هههههههههههه

,,

وش تبي في صوت البطه لبى روحك

والله ما اعرف ولا ابشر بشرح الوافي

 

[Dr.hac]

رد: أجعل مع الزر صوت؟

أخي اتفضل لكن من اولها قيمني ^_^

اتفضل افتح الفيجوال البيسك ونزل كوماند
افتح شاشاه الكود امحي كل شي وانسخ هالكود والصقه كما هو:

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_Click()
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

وشغل مجرد ما تكبس على الزر بطلع صوت وانت طوره على كيفك وزي ما بدك
يلا سلام اه لا تنسى التقيم

Dr.hac
​