Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » codigo para scrollbar

Access - codigo para scrollbar

Volver
Nuevo Tema
<<>>
 
Vista:

codigo para scrollbar

Publicado por omar (1 intervención) el 17/05/2006 16:07:13
Hola a todos
Tengo un formulario con 2 subformularios
Diseñé un scrollbar vertical para controlar los 2 subformularios a la vez.
Alguien me puede ayudar con el código a escribir en los eventos?
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Código para controlar dos subformularios con un scrollbar vertical

Publicado por Alejandro (4142 intervenciones) el 18/07/2023 22:52:54
¡Hola, Omar!

Para controlar los dos subformularios con un scrollbar vertical en tu formulario, puedes utilizar el siguiente código en los eventos del scrollbar. Asegúrate de ajustar los nombres de los objetos según corresponda en tu formulario.

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Scrollbar1_Change()
    ' Ajusta la posición de los subformularios según el valor del scrollbar
    Me.Subformulario1.Form.VerticalScrollBar.Position = Me.Scrollbar1.Value
    Me.Subformulario2.Form.VerticalScrollBar.Position = Me.Scrollbar1.Value
End Sub
 
Private Sub Form_Load()
    ' Establece los límites del scrollbar basado en los subformularios
    Dim maxScroll As Long
    maxScroll = Me.Subformulario1.Form.VerticalScrollBar.Max
    Me.Scrollbar1.Min = 0
    Me.Scrollbar1.Max = maxScroll
End Sub

En el evento `Scrollbar1_Change()`, el código ajusta la posición vertical de los subformularios `Subformulario1` y `Subformulario2` según el valor del scrollbar. Esto sincronizará los dos subformularios al desplazar el scrollbar vertical.

En el evento `Form_Load()`, el código establece los límites del scrollbar basado en el subformulario `Subformulario1`. Asegúrate de que el subformulario tenga una barra de desplazamiento vertical activada para poder acceder a la propiedad `VerticalScrollBar.Max`.

Recuerda ajustar los nombres de los objetos a los utilizados en tu formulario. ¡Buena suerte con tu formulario!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar