VB6 在富文本框中按下箭头 up/down 时禁用系统蜂鸣声？

Question

我有一个富文本框控件。它没有滚动条，因为我正在使用鼠标滚轮模块来捕获鼠标滚轮事件。

选择富文本框并旋转鼠标滚轮时 up/down 它会向富文本框发送键 {UP} 和 {DOWN} 以 "mimic" 滚动效果。

但是，当您处于文本框内容的开头或结尾时（例如，没有任何内容可滚动），系统会发出恼人的哔哔声。我需要禁用它，有什么办法吗？

已经尝试在富文本框的按键事件中添加此代码：

If KeyAscii = 38 Or KeyAscii = 40 Then
KeyAscii = 0
End If

无效。不知道为什么它应该工作时却不起作用。

Answer 1

使用KeyDown事件而不是KeyPress，仅当光标位于first/last行时禁用KeyCode以防止禁用箭头键（ up/down) 完全。

首先您需要在声明中添加以下内容：

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_GETLINECOUNT = &HBA

Private Function GetCurrentLine(Txt As RichTextBox) As Long
    GetCurrentLine = SendMessage(Txt.hWnd, EM_LINEFROMCHAR, Txt.SelStart, 0&) + 1
End Function

Private Function GetLineCount(Txt As RichTextBox) As Long
    GetLineCount = SendMessage(Txt.hWnd, EM_GETLINECOUNT, 0&, 0&)
End Function

然后按照描述使用 KeyDown 事件：

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then
        If GetCurrentLine(RichTextBox1) = 1 Then KeyCode = 0
    ElseIf KeyCode = vbKeyDown Then
        If GetCurrentLine(RichTextBox1) = GetLineCount(RichTextBox1) Then KeyCode = 0
    End If
End Sub

当然，您需要将 RichTextBox1 替换为您的 RichTextBox 的名称。

希望对您有所帮助:)

Answer 2

在function/sub

之外

Public Declare Function SendMessageByVal Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

在你的sub/function

Ret = SendMessageByVal(gRtfHwnd, EM_SETEDITSTYLE, SES_ALLOWBEEPS + SES_USECRLF, SES_ALLOWBEEPS + SES_USECRLF)

要查看更多信息，请参阅 http://ambracode.com/index/show/1405175 这是我在 SO 制作的旧 post 的一些副本。

VB6 在富文本框中按下箭头 up/down 时禁用系统蜂鸣声？

VB6 Disable system beep sound when arrow up/down is pressed inside rich text box?

vb6

system-sounds

keypress

richtextbox

beep