18/03/08 7:17
Ecco qui come simulare una pressione di un tasto:
In Un Modulo:
Nel Form:
Questo è il codice per Simulare la pressione del tasto.. no so come si dice barra spaziatrice.. forse VbKeySpace...
Spero di averti aiutato..
In tutto sono 240€
In Un Modulo:
Public Const KEYEVENTF_EXTENDEDKEY = &H1 'pressione del tasto (keyDown) Public Const KEYEVENTF_KEYUP = &H2 'rilascio del tasto premuto (keyUp)
Nel Form:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) _______________________________________________ Private Sub timer1_timer() keybd_event vbKeyY, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "y" keybd_event vbKeyY, 0, KEYEVENTF_KEYUP, 0 'simula il rilascio del tasto "y" End Sub
Questo è il codice per Simulare la pressione del tasto.. no so come si dice barra spaziatrice.. forse VbKeySpace...
Spero di averti aiutato..
In tutto sono 240€