Imprimir página | Cerrar ventana

Subir bajar pot item lista con botones

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84877
Fecha de impresión: 24/Septiembre/2020 a las 00:37


Tema: Subir bajar pot item lista con botones
Publicado por: rokoko
Asunto: Subir bajar pot item lista con botones
Fecha de publicación: 08/Diciembre/2019 a las 22:32
Buenas!!!!
Que conste que lo he conseguido hacer a mi manera, pero me quedo con la duda si se puede hacer mas facil.
Quiero desplazarme por la lista con dos botones, uno para subir otro para bajar.
Lo he hecho asi

Subir
Private Sub Comando78_Click()
Dim varFila As Integer
varFila = Me.Lista0.ListIndex
If varFila = Me.Lista0.ListCount Then
Me.Lista0.Selected(Me.Lista0.ListCount) = True
Else
Dim varFilaBaja As Integer
varFilaBaja = varFila - 1
Me.Lista0.Selected(varFilaBaja) = True
End If
End Sub

Bajar
Private Sub Comando77_Click()
Dim varFila As Integer
varFila = Me.Lista0.ListIndex
If varFila = 0 Then
Me.Lista0.Selected(1) = True
Else
Dim varFilaBaja As Integer
varFilaBaja = varFila + 1
Me.Lista0.Selected(varFilaBaja) = True
End If
End Sub



Respuestas:
Publicado por: xavi
Fecha de publicación: 08/Diciembre/2019 a las 23:31
Hola,

Para "bajar" por el ListBox (desde el valor 0 hasta el máximo)

Me!lstDatos.Selected(Me!lstDatos.ListIndex + 1) = True

Para "subir" en el ListBox (desde el máximo hasta 0)

Me!lstDatos.Selected(Me!lstDatos.ListIndex - 1) = True


He hecho una prueba y, si llega a cualquiera de los extremos, se queda en ellos por lo que no parece que sea necesario tanto control.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: rokoko
Fecha de publicación: 08/Diciembre/2019 a las 23:42
Publicado originalmente por xavi xavi escribió:

Hola,

Para "bajar" por el ListBox (desde el valor 0 hasta el máximo)

Me!lstDatos.Selected(Me!lstDatos.ListIndex + 1) = True

Para "subir" en el ListBox (desde el máximo hasta 0)

Me!lstDatos.Selected(Me!lstDatos.ListIndex - 1) = True


He hecho una prueba y, si llega a cualquiera de los extremos, se queda en ellos por lo que no parece que sea necesario tanto control.

Un saludo


Como simpre genial, mas sencillo que lo mio y mas claro....Muchas gracias

Se puede cerrar

Saludos



Imprimir página | Cerrar ventana