رفع صدای دینگ هنگام تغییر کنترلها

[hadgph]

هنگام حرکت بین کنترل ها با استفاده از کلید اینتر به جای تب (تغییر فوکوس) صدای دینگ از اسپیکر شنیده می شود، برای رفع آن چه کدی لازم است؟

[just4froum]

خاصیت keypreview را true کنید و سپس از کد زیر استفاده کنید

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub



قسمت KeyAscii = 0 باعث از بین بردن صدای دینگ می شود


موفق باشید