在Vb 6中禁用蜂鸣声

Question

当我在VB 6.0中的TextBox中按Ctrl +其他键时，系统会发出哔声。 如何在VB 6.0中禁用它？

Answer 1

VB 5.0 / 6.0 '将此代码复制并粘贴到Textbox_KeyPress（）事件中。

If KeyAscii = 13 Then  

    KeyAscii = 0   

End If

Source

Answer 2

您需要捕获KeyPress事件并将KeyAscii代码更改为0（您可以有条件地执行此操作，仅禁用某些“哔声”）。 与F.Aquino的代码非常相似，只有KeyAscii = 13用于禁用由Enter键触发的蜂鸣声。更改条件以匹配您的情况。

Answer 3

    Private Sub Command1_Click()
    'Beep off
    Dim res
    res = Shell("reg add " + Chr(34) + "HKEY_CURRENT_USER\Control Panel\Sound" + Chr(34) + " /t REG_SZ /v Beep /d no /f", vbHide)
    End Sub

    Private Sub Command2_Click()
    'Beep on
    Dim res
    res = Shell("reg add " + Chr(34) + "HKEY_CURRENT_USER\Control Panel\Sound" + Chr(34) + " /t REG_SZ /v Beep /d yes /f", vbHide)
    End Sub

要使代码生效，还必须重新启动资源管理器/系统。