Ejemplos usando el Api de windows para Visual basic

71 - Ejemplo para hacer un Zoom a una imagen con StretchBit

Volver al Listado Api - Anterior - Siguiente



 

 

Este ejemplo muestra como poder realizar un zoom a un gráfico con el Mouse , haciendo uso del Api StretchBit

 

Esta función es similar a la función PaintPicture de visual basic

La muestra consiste en tomar un gráfico cargado en un control Picture1, que será la imagen al cual se le hará un Zoom. El resultado se copiará en un Picture2.

Para aumentar el zoom se debe mantener presionado el botón izquierdo en el Picture2, y para reducir la imagen mantener presionado el botón derecho.

Colocar un Picture1 y un Picture2. En el Picture1 cargarle una imagen. Es importante que el AutoreDraw del Picture esté activado, es decir en True

Otra cosa, para modificar el factor de aumento y reducción, modificar los valores de las variables Ancho y Alto, por defecto este en cada acción de aumento o reducción del zoom , el ancho y alto se multiplica por 0.1.

 

Vista del formulario de ejemplo para el zoom de imagen

Ejemplo en que muestra como hacer un Zoom en Visual Basic usando el Api de windows StretchBit

 

 

Dentro de un formulario

 


vb 6.0 - Enlaces relacionados

vb.net - Enlaces relacionados



Buscar en Recursos vb