Nonono, eso no te va a servir. Ese codigo lo que hace es elegir frases aleatorias y si se presiona la tecla enter la envia con sendkeys.
Algo adaptado a lo que necesitas seria:
La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer.
Saludos.-
Algo adaptado a lo que necesitas seria:
Código:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
Realizamos la accion deseada...
End If
End Sub
La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer.
Saludos.-
Muchas gracias, la verdad que era eso lo q estaba buscando. EDIT: Ya solucione el problema que tenia
Desde ya, gracias nuevamente.
Saludos,
Gastón.-