Esto no te sirve ? en Form1:
Private Sub Form_Load() Form2.Show Form2.SetFocus DoEvents <TU CONSULTA A LA BASE DE DATOS> Unload Form2 End Sub ----- Original Message ----- From: Gustavo Martucci To: vbusers List Member Sent: Tuesday, February 13, 2007 3:14 PM Subject: [vbusers] mostrar mensaje con un formolario modal que se esta abriendo Marcelo. asi como lo queres hacer no va a ser posible. No se exactamente como lo haces. pero la idea es que uses el formulario modal en cuyo load tenes el codigo de la consulta como cartel. Para ello. saca el codigo del load y ponelo en una funcion. Quizas lo mejor es poner un boton en ese formulario para ejecutar el procedimiento. onda preguntando si esta seguro que desea ejecutar la consulta que va a tardar mucho. y ahí te evitas el problema. Si no queres preguntar nada. hay que hacer algo medio "tramposo" que es poner un doevents en el load (esperando que se de lugar a que se termine de mostrar el formulario) y ejecutar la funcion que contiene la consulta desde el form_activate. no se si es lo mas recomendable. pero puede funcionar. sino. la otra forma es poner la ejecución de la funcion desde un timer que este en el formulario.. Esto ya es alta cocina. pero si sirve. Saludos. Gustavo ------------------------------------------------------------------------------ De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de microinf Enviado el: Martes, 13 de Febrero de 2007 10:35 a.m. Para: vbusers List Member Asunto: [vbusers] mostrar mensaje con un formolario modal que se esta abriendo Hola gente ... los consulto a los expertos de visual basic, porque necesito mostrar un cartel "Por favor aguarde unos instantes ... " mientras una consulta costosa a la base de datos se completa. el tema que tengo es que el form donde esta consulta se resuelve es en el evento load del formulario modal, y si abro otro formulario modal antes de esa ejecucion me congela la aplicacion (porque no he cerrado el segundo) , y si intento abrir un form no modal, no lo muestra. alguno me puede aportar alguna idea. saludos, y un abrazo. Marcelo. -- Este mensaje ha sido analizado por MailScanner en busca de virus y otros contenidos peligrosos, y se considera que está limpio. MailScanner agradece a transtec Computers por su apoyo. ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 12/02/2007 13:23 PM
