Normal buttons require ALT-key to be pressed. If you don't mind this, name the buttons
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'
Button1.Text = "&1"
Button2.Text = "&2"
End Sub
and trap "number"-buttons
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
Select Case CType(sender, Button).Text
Case "&1"
' Number 1 pressed
Case "&2"
' Number 2 pressed
End Select
End Sub
If you do not want ALT-key to be used, you have to trap KeyUp or similar event and use some other control instead of Button control.
Reputation Points: 218
Solved Threads: 201
Veteran Poster
Offline 1,024 posts
since Aug 2008