Odchytávání kláves na formuláři ve VB.

Je nutné zajistit přednostní zpracování kláves pro formulář.To uděláte nastavením vlastnosti formuláře KeyPreview na hodnotu True.

Potom můžeme odchytávat klávesy a jejich kombinace v události formuláře KeyDown, pokud na klávesu reagujeme nastavíme KeyCode na nulu, tím zabráníme odeslání klávesy i do aktuálního prvku.Jinak se samozřejmě provede i událost KeyDown u aktivního ovladacího prvku.

A nakonec velice zjednodušený příklad pro formulář s jedním Textovým polem (Text1)

Private Sub Form_KeyDown(KeyCode As Integer, _
                         Shift As Integer)
  If KeyCode = 13 Then
    MsgBox KeyCode & " FORM"
    KeyCode = 0
  End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, _
                          Shift As Integer)
  MsgBox KeyCode & " Text1"
End Sub