1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Option Strict On
Public Class Form4
Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Button1.TabStop = False
Me.Button2.TabStop = False
Me.Button3.TabStop = False
End Sub
Private Sub Form4_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
For Each c As Control In Me.Controls
If c.GetType Is GetType(Button) Then
AddHandler c.KeyDown, AddressOf processKeyDown
End If
Next
AddHandler Me.KeyDown, AddressOf processKeyDown
End Sub
Private Sub processKeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
Select Case e.KeyCode
Case Keys.A
Me.Button1.Select()
e.Handled = True
Case Keys.B
Me.Button2.Select()
e.Handled = True
Case Keys.C
Me.Button3.Select()
e.Handled = True
End Select
e.Handled = False
End Sub
End Class |
Partager