السلام عليكم
أقدم لكم برنامج بسييييييييط
وهو طريقة إضافة صوت لأى زر فى الكيبورد
وعند الضغط على هذا الزر من الكيبورد
هيشغل الصوت الذى اخترته انت
وهو بالمرفقات
ويارب يارب يارب
ينال اعجابكم والأهم انكم تستفيدوا من الكود :)
و بإمكانك إستبدال كل أكواد If بهذا الكود البسيط
وقد أعطانى إيا العضو "TheGhostFish"وهو بمنتدى آخر "وذلك للأمانة"
Select Case KeyCode Case 46: rc = sndPlaySound(App.Path & "\zain\1.WAV", SND_ASYNC) Case 16: rc = sndPlaySound(App.Path & "\zain\2.WAV", SND_ASYNC) Case 70: rc = sndPlaySound(App.Path & "\zain\3.WAV", SND_ASYNC) Case 75: rc = sndPlaySound(App.Path & "\zain\4.WAV", SND_ASYNC) Case 99: rc = sndPlaySound(App.Path & "\zain\5.WAV", SND_ASYNC) Case 105: rc = sndPlaySound(App.Path & "\zain\6.WAV", SND_ASYNC) Case 17: rc = sndPlaySound(App.Path & "\zain\7.WAV", SND_ASYNC) Case 112: rc = sndPlaySound(App.Path & "\zain\8.WAV", SND_ASYNC) Case 27: rc = sndPlaySound(App.Path & "\zain\9.WAV", SND_ASYNC) End Select