MIra, este el el codigo de la ventana splash:

Private Const REG_SZ As Long = 1
Private Const REG_DWORD As Long = 4

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

'Dim Oreg As Registro
'Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Private Sub Form_Load()
lblVersion.Caption = "Versión 2.0" '& App.Major & "." & App.Minor & "." &
App.Revision
lblProductName.Caption = "Sistema EGCN10" 'App.Title
'Timer1.Interval = 3000 '1000 por segundo aprox.

Timer1.Interval = regs * 10
Timer1.Enabled = True
Timer2.Interval = 200 '1000 por segundo aprox.
Timer2.Enabled = True



End Sub

Private Sub Frame1_Click()
Unload Me
End Sub


Private Sub Timer1_Timer()
Set Oreg = New Registro


'formnota_inicial.Show vbModal
'Lblinicializando = texto_inicial(Lblinicializando)
Unload Me
Set forminicio = Nothing
'formnota_inicial.Show vbModeless
End Sub

Private Sub Timer2_Timer()
Set Oreg = New Registro

Lblinicializando = texto_inicial(Lblinicializando)
End Sub


El campo regs me guarda la cantidad de registros de la tabla, con ello busco que
la ventana splash se mantenga abierta hasta que el procedimiento lea toda la
tabla y calcule los negativos. El procedimiento que lo hace se llama
"evalua_saldo" y lo tengo declarado en el otro formulario, pero quisiera saber
en que punto de este codigo lo llamo para que se ejecute en el intervalo de
tiempo del timer (timer_1). Uso la variable regs, si alguien puede sugerirme
otra manera de saber cuando debo cerrar la splash lo agradezco.
Texto_inicial es una función que simplemente despliega el mensaje que indica que
la aplicación se esta inicializando.

--- En DesarrolloVB@..., Miguel <sololistas@...> escribió:
>
> Hola, deberias de hacer la consulta en el formulario splash y luego de
> terminada la misma, pasar los resultados al otro formulario, abrir y
> cerrar los formularios respectivamente.
> Espero que te sirva, saludos.
>
> ericcdraven escribió:
> >
> > Es justo eso lo que tengo, POr un lado la pantalla splash que tiene el
> > icono y es donde se debe ir mostrando el letrero de "ejecutando
> > reporte", "cargando", etc, y otro formulario o ventana donde se carga
> > el resultado de la consulta. En este ultimo es donde tengo el
> > procedimiento que lee la base de datos y va cargando en el formulario
> > la información de los articulos con stock negativo.
> > El problema esta en que no logro sincronizar el splash y el otro
> > formulario. En la splash tengo dos timer, pero ni asi.
> >
> > AGradeceria si puedieras pasarme un codigo ejemplo con el cual
> > guiarme. AH, y los timer los manejo, pero los delays no, estos como van?
> >
> > --- En DesarrolloVB@...
> > <mailto:DesarrolloVB%40gruposyahoo.com.ar>, "Eric Pap" <ericpap@>
> > escribió:
> > >
> > > Hola. La pantalla de presentacion la podes hacer con el timer. Una vez
> > > transcurridos n segundos la haces desaparecer. Luego de esto tenes
> > varias
> > > opciones. Podes usar el evento queryUnload del form de presentacion para
> > > disparar la ventana que verifica los inventarios. Si queres que la
> > consulta
> > > de inventario trabaje mientras ves el Splash, lo que podes hacer es
> > abrir el
> > > recordset mientras mostras la ventana y luego en el queryunload
> > mostrar la
> > > ventan con el resultado.
> > >
> > > Para mi lo mejor es trabajar con banderas. O sea algo asi (Metacodigo)
> > >
> > >
> > >
> > > Mostrar splash
> > >
> > > Mostrar texto en splash que diga "calculando stock negativo"
> > >
> > > Abrir consulta que calcula stock
> > >
> > > Mostrar texto en splash "ejecutando paso dos"
> > >
> > > Ejecutar paso dos
> > >
> > > …
> > >
> > > Mostrar texto en splash "Terminada inicializacion"
> > >
> > > Esperar unos segundos
> > >
> > > Ocultar Splash
> > >
> > > Mostrar ventana de resultados
> > >
> > > Fin
> > >
> > >
> > >
> > > Podes poner unos delays en el medio para asegurarte que se vea la
> > ventana
> > >
> > > Espero que te sirva
> > >
> > > Saludos Eric
> > >
> > >
> > >
> > > _____
> > >
> > > De: DesarrolloVB@...
> > <mailto:DesarrolloVB%40gruposyahoo.com.ar>
> > [mailto:DesarrolloVB@...
> > <mailto:DesarrolloVB%40gruposyahoo.com.ar>]
> > > En nombre de ericcdraven
> > > Enviado el: lunes, 09 de marzo de 2009 09:53
> > > Para: DesarrolloVB@...
> > <mailto:DesarrolloVB%40gruposyahoo.com.ar>
> > > Asunto: [VB] ayuda con una pantalla inicial
> > >
> > >
> > >
> > > hola, este es mi primer post en el grupo y aunque no es para algo muy
> > > complejo quisiera saber si me puede ayudar alguien aqui.
> > > Tengo un programa que he creado con visual basic 6. El programa
> > interactua
> > > con una base de datos MYSQL. El programa me maneja las existencias en
> > > inventario.
> > > Lo que hago cuando inicia el programa es recorrer la base de datos para
> > > detectar si hay algun articulo con existencias negativas. Al hacerlo y
> > > terminar se carga un formulario donde se muestran los resultados.
> > > Lo que quiero hacer es que me cargue antes de ello una ventana de
> > > presentacion, donde esta el nombre de la aplicación y demas, además
> > que me
> > > muestre un mensaje que diga que esta cargando la aplicación, es decir,
> > > además de los procesos que esta ejecutando. Y que se mantenga en
> > pantalla
> > > hasta que termine de hacer el barrido de la BD y que una vez se
> > cierre esta
> > > ventana abra el formulario con el resultado de los productos en
> > negativo que
> > > haya encontrado.
> > > Por favor, si alguien puede ayudarme con ello lo agradeceria mucho.
> > > Por ahora intento hacerlo con un timer en la pantalla inicial pero
> > no logro
> > > hacer que haya sincronia entre las dos ventanas...
> > >
> > >
> > >
> > >
> > >
> > > No virus found in this incoming message
> > > Checked by PC Tools AntiVirus (5.0.0.10 - 10.100.095).
> > > http://www.pctools.com/free-antivirus/
> > <http://www.pctools.com/free-antivirus/>
> > >
> > > No virus found in this outgoing message
> > > Checked by PC Tools AntiVirus (5.0.0.10 - 10.100.095).
> > > http://www.pctools.com/free-antivirus/
> > <http://www.pctools.com/free-antivirus/>
> > >
> >
> >
>