topic-17466

Board index FiveWin para Harbour/xHarbour PARAR WHILE... ENDDO CON ESCAPE

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

PARAR WHILE... ENDDO CON ESCAPE
Posted: Wed Nov 25, 2009 03:02 PM

Buenos dias maestros,

Por favor, como hago para parar un WHILE...ENDDO en tiempo de ejecucion?

WHILE .NOT. EOF()

     IF nKey = VK_ESCAPE  //-> no funciona
           EXIT
     ENDIF

     Continue 

ENDDO

Gracias

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

Re: PARAR WHILE... ENDDO CON ESCAPE
Posted: Wed Nov 25, 2009 03:11 PM

Hola compañero!

Prueba a ponerle un Inkey( 0.5 ) dentro del do while y luego puedes preguntar por un if LastKey() = 27 para interrumpirlo. Si no encuentras la manera busco un ejemplillo que a mi me funcionaba.
Era algo así como:

Code (fw): Select all Collapse

WHILE .NOT. EOF()

     InKey( 0.5 )

     IF LastKey() = VK_ESCAPE  //-> no funciona
           EXIT
     ENDIF

ENDDO

Saludos!

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: PARAR WHILE... ENDDO CON ESCAPE
Posted: Wed Nov 25, 2009 03:38 PM

prueba esto

cls

do while .t.
inkey(0.5)
if lastkey()=27
exit
endif
Enddo

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: PARAR WHILE... ENDDO CON ESCAPE
Posted: Wed Nov 25, 2009 04:49 PM

triumvirato wrote:Hola compañero!

Prueba a ponerle un Inkey( 0.5 ) dentro del do while y luego puedes preguntar por un if LastKey() = 27 para interrumpirlo. Si no encuentras la manera busco un ejemplillo que a mi me funcionaba.
Era algo así como:
Code (fw): Select all Collapse
WHILE .NOT. EOF()

     InKey( 0.5 )

     IF LastKey() = VK_ESCAPE  //-> no funciona
           EXIT
     ENDIF

ENDDO
Saludos!

Hola compañero!

Mil gracias, funcionó perfecto.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion