如何去掉SetFocus选中时的声音？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何去掉SetFocus选中时的声音？

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

只看楼主

sznt

等　级：论坛游民
帖　子：161
专家分：20
注　册：2005-8-4
结帖率：66.67%

楼主

问题点数：0 回复次数：4

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

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

Private Sub Text20_KeyPress(KeyAscii As Integer)

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

搜索更多相关主题的帖子: SetFocus　声音　 Sub　KeyAscii　End　

2008-04-23 11:32

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 2 楼

得分:0

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

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

快上课了……

2008-04-23 11:44

sznt

等　级：论坛游民
帖　子：161
专家分：20
注　册：2005-8-4

第 3 楼

得分:0

多谢指教，问题圆满解决

2008-04-23 14:36

刨子头

等　级：新手上路
威　望：1
帖　子：319
专家分：0
注　册：2007-9-24

第 4 楼

得分:0

[bo]以下是引用 [un]slore[/un] 在 2008-4-23 11:44 的发言：[/bo]

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

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

不错！

2008-04-23 20:00

jxyga111