vb6 - 在 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

资源

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

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