Subir bajar pot item lista con botones |
Responder |
Autor | |
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3065 |
Tema: Subir bajar pot item lista con botones Enviado: 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 |
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14746 |
Enviado: 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
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3065 |
Enviado: 08/Diciembre/2019 a las 23:42 |
Como simpre genial, mas sencillo que lo mio y mas claro....Muchas gracias Se puede cerrar Saludos
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |