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 ...

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



con



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 :

m

Il problema mi sembrava molto semplice (fra l'altro in ...

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 ...

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 ...