如何去掉SetFocus选中时的声音？


Private Sub Text20_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then
       Command1.SetFocus
     End If
End Sub
运行时会发生咚咚声，若多个这样扬命令时，会很恼人，如何让声音消失，谢谢。

那是你回车在文本框里不支持多行显示引起的声音……

Private Sub Text20_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Command1.SetFocus
    End If
End Sub

多谢指教，问题圆满解决

不错！

可以在dos里不讓主機響啊