Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
Odchytávání kláves na formuláři ve VB. |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 21.11.2003
| Publikováno: 23.11.2003
| Čtenářů: 3701
| Unikátních: 3624
|
Někdy můžeme potřebovat znát stisknutou klávesu bez ohledu na to, ve kterém kontrolním prvku byla stisknuta.
Jak na to radí tento článek.
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
|