在VB6中禁用蜂鸣音

在VB6.0中，当我在文本框中按Ctrl+其他键时，系统会发出嘟嘟声。 如何在VB6.0中禁用此功能？

VB5.0/6.0 '在文本框中复制并粘贴此代码\u KeyPress（）事件

VB 5.0/6.0 '在文本框中复制并粘贴此代码\u KeyPress（）事件

---

您需要捕获按键事件并将KeyAscii代码更改为0（您可以有条件地执行此操作，以仅禁用某些“蜂鸣情况”）。

---

与F.Aquino的代码非常相似，只有

keyacii=13

用于禁用Enter键触发的蜂鸣音。更改条件以匹配您的情况。

您需要捕获按键事件并将KeyAscii代码更改为0（您可以有条件地执行此操作，以仅禁用某些“蜂鸣情况”）。

    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

与F.Aquino的代码非常相似，只有

keyacii=13

用于禁用Enter键触发的蜂鸣音。更改条件以匹配您的案例

    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

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

---

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

不过，嘟嘟声是故意的，警告用户击键无效。为什么要禁用Windows UI的一部分？不过，嘟嘟声是故意的，警告用户击键无效。为什么要禁用部分Windows UI？