Curso de VB II

En un formulario nuevo insertar dos Picture Box. Cargar en uno de ellos una imagen (por ejemplo guardia.jpg). Utilizar el otro como ventana de zoom para pulsaciones del botón izquierdo del ratón sobre la imagen. Llamarlo Ejemplo02.  

Descargar guardia.jpg

Nota: Eventos relacionados con el ratón: Visual Basic tiene cuatro eventos relacionados con el clic del ratón. El evento MouseDown se produce cuando el usuario pulsa un botón del ratón. El objeto sobre el que se encuentra el puntero del ratón captura el ratón. Esto significa que el objeto recibe todos los eventos de ratón, incluyendo el evento MouseUp cuando el botón del ratón es liberado (aun cuando el ratón se haya apartado del objeto mientras el ratón estaba pulsado). El evento Click, sin embargo, es generado sólo si los eventos MouseDown y MouseUp se producen sobre el objeto. Si el ratón es apartado del objeto antes de liberar el botón, el objeto recibe un evento MouseDown y MouseUp, pero no un evento Click. Si el botón es liberado sobre el objeto, entonces el evento ocurre en el orden MouseDown, MouseUp, Click. Si hacemos doble clic sobre un objeto, el orden de eventos es MouseDown, MouseUp, DblClick, MouseUp.

Nota: Una vez insertados los dos picture box y cargado uno de ellos con una imagen, suponer que el que tiene la imagen se llama caja1 y el otro caja2. Conviene que en el Load del formulario ajustemos los tamaños y posiciones de los objetos.

Observar que se definen dos constantes (Alto y Ancho) que utilizaremos más adelante para definir el tamaño del recuadro a visualizar aumentado de tamaño.

Para interceptar la pulsación del botón izquierdo del ratón, usaremos el evento Mouse_Up que nos permite seleccionar el botón pulsado.

Una vez que disponemos de las coordenadas X e Y pulsadas por el usuario, tenemos que crear un cuadrado virtual cuyo centro sean esas coordenadas, de forma que sea el que enviemos al otro picture box, como en el destino ocupará todo el control, habremos conseguido el efecto zoom deseado.

Antes de programar el método PaintPicture, debemos pasar las coordenadas del cuadrado virtual por cuatro comprobaciones, de forma que nos aseguremos que el mismo no se "sale" del contenedor.