当前位置：文江博客话题详情

在 Vb 6 中禁用蜂鸣声

发布于 2024-08-23 18:56:53 字数 63 浏览 3 评论 0原文

当我在 VB 6.0 的文本框中按 Ctrl+其他键时，系统会发出蜂鸣声。如何在 VB 6.0 中禁用此功能？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

迟月 2024-08-30 18:56:53

VB 5.0/6.0
'将此代码复制并粘贴到您的 Textbox_KeyPress() 事件中。

If KeyAscii = 13 Then  

    KeyAscii = 0   

End If

来源

VB 5.0/6.0
'Copy and Paste this code in your Textbox_KeyPress() event.

If KeyAscii = 13 Then  

    KeyAscii = 0   

End If

Source

回复收藏 0 原文

溇涏 2024-08-30 18:56:53

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

回复收藏 0 原文

痕至 2024-08-30 18:56:53

    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

为使代码生效还必须重新启动explorer/系统。

    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

For code takes effect still must restart explorer/system.

回复收藏 0 原文

~没有更多了~