ScrollBar de VB6.0

[aigama]

Hola!
Tengo un frame en el que inserto un vector de labels en tiempo de ejecución, pero no siempre entran todos los labels, así que le he añadido un ScrollBar vertical, pero no consigo programarlo para que funcione. Alguien puede decirme cómo puedo hacer esto? Muchas gracias

[bronik]

Iniciado por aigama

Hola!
Tengo un frame en el que inserto un vector de labels en tiempo de ejecución, pero no siempre entran todos los labels, así que le he añadido un ScrollBar vertical, pero no consigo programarlo para que funcione. Alguien puede decirme cómo puedo hacer esto? Muchas gracias

Hola,

Tengo el mismo problema que tu, si ya lo resolviste porfavor dime como, porque me estoy tronando la cabeza en saber como hacerlo... Gracias Mil

[Edumaca]

Mira nunca he tenido la necesidad de usar scrollbar en un frame, de hecho no se si se puede lo que se me ocurre es que pudieras reposicionar los controles visibles y ocultar los no visibles controlando los eventos del scrollbar.

Espero que te sea de utilidad la sugerencia.

[KiKeRiOs]

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