La Web del Programador: Comunidad de Programadores
 
    Pregunta:  9545 - PROGRESSBAR PARA LA CARGA DE UNA IMAGEN
Autor:  serinamix
Hola, esta pregunta creo que es un poco, dificil de explicar para mi, pero lo intentare.
Estoy haciendo una pequeña aplicacion que usa Base de Datos de Access aplicadas en Visual Basic, es una aplicacion para gestionar los Discos de Audio, con su Autor, Titulo del disco, canciones y portada, esa es la question.
Al hacer un nuevo ingreso de un disco, pregunto todos los datos, autor, titulo, canciones y portada, pero normalmente la portada ocupa demasiado, y tarda en cargarla, mi pregunta es, no se podria hacer algun tipo de efecto visual mientras se carga la imagen, tipo ProgressBar o con algun Timer mostrando alguna imagen en movimiento, o cualquiero otra cosa, para que el usuario, al ver que tarda en cargar, no piense que se ha colgado la aplicacion, nose si me explico.
Bueno, espero que alguien sepa orientarme un poco, gracias de antemano!

  Respuesta:  Hormiga
Proba poniendo DoEvents al cargar la imagen no me acuerdo bien si es antes o despues de guardarla, proba vos(Ej:

screen.mousepointer = 11 'coloca el reloj de arena tambien podes poner el 13 flecha y reloj de arena
DoEvents 'Indica a VB que siga respondiendo los eventos
picTapa.picture = loadpicture(nArchivo)'Carga el archivo
'... Procedimiento que indica que la aplicacion esta trabajando ...
'listo

Espero que te sirva de ayuda, nos vemos
De nada

  Respuesta:  SuNcO Castañeda
Mira mi chava, lo ke yo hago en esos casos es esto, al darle click para cargar la imagen o algo asi activo esta linea :

Screen.MousePointer = 11

Con eso, el puntero del mouse se pone en espera, si no, entonces activo un timer ke previamente tiene un codigo para ke en x milisegundos se mueva el ProgressBar

Claro ke si kieres hacerlo exacto, entonces deberas leer cuanto mide el archivo y ponerselo como punto maximo al ProgressBar y calcular con alguna division cada cuantos milisegundos va a ir avanzando

PD - Para devolver el cursor a su original pues es el 1