当你在文本框(Text Box)中输入完信息然后按 [Enter] 键,你就会听到计算机喇叭发出难听的“嘀”声。
你可以通过以下方法避免此声:
假设文本框为 Text1,在 KeyPress 事件中输入以下代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Vb man 2001
'URL: http://goodvbman.yeah.net
'E-mail: coolde@21cn.com
If KeyAscii = Asc(vbCr) Then
KeyAscii = 0
'您要执行的程序内容。
End If
End Sub
当你运行程序后,按 [Enter] 键就再也不会听到那难听的声音了。
时间: 2024-09-08 10:28:32