No hay ningún problema. Para que funcione necesitas:

- Un control para la imagen (por ejemplo, un control Image con Stretch = False, o un PictureBox con AutoSize = True, depende de los eventos y propiedades que necesites) (imgImagen).

- Un control PictureBox que hace de visor. Debe ser el contenedor del control de la imagen (picVisor).

- Una barra horizontal y otra vertical (HBarra y VBarra).

Ahora pones:

Private Sub HBarra_Change()
    imgImagen.Left = (picVisor.ScaleHeight - imgImagen.Height) *
HBarra.Value / HBarra.Max
End Sub

Lo mismo, en el evento Scroll. Lo ideal es que modifiques las propiedades Max y LargeChange (por ejemplo, a 100 y 10, según el tamaño de la imagen).

Recuerda que tienes que "recolocar" la imagen y poner la propiedad Value a cero cuando cargues cada imagen. Y que debes modificar la posición si redimensionas el formulario. Luego deber experimentar con las propiedades ClipControls y AutoRedraw hasta que quede bien.

Esta no es la única forma de hacerlo. Otra posibilidad es usar el método PaintPicture del PictureBox, que te permite "mover" la imagen, y permite además hacer un Zoom con facilidad (el método anterior, también), pero lleva algo más de trabajo para que quede bien.

Saludos

Luis Sanz

HOSPITAL REINA SOFIA DE TUDELA
31500 TUDELA
NAVARRA
Teléfono: 948-817000
Fax: 948- 817111
E-Mail: hrst@ctv.es

-----Original Message-----
From: Alberto Rosenberg <alkatz@mecon.ar>
To: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Date: lunes 5 de abril de 1999 22:34
Subject: (VB-ESP)Mostrar Imagenes BMP


Amigos:

Por primera vez me encuentro en un proyecto donde tengo que mostrar archivos de imágenes, estos son BMP, mi problema es que no son todos del mismo tamaño y pensaba utilizar un control PictureBox, Image, HScrollBar y HscrollBar. La idea se basa en colocar el control image dentro del picturebox y desplazar la imagen con las barras de scroll.

Les pido si me pueden guiar, en como desplazar las imágenes con las barras de scroll vertical y horizontal, si este método no es bueno acepto comentarios.

Desde ya muchisimas gracias por su atención.

Alberto.