FiveTech Software tech support forums

Senza un esempio minimale e compilabile del problema è molto difficile aiutarti. Comunque, se ho capito bene, prova a sostituire IF LASTKEY() = 27 oDlg:End() ENDIF con IF GETKEYSTATE( VK_ESCAPE ) oDlg:End() ENDIF EMG Caro Enrico, ti ringrazio, ho risolto; sol...

Senza un esempio minimale e compilabile del problema è molto difficile aiutarti. Comunque, se ho capito bene, prova a sostituire

Code: Select all  Expand view

IF LASTKEY() = 27
    oDlg:End()
ENDIF

con

Code: Select all  Expand view

IF GETKEYSTATE( VK_ESCAPE )
    oDlg:End()
ENDIF

EMG

Allora cerca di fare un esempio chiaro del tuo problema perché da quello che hai riportato non si capisce assolutamente. EMG Caro Enrico, ho messo su questo link un documento in PDF dove spero di aver spiegato meglio il problema : http://www.kompasso.it/sito/ControlloESC.pdf Il problema mi sembrava...

Allora cerca di fare un esempio chiaro del tuo problema perché da quello che hai riportato non si capisce assolutamente.

EMG

Per prima cosa devi tenere presente che fintanto che una DIALOG è visualizzata l'esecuzione si trova bloccata nel comando ACTIVATE DIALOG (più o meno come succedeva in Clipper con il comando READ). EMG Io faccio esattamente questo, solo che se clicco sul bottone Uscita lui mi attiva il comando oDlg...

Per prima cosa devi tenere presente che fintanto che una DIALOG è visualizzata l'esecuzione si trova bloccata nel comando ACTIVATE DIALOG (più o meno come succedeva in Clipper con il comando READ).

EMG

Non riesco a capire perchè con la pressione del tasto ESC non riesco ad uscire da un DO WHILE ... ENDDO. Di seguito il codice DO WHILE .T. SEL_AZI(V_AZICOD,V_AZIRAGIO1,V_AZIRAGIO2,V_AZIANNOCO) IF V_AZICOD = 0 EXIT ENDDO DO WHILE .T. DEFINE DIALOG oDlg RESOURCE "DOCUMENTI" TITLE "Elenco Documenti" . ...