Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Visual Basic Express . Kliknite na tlačidlo " Nový projekt ... " V ľavej table obrazovky , potom vyberte "Windows Forms . " Kliknite na tlačidlo " OK " . 
 2 
 Double - kliknite na tlačidlo " Timer " na " Toolbox " paneli pridať nový ovládací prvok časovača . Pravým - kliknite na " Časovač 1 " , potom vyberte " Vlastnosti " . Vedľa " Enabled " , vyberte " To je pravda . " . Double - kliknite na " Timer1 " otvorte okno " Form1.vb " 
 3 
 Zadajte nasledujúci kód vyššie " Timer1_Tick " deklarovať funkciu " GetAsyncKeystate " : 
 
 Public Declare Function GetAsyncKeyState Lib " user32.dll " ( byval vKey ako Int32 ) ako USHORT 
 4 
 Zadajte nasledujúci kód pod " Timer1_Tick " zachytiť klávesov zadali , keď je spustená aplikácia : 
 
 Dim keyResult As Integer 
 
 Dim chrKey As String 
 
 Dim i As Integer 
 
 i = 2 až 90 
 
 keyResult = 0 
 
 keyResult = GetAsyncKeystate ( i ) 
 
 Ak keyResult = -32767 Potom 
 
 chrKey = Chr ( i ) 
 
 MsgBox ( chrKey ) 
 
exit na predaj
 End If 
 
 Next i 
 klipart 5 
 Stlačte " F5 " pre spustenie programu , potom stlačte tlačidlo " B " na klávesnici a uvidíte okno s hlásením sa zobrazí písmenom " B "