Mostrar RichTextBox en bloques de 6 lineas desde un boton

[hunter18]

Si el RichTextBox es 500 de ancho y 300 de alto no se muestra todo su contenido solo me muestra las 6 primeras lineas, como hago para que desde un boton me muestre las 6 siguientes lineas, algo asi como si fueran bloques en lugar de utilizar los scroll.
El numero de lineas variara dependiendo del tamaño del RichTextBox

Es posible?, como se llama la propiedad

[pkj]

La forma mas sencilla que se me ocurre es:

Private Sub Avanzar()
RichTextBox1.SetFocus
SendKeys "{PGDN}"
End Sub

Private Sub Retroceder()
RichTextBox1.SetFocus
SendKeys "{PGUP}"
End Sub

Saludos

[hunter18]

Gracias por la idea es lo mas simple aunque se visualiza la ultima linea y lo le veo problema si alguien tiene otra solucion bienvenido

Por otro lado que diferencia hay utilizando el API key_event y sendkeys?

Para llamar a una letra con sendkey basta con una linea mienstras que con el API se debe hacer todo esto, algun pro y contra debe haber?

Código:

' Constantes para las teclas y otros
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1

'Declaración del Api keybd_event para la presión de tecla
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

Sub Pulsar_Tecla(Tecla As Long)
    Call keybd_event(Tecla, 0, 0, 0)
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Command1_Click()

Call Pulsar_Tecla(vbKeySpace)
Text1.SetFocus

End Sub

un saludo pkj por responder rapidamente, esta ultima semana estas respondiendo a full

[seba123neo]

Hola, una que por ahi sendkeys da problemas, y aparte con api's siempre es mejor, por mas que tengas que escribir mas codigo, es lo mejor que hay.aca te paso una funcion para ir a la linea que quieras en un richtextbox con SendMessage, despues vos ves como hacer para hacer lo que vos queres.

Código vb:

Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_LINESCROLL = &HB6
Private Const EM_GETFIRSTVISIBLELINE = &HCE
 
Private Sub ScrollAutomatico(ByVal pControl As RichTextBox, ByVal pLinea As Long)
   Dim vLineaActual As Long
   With pControl
      vLineaActual = SendMessage(.hwnd, EM_GETFIRSTVISIBLELINE, 0, ByVal 0)
      SendMessage .hwnd, EM_LINESCROLL, 0, ByVal pLinea - vLineaActual
      .SetFocus
   End With
End Sub
 
Private Sub Command1_Click()
   Call ScrollAutomatico(Me.RichTextBox1, 100)
End Sub
 

saludos.

[hunter18]

Gracias por el codigo lo estube buscando pero no lo pude hallar, es justo lo que necesitaba.

Tengo otra consulta, digamos que siempre seran 6 lineas en el Rich, como podria llamar a la funcion si busco una palabra y esta se encuentra en la linea 6.

Asi hago la busqueda

Código:

xBuscar = RichTextBox1.Find(xActual, Posicion)
RichTextBox1.SelColor = vbRed

'Aqui seria de esta manera?
if linea=6 then
   'aplico scroll
    Call ScrollAutomatico(Me.RichTextBox1, 5)
End if

Estoy probando de varias formas pero no lo consigo

[pkj]

Tengo poco estudiada la funcion keybd_event, aunque la usé en algún programa hace tiempo.
Las diferencias que me convencieron a mí para usarla fueron que parecía funcionar mejor cuando intentas pulsar teclas de otras ventanas que no son el propio programa que has hecho y que permitía mantener pulsada la tecla Ctrl, Alt, etc... indefinidamente.
La usé con un programa que tengo que usa el ratón a través de un gamepad, permitiendome mantener pulsado ctrl o shift el rato que necesites mientras seleccionas varios elementos en varios clicks.

Por lo demás, parece que seba123neo te puede ayudar mejor que yo, que ni domino los RTBox ni SendMessage, algo por cierto muy útil por sus múltiples usos, aunque para mí, bastante dificil de entender.

Espero que consigas lo que buscas.

Saludos