如何控制richtextbox显示内容？（比如我想显示第某行的）

Question

随意控制行我没找到
但是通过selstart可以控制显示的起始点

Answer 1

Const EM_GETLINE = &HC4
 Const EM_LINELENGTH = &HC1
 Const EM_LINEINDEX = &HBB
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 Declare Function CreateMenu Lib "user32" () As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Function GetLine(ByVal hWnd As Long, ByVal whichLine As Long)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2)
Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
GetLine = StrConv(bArr2, vbUnicode)
Else
GetLine = ""
End If
End FunctionPrivate Sub Command1_Click()
MsgBox GetLine(RichTextBox1.hWnd, 16)
End Sub