Ejecutar Funcion Combinando tres Teclas

Ejecutar Funcion Combinando tres Teclas

Postby JoseAlvarez » Sat Aug 31, 2024 12:55 pm

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
JoseAlvarez
 
Posts: 795
Joined: Sun Nov 09, 2014 5:01 pm

Re: Ejecutar Funcion Combinando tres Teclas

Postby Armando » Sat Aug 31, 2024 4:27 pm

Estimado José:

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

Code: Select all  Expand view

    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
Armando
 
Posts: 3228
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Ejecutar Funcion Combinando tres Teclas

Postby FranciscoA » Sat Aug 31, 2024 5:22 pm

José, mira si te sirve de guía.
Code: Select all  Expand view
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
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Ejecutar Funcion Combinando tres Teclas

Postby JoseAlvarez » Sat Aug 31, 2024 6:04 pm

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.
User avatar
JoseAlvarez
 
Posts: 795
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 66 guests