Sección de códigos , trucos y ejemplos para visual basic

204 - Scroll de imagen y gráfico

Contenido

Hacer scroll de un gráfico
Visualizar mapa con Scroll
Enlaces relacionados

Hacer scroll de un gráfico

Ejemplo que hace un Scroll de un gráfico utilizando la función PaintPicture de vb, para desplazar una imagen que es superior en alto y ancho a las dimensiones de un Picturebox

El Scroll en este ejemplo no se hace con controles scrollBar, si no que se utilizan unos CommandButton, y se redibuja la imagen con PaintPicture hasta llegar al límite, aunque los botones son opcionales y se podría usar cualquier otra cosa

vista del ejemplo para desplazar tipo scroll una gráfico dentro de un picture o formulario

Para modificar el valor de desplazamiento de la imagen, es decir la velocidad, hay que modificar la variable Avance.

Colcocar en un formulario

un control PictureBox llamado Picture1 y cargarle un gráfico grande.
Colocar cuatro CommandButton en un arreglo de controles:

Command1(0) para mover a la izquierda, Command1(1) para mover la imagen hacia arriba, Command1(2) para la derecha y Command1(3) para desplazar el gráfico hacia abajo.

Código fuente en un formulario:

Option Explicit 'Variables 'Posiciones x y para utilizarn PaintPicture Private Pos_x As Long Private Pos_y As Long 'variables para almacenar el ancho y Alto de la imagen a cargar _ en el control PictureBox Private Ancho_Pic As Single Private Alto_Pic As Single 'Indica si estamos pulsando el mouse en el Command Private Mouse_Abajo As Boolean 'Para variar el desplazamiento Private Avance As Single Private Sub Combo1_Click() Avance = CSng(Combo1) End Sub Private Sub Command1_MouseDown( _ Index As Integer, _ Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) 'Coloca el Flag en True Mouse_Abajo = True Select Case Index Case 0 'Desplaza la imagen hacia la derecha While Pos_x > 0 And Mouse_Abajo Pos_x = Pos_x - Avance Picture1.PaintPicture Picture1.Picture, 0, 0, , , _ Pos_x, Pos_y, Picture1.ScaleWidth, _ Picture1.ScaleHeight DoEvents Wend Case 1 'Desplaza la imagen hacia arriba While Pos_y < (Alto_Pic - Picture1.ScaleHeight) And Mouse_Abajo Pos_y = Pos_y + Avance Picture1.PaintPicture Picture1.Picture, 0, 0, , , Pos_x, Pos_y, _ Picture1.ScaleWidth, Picture1.ScaleHeight DoEvents Wend 'Desplaza la imagen hacia la izquierda Case 2 While Pos_x < (Ancho_Pic - Picture1.ScaleWidth) And Mouse_Abajo Pos_x = Pos_x + Avance Picture1.PaintPicture Picture1.Picture, 0, 0, , , Pos_x, _ Pos_y, ScaleWidth, Picture1.ScaleHeight DoEvents Wend 'Desplaza la imagen hacia abajo Case 3 While Pos_y > 0 And Mouse_Abajo Pos_y = Pos_y - Avance Picture1.PaintPicture Picture1.Picture, 0, 0, , , Pos_x, Pos_y, _ Picture1.ScaleWidth, Picture1.ScaleHeight DoEvents Wend End Select End Sub Private Sub Command1_MouseUp(Index As Integer, Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' cuando se suelta el mouse en el Command finalizar Mouse_Abajo = False End Sub Private Sub Form_Load() Dim i As Integer With Picture1 .ScaleMode = vbTwips .AutoRedraw = False 'ancho y alto del gráfico cargado en el Picture Ancho_Pic = CInt(.ScaleX(.Picture.Width, vbHimetric, .ScaleMode)) Alto_Pic = CInt(.ScaleY(.Picture.Height, vbHimetric, .ScaleMode)) End With ' Valor que determina la velocidad de avance Avance = 10 ' El Autosize del Picture no es necesario que esté en Ttue Picture1.AutoSize = False For i = 1 To 20 Combo1.AddItem i Next End Sub

Visualizar Mapa con Scroll

Este código lo realizó y lo envió a la web : Angel Yucra

El mismo , carga un gráfico jpg ( que es un mapa de una ciudad ) en un control picturebox y le agrega unos scrollbar para poder visualizar la imagen.

Y también , en otro Picbox , va mostrando el mapa en miniatura, y mediante un control shape la zona donde se está ubicado actualmente.

Como muestra esta captura :

Descargar ejemplo

Y en este otro enlace, está el mismo proyecto pero con algunos añadidos. Nota: ( Agregar la imagen "vesg.gif" del primer ejemplo )

Descargar

Recursos vb - relacionados

Añadir controles ScrollBar a un PictureBox

Buscar en Recursos vb