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