• Domingo 22 de Diciembre de 2024, 10:11

Autor Tema:  Como Crear Un Formulario Que Diga Espere.  (Leído 1212 veces)

seba_m

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Como Crear Un Formulario Que Diga Espere.
« en: Sábado 5 de Marzo de 2005, 22:31 »
0
hola, a todos, les comento que estoy desarrollando un sistema para la facultad, que seria mi seminario, y estoy necesitando ayuda con un problema que me aqueja hace 3 semanas:
Les paso a comentar

Yo utilizo sentencias sql para llenar un recordset por ejemplo rs1, y luego utilizo esta sentencia para llenat un datagrid

Set DataGrid1.DataSource=rs1,

El drama es que a veces tarda 3 a 4 segudnos en cargarse la grilla, y necesito poner un cartel que diga espere por favor cosa que al terminar me meustre la grilla llena, me gustaria usarlo cin un progressbar,

Gracias

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Como Crear Un Formulario Que Diga Espere.
« Respuesta #1 en: Domingo 6 de Marzo de 2005, 06:37 »
0
Usa el siguiente código:

Código: Text
  1.  
  2. 'Mostrar forma que avisa que espere el usuario
  3. frmShowProcess.Show vbModeless
  4. SetWindowPos frmShowProcess.hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags
  5. DoEvents
  6.  
  7. 'el código para llenar datagrid
  8. Set DataGrid1.DataSource=rs1,
  9.  
  10. 'descargar la forma de aviso
  11. SetWindowPos frmShowProcess.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flags
  12. Unload frmSowProcess
  13.  
  14.  
La forma que presenta el aviso de esperar se llama frmShowProcess. Elabórala como tú desees.

Complementa con el siguiente código, que va en un módulo, para que la forma que presenta el aviso aparezca al frente de las demás.
Código: Text
  1.  
  2. '****************************************************************
  3. 'Windows API/Global Declaraciones para :AppOnTop
  4. '****************************************************************
  5. Declare Function SetWindowPos Lib "user32" (ByVal _
  6.        hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X _
  7.        As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy _
  8.        As Long, ByVal wFlags As Long) As Long
  9.  
  10. Global Const SWP_NOMOVE = 2
  11. Global Const SWP_NOSIZE = 1
  12. Global Const Flags = SWP_NOMOVE Or SWP_NOSIZE
  13. Global Const HWND_TOPMOST = -1
  14. Global Const HWND_NOTOPMOST = -2
  15.  
  16.  

 :)