Avviare Microsoft Visual Basic Express. Fare clic su "Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione Windows Form ". Fare clic su "OK". 
 2 
 doppio click su " Timer" sul riquadro " Casella degli strumenti " per aggiungere un nuovo controllo del timer . Right-click " Timer1 ", quindi selezionare " Proprietà". Accanto a " Enabled ", selezionare "True". . Doppio clic su " Timer1 " per aprire la finestra " Form1.vb " 
 3 
 digitare il seguente codice sopra " Timer1_Tick " per dichiarare la funzione " GetAsyncKeyState " : 
 
 Public Declare Function GetAsyncKeyState Lib " user32.dll " ( ByVal tasto Vper come Int32 ) Come UShort 
 4 
 Digitare il seguente codice in " Timer1_Tick " per catturare i tasti digitati , mentre l' applicazione è in esecuzione : 
 
 Dim keyResult As Integer Dim 
 
 chrKey As String 
 
 Dim i As Integer 
 
 For i = 2 To 90 
 
 keyResult = 0 
 
keyResult = GetAsyncKeyState (i ) per
 keyResult = -32767 Poi 
 
chrKey = Chr (i ) per
MsgBox ( chrKey ) per
 Exit For End If 
 
 
 
 Next i 
 5 
 Premere " F5 " per eseguire il programma , premere "B" sulla tastiera e si vedrà un finestra di messaggio visualizzato con la lettera " B" 
 
              
Programmazione © www.354353.com