调用特定按钮操作的特定键盘字符
Specific keyboard characters to call specific button actions
当我启动我的程序并按下指定的键来调用我的按钮命令时,它没有执行任何操作。
焦点停留在其中一个按钮上,没有任何反应。
我尝试了多种代码,从使用 KeyDown 到 KeyPress,再到包含 vbKey 的代码。
我是 vb 的新手,所以很可能我只是理解我在做什么。 :(
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = "/" Then
Call Button1_Click(sender, e)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnExit.Click
'Close Program
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPMN.Click
'Add +1 to PMN Textbox (txtPMN)
txtPMN.Text = (Val(txtPMN.Text) + 1).ToString()
End Sub
End Class
我想在按下键盘上的特定键时模拟某些按钮的点击(激活按钮代码)。例如:如果我按“/”,我希望 Button1_Click 像用鼠标单击按钮一样激活。然后,如果我按下下一个键“.”,我想 Button2_Click 激活。
我不想使用如下修饰符:SHIFT、CTRL、ALT
请像这样尝试使用 keychar:
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = "/" Then
Call Button1_Click(sender, New EventArgs)
End If
end sub
当使用 keydown 时,"/" 键的键码是 OEM,取决于键盘类型,因此 char(e.keycode) 可能不是 "/"
当我启动我的程序并按下指定的键来调用我的按钮命令时,它没有执行任何操作。
焦点停留在其中一个按钮上,没有任何反应。
我尝试了多种代码,从使用 KeyDown 到 KeyPress,再到包含 vbKey 的代码。
我是 vb 的新手,所以很可能我只是理解我在做什么。 :(
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = "/" Then
Call Button1_Click(sender, e)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnExit.Click
'Close Program
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPMN.Click
'Add +1 to PMN Textbox (txtPMN)
txtPMN.Text = (Val(txtPMN.Text) + 1).ToString()
End Sub
End Class
我想在按下键盘上的特定键时模拟某些按钮的点击(激活按钮代码)。例如:如果我按“/”,我希望 Button1_Click 像用鼠标单击按钮一样激活。然后,如果我按下下一个键“.”,我想 Button2_Click 激活。
我不想使用如下修饰符:SHIFT、CTRL、ALT
请像这样尝试使用 keychar:
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = "/" Then
Call Button1_Click(sender, New EventArgs)
End If
end sub
当使用 keydown 时,"/" 键的键码是 OEM,取决于键盘类型,因此 char(e.keycode) 可能不是 "/"