Ejecutar Funcion Combinando tres Teclas

Post Reply
User avatar
JoseAlvarez
Posts: 807
Joined: Sun Nov 09, 2014 5:01 pm

Ejecutar Funcion Combinando tres Teclas

Post by JoseAlvarez »

Hola a todos, amigos del foro.

¿Cómo puedo ejecutar una función desde cualquier parte de mi sistema presionando la combinación de tres teclas?

Por ejemplo: ALT + SHIFT + F8
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: Ejecutar Funcion Combinando tres Teclas

Post by Armando »

Estimado José:

Yo lo hago así con dos teclas, tal vez agregando una mas?

Code: Select all | Expand

    IF  GetAsyncKey(VK_F2,VK_F12)
        TuFuncion()
    ENDIF
 
Desde luego debe ser en un GET

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
FranciscoA
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Ejecutar Funcion Combinando tres Teclas

Post by FranciscoA »

José, mira si te sirve de guía.

Code: Select all | Expand

 if(GetKeyState(VK_CONTROL) .AND. GetKeyState(VK_SHIFT) .AND. GetKeyState(VK_TAB), TuFunc(),)
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
JoseAlvarez
Posts: 807
Joined: Sun Nov 09, 2014 5:01 pm

Re: Ejecutar Funcion Combinando tres Teclas

Post by JoseAlvarez »

Estimados amigos.

El código de armando me funcionó pero solo con 2 teclas.

El de Francisco funcionó bien con las teclas indicadas.

Muchas Gracias a Ambos. !!
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
Post Reply