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 "