Siempre activo

[tragantras]

Hola, quiero hacer un programa que cuando se pulse la tecla por ejemplo la a me aparezca un mensaje en plan hola, hasta ahi bien pero, lo que quiero esque aparezca el mensaje estando el programa o no maximizado y en primera plana.

Por ejemplo estas jugando a cualkier juego en pantalla completa pues quiero que al pulsar esa tecla aparezca el mensajito.

Gracias por adelantado, sois unos makinas ^^

[Zion_Tm]

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    MsgBox "hola"
    End If
End Sub


Algo asi ? .. . .al pulsar ENTER te salta el mensaje.

[700esoj]

creo que el lo quiere invisible, solo para que cuando alguien quiera jugar o algo al precionar la tecla a le aparesca el mensaje.

private sub form1_load()
form1.vbhide
end sub

 o algo asi, no conosco mucho lo de hide

[zXxOsirisxXz]

Hola, quiero hacer un programa que cuando se pulse la tecla por ejemplo la a me aparezca un mensaje en plan hola, hasta ahi bien pero, lo que quiero esque aparezca el mensaje estando el programa o no maximizado y en primera plana.

Por ejemplo estas jugando a cualkier juego en pantalla completa pues quiero que al pulsar esa tecla aparezca el mensajito.

Gracias por adelantado, sois unos makinas ^^

Buenas tragantras.

Tal vez lo que buscas sea esto:

Private Declare Function GetAsyncKeySta te Lib "user32" _
    (ByVal vKey As Long) As Integer


Private Sub Timer1_Timer()
If GetAsyncKeySta te(vbKeyA) Then
MsgBox "Hola"
End If
End Sub

No se si funcionaria en juegos Full-Screen, pero si funciona minimizado y eso.

Salu2

[Ther0x]

Lo que él quiere es que el programa salte cada vez que se pulsa esa tecla. eso lo haces con:

Código:

msgbox "hola", vbcritical

el problema es que si el programa está minimizado u oculto, no podrá guardar las teclas pulsadas


salu2

[crypto136]

Agregar un timer y ponerle de intervalo "1" con este no importa si esta minimizado u oculto

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Form1.Hide
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
msgbox "Hola", vbcritical
End If
End Sub

[zXxOsirisxXz]

Lo que él quiere es que el programa salte cada vez que se pulsa esa tecla. eso lo haces con:

Código:

msgbox "hola", vbcritical

el problema es que si el programa está minimizado u oculto, no podrá guardar las teclas pulsadas


salu2

pero si funciona minimizado

[tragantras]

Muchas grcias a to2, lo k keria era hacer que el mensaje saltase aun cuando el programa no estaba en primera, osea cuando estas juagndo o haciendo otra cosa, ahora probare ^^