Hola:
Muchas veces creo el siguiente código:
if MsgYesNo("Está de acuerdo...")
Cursorwait()
::MiMetodo()
CursorArrow()
endif
Claro está, lo que el usuario ve mientras que se ejecuta el método es el cursor con el relojito, a mi me gustaría que se viera un mensaje al estilo "Espere mientras se ejecuta el método".
Cómo lo podría hacer.
Muchas gracias.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Una duda
-
jrcpoli-quitar
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Una duda
Saludos:
Mira esta secuencia:
IF ::oDBBPlanConc:KeyCount() > 0
** Posicionando los Browses
WaitOn( "Espere por favor...", "Posicionandose")
** Se posiciona en el último registro
::oDBBPlanConc:GoBottom()
** Hace un Scope sobre la
** base de datos de Carreras
::SeleccCarrera()
** Si el Browse de Carreras tiene registros
IF ::oDBBCarreras:KeyCount() > 0
** Se posiciona en último registro
::oDBBCarreras:GoBottom()
** Hace un Scope sobre la
** base de datos de Relojes
::SeleccConc()
** Si el Browse de Relojes tiene registros
IF ::oDBBReloj:KeyCount() > 0
** Se posiciona en el primer registro
::oDBBReloj:GoTop()
** Hace un Scope sobre la
** base de datos de Llegadas
::SeleccPalomas()
*
ENDIF
ENDIF
*
WaitOff()
ENDIF
Las funciones WaitOn() y WaitOff hacen lo que necesitas, los puedes
encontrar en el fichero de mensajes "Messages.prg" que publico Bingen
busca en el las dos funciones y implementalas o añade a tu programa el
prg y usaló.
José Ramón Castro.
El 04/05/2012 13:05, Emilio Gil escribió:
> Hola:
>
> Muchas veces creo el siguiente cíƒÂ³digo:
>
> if MsgYesNo("Est탡 de acuerdo...")
>
> Cursorwait()
>
> ::MiMetodo()
>
> CursorArrow()
>
> endif
>
> Claro est탡, lo que el usuario ve mientras que se ejecuta
> el míƒÂ©todo es el cursor con el relojito, a mi me gustaríƒÂa
> que se viera un mensaje al estilo "Espere mientras se
> ejecuta el míƒÂ©todo".
>
> CíƒÂ³mo lo podríƒÂa hacer.
>
> Muchas gracias.
>
--
Mira esta secuencia:
IF ::oDBBPlanConc:KeyCount() > 0
** Posicionando los Browses
WaitOn( "Espere por favor...", "Posicionandose")
** Se posiciona en el último registro
::oDBBPlanConc:GoBottom()
** Hace un Scope sobre la
** base de datos de Carreras
::SeleccCarrera()
** Si el Browse de Carreras tiene registros
IF ::oDBBCarreras:KeyCount() > 0
** Se posiciona en último registro
::oDBBCarreras:GoBottom()
** Hace un Scope sobre la
** base de datos de Relojes
::SeleccConc()
** Si el Browse de Relojes tiene registros
IF ::oDBBReloj:KeyCount() > 0
** Se posiciona en el primer registro
::oDBBReloj:GoTop()
** Hace un Scope sobre la
** base de datos de Llegadas
::SeleccPalomas()
*
ENDIF
ENDIF
*
WaitOff()
ENDIF
Las funciones WaitOn() y WaitOff hacen lo que necesitas, los puedes
encontrar en el fichero de mensajes "Messages.prg" que publico Bingen
busca en el las dos funciones y implementalas o añade a tu programa el
prg y usaló.
José Ramón Castro.
El 04/05/2012 13:05, Emilio Gil escribió:
> Hola:
>
> Muchas veces creo el siguiente cíƒÂ³digo:
>
> if MsgYesNo("Est탡 de acuerdo...")
>
> Cursorwait()
>
> ::MiMetodo()
>
> CursorArrow()
>
> endif
>
> Claro est탡, lo que el usuario ve mientras que se ejecuta
> el míƒÂ©todo es el cursor con el relojito, a mi me gustaríƒÂa
> que se viera un mensaje al estilo "Espere mientras se
> ejecuta el míƒÂ©todo".
>
> CíƒÂ³mo lo podríƒÂa hacer.
>
> Muchas gracias.
>
--