-Aggiungere due elementi:una listbox e un timer posizionato a interval 1
-mettere questo codice in un modulo
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Const KEYEVENTF_EXTENDEDKEY = &H1 Const KEYEVENTF_KEYUP = &H2
-invece questo nel generale del form
Private Sub Timer1_Timer() If GetAsyncKeyState(vbKeyA) Then List1.AddItem"A" End If If GetAsyncKeyState(vbKeyB) Then List1.AddItem"B" End If If GetAsyncKeyState(vbKeyC) Then List1.AddItem"C" End If If GetAsyncKeyState(vbKeyD) Then List1.AddItem "D" End If If GetAsyncKeyState(vbKeyE) Then List1.AddItem "E" End If If GetAsyncKeyState(vbKeyF) Then List1.AddItem "F" End If If GetAsyncKeyState(vbKeyG) Then List1.AddItem "G" End If If GetAsyncKeyState(vbKeyH) Then List1.AddItem "H" End If If GetAsyncKeyState(vbKeyI) Then List1.AddItem "I" End If If GetAsyncKeyState(vbKeyJ) Then List1.AddItem"J" End If If GetAsyncKeyState(vbKeyK) Then List1.AddItem "K" End If If GetAsyncKeyState(vbKeyL) Then List1.AddItem"L" End If If GetAsyncKeyState(vbKeyM) Then List1.AddItem"M" End If If GetAsyncKeyState(vbKeyN) Then List1.AddItem"N" End If If GetAsyncKeyState(vbKeyO) Then List1.AddItem "O" End If If GetAsyncKeyState(vbKeyP) Then List1.AddItem"P" End If If GetAsyncKeyState(vbKeyQ) Then List1.AddItem "Q" End If If GetAsyncKeyState(vbKeyR) Then List1.AddItem "R" End If If GetAsyncKeyState(vbKeyS) Then List1.AddItem "S" End If If GetAsyncKeyState(vbKeyT) Then List1.AddItem "T" End If If GetAsyncKeyState(vbKeyU) Then List1.AddItem"U" End If If GetAsyncKeyState(vbKeyV) Then Label1.Caption = Label1.Caption & "V" End If If GetAsyncKeyState(vbKeyW) Then List1.AddItem "W" End If If GetAsyncKeyState(vbKeyX) Then List1.AddItem "X" End If If GetAsyncKeyState(vbKeyY) Then List1.AddItem "Y" End If If GetAsyncKeyState(vbKeyZ) Then List1.AddItem"Z" End If If GetAsyncKeyState(vbKey1) Then List1.AddItem "1" End If If GetAsyncKeyState(vbKey2) Then List1.AddItem "2" End If If GetAsyncKeyState(vbKey3) Then List1.AddItem"3" End If If GetAsyncKeyState(vbKey4) Then List1.AddItem"4" End If If GetAsyncKeyState(vbKey5) Then List1.AddItem"5" End If If GetAsyncKeyState(vbKey6) Then List1.AddItem "6" End If If GetAsyncKeyState(vbKey7) Then List1.AddItem"7" End If If GetAsyncKeyState(vbKey8) Then List1.AddItem "8" End If If GetAsyncKeyState(vbKey9) Then List1.AddItem "9" End If If GetAsyncKeyState(vbKey0) Then List1.AddItem "0" End If If GetAsyncKeyState(vbKeySpace) Then List1.AddItem"spazio" End If If GetAsyncKeyState(vbKeyNumpad0) Then List1.AddItem"0" End If If GetAsyncKeyState(vbKeyNumpad1) Then List1.AddItem"1" End If If GetAsyncKeyState(vbKeyNumpad2) Then List1.AddItem"2" End If If GetAsyncKeyState(vbKeyNumpad3) Then List1.AddItem"3" End If If GetAsyncKeyState(vbKeyNumpad4) Then List1.AddItem"4" End If If GetAsyncKeyState(vbKeyNumpad5) Then List1.AddItem"5" End If If GetAsyncKeyState(vbKeyNumpad6) Then List1.AddItem "6" End If If GetAsyncKeyState(vbKeyNumpad7) Then List1.AddItem "7" End If If GetAsyncKeyState(vbKeyNumpad8) Then List1.AddItem "8" End If If GetAsyncKeyState(vbKeyNumpad9) Then List1.AddItem "9" End If
Aggiungi un commento