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

 

 

108 - Otro ejemplo para colocar ScrollBar en un PictureBox

<Volver> - Anterior - Siguiente

 

 

 

---

 

Este es otro ejemplo un poco mejorado para colocar Scrollbar a un PictureBox y poder visualizar el contenido del mismo si este supera las dimensiones del Picture

 

Para este ejemplo se utilizan 2 PictureBox, uno llamado PicContenedor y otro Picture2. El Picture2 será el que estará dentro del anterior.

 

Colocar los siguientes controles como muestra la imagen:

• 2 PictureBox. El que está en color azul es el PicContenedor, el mas pequeño es el Picture2.
• 2 barras de scroll llamadas, HScroll1 y VScroll1. Estas colocarlas dentro del PicContenedor. Además seleccionarlas y con el menú derecho elegir la opción " Traer al frente ".

 

 

 

Nota: no importa el tamaño que se le coloquen a las scrollbar en tiempo de diseño, ni tampoco la posición ya que se ajustan en tiempo de ejecución.

Para probar el ejemplo, cargarle una imagen que sea de tamaño superior al PicContenedor y colocarle el Autosize del Picture2 en True. El resultado en tiempo de ejecución se vería algo asi:

 

 

 

Código fuente en el formulario:

Option Explicit Private Declare Function GetSystemMetrics _ Lib "user32" ( _ ByVal nIndex As Long) As Long Private Const SM_CYHSCROLL = 3 Private Const SM_CXVSCROLL = 2 Private Sub SetearScroll() HScroll1.LargeChange = 15 VScroll1.LargeChange = 15 HScroll1.Max = (Picture2.Width - picContenedor.ScaleWidth _ + VScroll1.Width) / 120 + 1 VScroll1.Max = (Picture2.Height - picContenedor.ScaleHeight + _ HScroll1.Height) / 120 + 1 End Sub Private Sub Form_Load() 'Inicializa los scrolbar (los posiciona ) IniciarPicture End Sub Private Sub IniciarPicture() Dim sngVSCWidth As Single, sngHSCHeight As Single 'Colocamos le picture2 en la parte superior izquierda dentro del picContenedor Picture2.Move 0, 0 'redimensinado del scrollbar sngVSCWidth = GetSystemMetrics(SM_CXVSCROLL) * Screen.TwipsPerPixelX sngHSCHeight = GetSystemMetrics(SM_CYHSCROLL) * Screen.TwipsPerPixelY HScroll1.Move 0, picContenedor.ScaleHeight - sngHSCHeight, _ picContenedor.ScaleWidth - sngVSCWidth, sngHSCHeight VScroll1.Move picContenedor.ScaleWidth - sngVSCWidth, 0, _ sngVSCWidth, picContenedor.ScaleHeight 'Inicializa los scrolbar (valores Max y Largchange) SetearScroll End Sub Private Sub HScroll1_Change() Picture2.Left = -HScroll1.Value * 120 End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub Private Sub VScroll1_Change() Picture2.Top = -CSng(VScroll1.Value) * 120 End Sub Private Sub VScroll1_Scroll() VScroll1_Change End Sub

 

Recursos vb6 - Enlaces relacionados

• Código fuente de un ocx para crear un PictureBox con ScollBar
• Hacer un Scroll de imagen mediante la función PaintPicture
• Conjunto de dos ocx para agregar barras de scroll a un formulario y un contenedor

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar