Colocar ScrollBar a un Picture

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