一个在vb6.0中用richtextbox文本框的问题

Question

每次查找时 文本框被选中的内容 只能固定在第三行地方出现，可以吗？

Answer 1

给你写了个例子

Const EM_LINEINDEX = &HBB
Const EM_LINELENGTH = &HC1
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 Sub Command1_Click()
Dim Start As Long, Length As Long

Start = SendMessage(RichTextBox1.hwnd, EM_LINEINDEX, 2, 0)
Length = SendMessage(RichTextBox1.hwnd, EM_LINELENGTH, Start, 0)
If Start >= 0 Then
RichTextBox1.SelStart = Start
RichTextBox1.SelLength = Length
RichTextBox1.SetFocus
End If
End Sub