Question

vb.net实现按字母控制button

Answer 1

如果是用键盘来代替鼠标点击按钮，用下面的代码

Public Class Form1
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case Chr(e.KeyValue)
            Case "A"
                Button1_Click(sender, e)
            Case ""

        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True '窗体下注册键盘事件
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("键盘A键按下")
    End Sub
End Class