如何消除在text中按回车的声音

kevinmo 2004-10-06 04:15:04

如何消除在TEXT中回车的“嘀”声音。

...全文

245 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

熊孩子开学喽 2004-10-13

打赏
举报

上面各位说的办法在有的系统下是可以的，但是有的系统下是不行的，还是将电脑的声音属性设为“无声”吧。

莫情莫钱 2004-10-13

打赏
举报

学习了

ryuginka 2004-10-07

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

lilei 2004-10-07

打赏
举报

把系统音量设为静音（就是下面的小喇叭）呵呵

wada0880 2004-10-06

打赏
举报

发送keyascii=0就可以

helanshan 2004-10-06

打赏
举报

更改系统设置...

tztz520 2004-10-06

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

junki 2004-10-06

打赏
举报

回车时击发另一个事件

northwolves 2004-10-06

打赏
举报

可以设置MULTINE=TRUE

xfsfis 2004-10-06

打赏
举报

用以下的方法可以消除聲音.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strvalid As String
strvalid = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
If KeyAscii = Asc(vbCr) Then KeyAscii = 0
End Sub

laviewpbt 2004-10-06