首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

keypress事件 发出 “噔”的声音?该如何解决

2012-05-05 
keypress事件 发出 “噔”的声音?Private Sub PressEnter(ByVal sender As Object, ByVal e As System.Windo

keypress事件 发出 “噔”的声音?
Private Sub PressEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
  Dim sk As Microsoft.VisualBasic.Devices.Keyboard = My.Computer.Keyboard
  If e.KeyChar = ChrW(Keys.Enter) Then
  sk.SendKeys("{TAB}")
  End If
  End Sub
每次输入后回车,就会发出“噔”的系统声音,还影响运行速度,不知道为什么。。。

第二个问题:在Btn1上按回车后,焦点还在Btn1上面
如果把TextBox1.Focus()放在Click事件里面,就不能判断e.KeyChar
  Private Sub Btn1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Btn1.KeyPress
  If e.KeyChar = ChrW(Keys.Enter) Then TextBox1.Focus()
  End Sub


[解决办法]
Private Sub PressEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
Dim sk As Microsoft.VisualBasic.Devices.Keyboard = My.Computer.Keyboard
If e.KeyChar = ChrW(Keys.Enter) Then
sk.SendKeys("{TAB}")
e.Handled = True
End If
End Sub

热点排行