do while .t.
cBanda := ""
do while .t.
tk := inkey(0) <-- Como substituir com o FWH?
if tk == 27 .or. tk == 58 .or. tk == 128 .or. tk == 135
exit
elseif chr(tk) $ "0123456789"
cBanda += chr(tk)
endif
enddo
do while inkey(0.1) != 0; enddo <-- Como substituir com o FWH?
if tk == 27
return
endif
if len(cBanda) == 30
keyb cBanda
return
endif
enddo
Meus sinceros agradecimentos a quem puder ajudar!
La funci贸n Inkey() no se usa en Windows ni en FWH. Inkey() tiene sentido en MsDos en donde la ejecuci贸n es modal, pero no tiene sentido en Windows, en donde la aplicaci贸n nunca se puede "detener", 贸 bloquear铆a todo Windows.
El objeto que tenga el foco recibir谩 los eventos de teclado y puedes analizarlos usando <oControl>:bKeyDown 贸 <oControl>:bKeyChar. Si no tienes controles definidos, pues usar铆as <oDialog> 贸 <oWindow> en vez de <oControl>
Explica lo que intentas hacer.
Un lector de c贸digo de barras ?
Gracias Antonio, o que desejo fazer 茅 capturar a leitura de um leitor de cheques, conectado a PS2.
Ou seja uma dialog que fica esperando passar o cheque no leitor, e quando isso acontecer deve fechar a dialog. Bom resolvi temporariamente colocando um get na dialog, por茅m, n茫o 茅 o que eu queria pois n茫o quero deixar a pessoa ter acesso a digitar.
como fiz:
cBanda := ""
DEFINE DIALOG oMFW RESOURCE "LEITURADECHEQUES" TITLE "Cheques pela Banda ICON OICO FONT ownd:ofont
REDEFINE GET oLeget var nVarLe id 4004 of oMFW VALID !EMPTY(nVarLe) .and. (lLido:=.t.,oMFW:end(),.t.)
REDEFINE BUTTONBMP ID 4002 OF oMFW BITMAP "EXIT4" TEXTLEFT ACTION(oMFW:end()) default
oMFW:lHelpicon:=.F.
ACTIVATE DIALOG oMFW centered
gracias Antonio
