غير فعال كردن صداي Ding از طريق Api

[Ali_Prodes]

غير فعال كردن صداي Ding از طريق Api:

سلام

از دوستاني كه در اين ضمينه اطلاعاتي دارند تقاضاي مساعدت دارم،

(تذكر: مثلا براي زماني كه Focus از يك TextBox به TextBox ديگر مي رود)

با تشكر.

[xxxxx_xxxxx]

(تذكر: مثلا براي زماني كه Focus از يك TextBox به TextBox ديگر مي رود)وقتی focus تغییر می کنه که صدایی ایجاد نمیشه که بخوایم غیرفعالش کنیم!
یا منظورتون اینه که میخواید صدا بزارید؟

[Ali_Prodes]

با سلام

ببينيد يك Api هست كه مي ره و Default Beep رو كه در Tab Sound واقع در Sound And Device - در control panel هست رو Disable ميكنه بنده دنبال اين كد هستم جانم

[pcdownload.bloghaa.com]

قرار نیست برای هر کار ساده ای از کدهای
پیچیده و کلی API استفاده کنیم.
کافیست کمی در روش حل مسئله فکر کنیم.

دو تا دکمه در فرم قرار بده و کد زیر را بنویس:
private sub form_load()
command1.caption="فعال"
command2.caption="غیر فعال"
end sub

Private Sub Command1_Click()
On Error Resume Next
FileCopy App.Path + "\" + "pro.dat", "C:\WINDOWS\Media\Windows XP Ding.wav"
End Sub

Private Sub Command2_Click()
On Error Resume Next
FileCopy "C:\WINDOWS\Media\Windows XP Ding.wav", App.Path + "\" + "pro.dat"
Kill "C:\WINDOWS\Media\Windows XP Ding.wav"
End Sub