Colocar ScrollBar a un Picture
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
Necesito saber la forma de colocarle un scrollbar al el control Picture, para poder desplazarme y visualizar toda la foto.
Agradezco cualquier ayuda, gracias
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
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