Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/06/2009, 15:31
KiKeRiOs
 
Fecha de Ingreso: junio-2009
Mensajes: 2
Antigüedad: 15 años, 5 meses
Puntos: 0
De acuerdo Respuesta: ScrollBar de VB6.0

Hola muchachos

No se si aun sea tiempo para responder pero pues es muy facil lo del scrollbar, solo tienes que programar las siguientes propiedades:


para el scroll:

min = 0
max = aqui pones el numero de labels que deseas poner multiplicado por el valor height de cada label
ejemplo:

max = (10 * 120)
donde 10 es el numero de labels y 120 es el height (alto) de cada uno, esto teniendo en cuenta que si tienes una distancia entre cada label tambien deberas discriminarla.

Ahora para el codigo del scroll:

Código:
Private Sub VScroll1_Change()
    Dim c As Control
    For Each c In Frame1.Controls
        If c Is Label Then
            Dim pos As Integer
            pos = c.Top
            c.Top = pos - VScroll1.Value
        End If
    Next c
End Sub
y listo!!

ya veras como el vector de labels se mueven respecto al value del scroll

mi correo es [email protected] por si necesitan ayuda escribanme