Rey Vargas
14 de Enero del 2005

Hola a todos, necesito mostrar fotos en un picture, pero alguna de ellas son m谩s grandes que el tama帽o del control.

Necesito saber la forma de colocarle un scrollbar al el control Picture, para poder desplazarme y visualizar toda la foto.

Agradezco cualquier ayuda, gracias

l_island
14 de Enero del 2005

Para VB6 debes hacer lo siguiente:

1- Colocas dos PictureBox en el formulario, Picture2 dentro de Picture1 (Picture1 determina la ventana visible, Picture2 con Autosize a true y ser谩 el contenedor de la imagen)
2- Colocas un VSCroll1 y un HSCroll1 junto a picture1
3- Cada vez que cambies la imagen de Picture2 pones este c贸digo (debes tener cuidado cuando Picture2 es menor que Picture1):
HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Max = Picture2.Height - Picture1.Height

HScroll1.SmallChange = HScroll1.Max / 100
VScroll1.SmallChange = VScroll1.Max / 100
HScroll1.LargeChange = HScroll1.Max / 10
VScroll1.LargeChange = VScroll1.Max / 10

4- ASignas este c贸digo en el evento Change del los ScrollBars
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Saludos!!
l_island