botones parsa hacer scroll

[gasuton]

Hola a todos tengo un detalle y espero me puedan ayudar:

Tengo un msghflexgrid, en el cual tengo 50 registros y espacio solo para 10, en cuanto supero los 10 el sistema por default agrega los scrollbar, pero me están pidiendo que quite los scrollbars y que el scroll se realice mediante 2 botones, uno sube y el otro baja.

no tuve problemas para desactivar los scrollbars, pero estoy teniendo un poco de dificultad ha la hora de hacer el scroll, ya que la función que estoy usando no es la correcta, porque me va seleccionando todo los registros uno por uno.

les dejo el codigo que puse en mis botones:

Código:

Private Sub bt_abajo_Click()

listaproductos.RowSel = listaproductos.RowSel + 1

End Sub

Código:

Private Sub bt_arriba_Click()

listaproductos.RowSel = listaproductos.RowSel - 1

End Sub

[erbuson]

Hola:

El problema es que no debes utilizar RowSel sino Row para aumentar o bajar la linea seleccionada.

RowSel se utiliza para delimitar un rango seleccionado de filas.

Yo tuve este problema y lo solucione así:

Código:

Private Sub cmdBaja_Click()
  ' Baja una linea en el Grid MisClientes
  misClientes.SetFocus
  SendKey vbKeyDown
End Sub

Private Sub cmdSube_Click()
  ' Sube una linea en el Grid MisClientes
  misClientes.SetFocus
  SendKey vbKeyUp
End Sub

Quizas pueda servirte o adaptarlo

Saludos

[gasuton]

erbuson te comento que con el código que me pasaste me esta dando un error de sub or funtion not defined, te dejo el codigo:

Código:

Private Sub bt_arriba_Click()

If listaproductos.Visible = True Then
listaproductos.SetFocus
SendKey vbKeyUp
Else
Exit Sub
End If

End Sub

Si bien se esta quedando pintado de amarillo el private sub.......

me esta dejando seleccionada en azul la palabra SendKay, lo cual se me hace raro porque esta es una función de visual y no se tendría que declarar nada... o si?


Saludos.

[erbuson]

Hola:

Pues tienes toda la razón, lo puse directamente de memoria y a veces empieza a fallarme. Es SendKeys (no SendKey aqui me colé) y la manera de enviarle caracteres es

SendKeys "{DOWN}"
SendKeys "{UP}"

Pruébalo y me cuentas

[gasuton]

Iniciado por erbuson

Hola:

Pues tienes toda la razón, lo puse directamente de memoria y a veces empieza a fallarme. Es SendKeys (no SendKey aqui me colé) y la manera de enviarle caracteres es

SendKeys "{DOWN}"
SendKeys "{UP}"

Pruébalo y me cuentas

Jejjeje acabo de entrar para poner que lo solucione y me encuentro con tu mensaje, pero efectivamente lo solucione como tu comentas, exactamente el mismo tipo de código.

desde ya gracias por la ayuda.