FiveTech Software tech support forums

Armando wrote:Enrico:

In my example

GetAsyncKey(VK_SHIFT,VK_TAB)

Works fine.

Please try with

Code: Select all  Expand view

GetAsyncKey(VK_SHIFT)

It should be the same.

Enrico:

In my example

GetAsyncKey(VK_SHIFT,VK_TAB)

Works fine.

If I push the TAB key only, the focus jumps to the next GET, but
If I push both keys, VK_SHIFT + VK_TAB, the focus jumps to the previous GET.

Regards

Armando wrote:Jimmy:

Here is an other sample

IF GetAsyncKey(VK_UP) .OR.;
GetAsyncKey(VK_SHIFT,VK_TAB)
RETURN (.T.)
ENDIF

Regards

GetAsyncKey() takes only one argument.

Jimmy:

Here is an other sample

IF GetAsyncKey(VK_UP) .OR.;
GetAsyncKey(VK_SHIFT,VK_TAB)
RETURN (.T.)
ENDIF

Regards

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... i'am not able !! :-( This is my example: define timer otime interval 50 action myfunc() of mainwnd activate timer otime . . . function myfunc if getasynckey(119) * F8 pressed HERE i need to write a BMP file with all the present screen endif return nil * ANY HELP ? tks all ROMEO/zingoni

... TSButton If nLastKey > 0 .and. nLastKey == ::nWakeup ::nWakeup := 0 EndIf If ( ! ::oWnd:lValidating .and. ::lCancel .and. ::cAccel != Nil .and. GetAsyncKey( VK_MENU ) .and. ; GetAsyncKey( Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == 0 ) ::SendMsg( FM_CLICK ) Return 1 ElseIf (! ::oWnd:lValidating ...

... para buscar y nada. Gracias. static function BuscaDato(oBUSCAR,aVent,cKey) local nSeekRec:=recno(),lDesp:=.t.,nSeekNvo,nOrdAnt MsgAlert(nKey) if GetAsyncKey(VK_BACK) cKey:=substr(cKey,1,len(cKey)-1) endif cKey:=left(cKey,len(cKey)-1) nOrdAnt:=OrdSetFocus(aBUSCAR[1]) dbseek(cKey,.t.) nSeekNvo:=recno() ...

... aVar[7,2] PICTURE "99999.999" ID 109 OF oDlg COLOR CLR_MAGENTA, CLR_HGRAY // Precio ... ... Activate Dialog oDlg CENTERED Valid if(GetASyncKey(VK_ESCAPE),.F.,.T.) 1. Leer (ReadComm->Robert Frank) por puerto serial(scanner) el codigo de barras y pasarlo al -> campo(aVar[26,2]t) ...

... aVar[7,2] PICTURE "99999.999" ID 109 OF oDlg COLOR CLR_MAGENTA, CLR_HGRAY // Precio ... ... Activate Dialog oDlg CENTERED Valid if(GetASyncKey(VK_ESCAPE),.F.,.T.) - No entiendo como FW24 se vincula o interactua el EVENTO de la lectura del scanner(ReadComm y lo demas....) con el ...

Adolfo: Tal vez las funciones GetKeyState() y GetAsyncKey() te sirvan, por ejemplo algo así: IF GetAsyncKey(VK_UP) .OR.;    GetAsyncKey(VK_SHIFT,VK_TAB)    tu código......ENDIFIF GetKeyState(VK_UP) .OR.;    GetKeyState(VK_SHIFT,VK_TAB)  ...

Ola Aida,

Tive este tipo de problema e resolvi assim:

redefine oget[1] var ...
oGet[1]:blostfocus:={|| if(GetASyncKey(VK_RETURN),xsetfocus(oGet[2]),nil)}
redefine oget[2] var ...

Espero ter ajudado

... que faltaban. Parece que había mucha copia directa sin corregir, desde los chm de FiveWin. Ahora ya está bien. GetActiveWindow() GetAllWin() GetASyncKey() Getbkcolor() GetCapture() GetCaretPos() GetClassName() GetClientRect() GetClpData() GetCommError() GetCoors() Getcpu() GetCpuSpeed() GetCtrlId() ...

... .OR. GetKeyState(VK_UP) RETURN END Pressing one from the keys (also very short) executes always RETURN , nothing is updated DO WHIL GetAsyncKey(VK_DOWN) .OR. GetAsyncKey(VK_UP) END This works partially , pressing one from the keys the program continues only when the key is released. ...

DESVIA PARA UNA FUNCTION()

IF GETASYNCKEY( VK_UP )

RETURN( . F. )

ENDIF

RETURN( .T. )

TIENE QUE TENER MAS DE UNO GET EN EL DIALOGO.