Título: producir un evento mientras piensa Publicado por: fraktal en 2 Octubre 2006, 12:10 pm Hola, quedria saber si en visual basic se produce algun evento cuando la maquina esta realizando una accion y aprovecharlo pues para hacer cualquier cosa, como cambiar el icono al reloj de arena etc. O si no se produce ningun evento como hacerlo. Pongamos por caso, que tengo un boton, y con ese boton abro un archivo asi.
open cd.filename for binary as #1 file = len(cd.filename) get #1, , file close #1 bien pues esto si escojo un archivo grande, el formulario en cuestion se queda el rato que esta trabajando digamos que casi bloqueado, osea la sensacion visual que da es que sa quedado pillado aunque no es asi. Y eso quisiera saber si en este momento se produce algun evento o como podria hacer para que el formulario se quedase intacto (dado que si cargas el archivo con un common dialog al abrirlo digamos k no se actualiza completamente el formulario de abajo mientras inicia la carga), y eso para que quede el formulario bien, o poner que se cambie el icono, o incluso una barra de prgreso mientras carga, etc. Gracias y saludos. Título: Re: producir un evento mientras piensa Publicado por: _Sergi_ en 2 Octubre 2006, 13:44 pm Sólo tienes que usar la propiedad MousePointer.
Por ejemplo Código: Private Sub Command1_Click() En el caso de que quisieras utilizar un icono personalizado, sería algo así Código: Screen.MouseIcon = LoadPicture("C:\Test\Cursor.cur") También puedes cursores desde archivos externos. Como sabes VB 6 no incluye el cursor de la mano; lo podrías usar de éste modo: Código: 'En un módulo Bien, lo mismo que te dije se aplica a las barras de progreso. Simplemente, cada vez que se complete un proceso, súmale un número a la propiedad Value de la ProgressBar Por ejemplo Código: 'Empieza el proceso Y para terminar, aclararte que no se produce ningún evento mientras VB6 realiza una acción. Un saludo Título: Re: producir un evento mientras piensa Publicado por: fraktal en 2 Octubre 2006, 14:06 pm Gracias sergi, me ha quedado muy claro. Gracias. S2.
|