vb6 - Vb6でビープ音を無効にする

Question

VB6.0のTextBoxでCtrl+otherキーを押すと、システムはビープ音を鳴らします。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

コードを有効にするには、エクスプローラー/システムを再起動する必要があります。