Programación General > Visual Basic 6.0 e inferiores

 Como Crear Un Formulario Que Diga Espere.

(1/1)

seba_m:
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:
Usa el siguiente código:


--- Código: Text --- 'Mostrar forma que avisa que espere el usuariofrmShowProcess.Show vbModelessSetWindowPos frmShowProcess.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FlagsDoEvents 'el código para llenar datagridSet DataGrid1.DataSource=rs1, 'descargar la forma de avisoSetWindowPos frmShowProcess.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FlagsUnload frmSowProcess  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 --- '****************************************************************'Windows API/Global Declaraciones para :AppOnTop'****************************************************************Declare Function SetWindowPos Lib "user32" (ByVal _       hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X _       As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy _       As Long, ByVal wFlags As Long) As Long Global Const SWP_NOMOVE = 2Global Const SWP_NOSIZE = 1Global Const Flags = SWP_NOMOVE Or SWP_NOSIZEGlobal Const HWND_TOPMOST = -1Global Const HWND_NOTOPMOST = -2  
 :)

Navegación

[0] Índice de Mensajes