How to go to a certain line in richtextbox

emptyname

How to go to a certain line in richtextbox
Form link.Text1.SelStart = SendMessage(Text1.hWnd, EM_LINEINDEX, i-1, 0&)
i is the line number of a line to go to
I don’t know why I can’t go to the line where the line is blank. For example, if the second line is a blank line, then I want to go to the second line. Vb always cannot go to the second line. If the third line is not a blank line, then it Just go to line 3 ------ I don't know why

emptyname

Excuse me, is there any other way to go to a certain line in richtextbox? It is a blank line to go to the line. Thank you

rockyoung

Dim a
a = InStr(RichTextBox1.Text, vbCrLf&vbCrLf)
If a = 0 Then a = Len(RichTextBox1.Text)
RichTextBox1.SetFocus
RichTextBox1.SelStart = a + 1

talent00168

Private Sub Command1_Click()
Dim n As Long
n = CLng(InputBox("How many lines the cursor points to", "info", Int(Rnd * 100)))
RichTextBox1.SetFocus
SendKeys "^{home}"
SendKeys "{down "&n&"}"
End Sub

Private Sub Form_Load()
RichTextBox1.Text = Replace(Replace(String(100, "1"), "1", "012340"), "0", vbCrLf)
End Sub

talent00168

or:
Option Explicit
Const EM_LINESCROLL =&HB6
Private Declare Function SendMessage Lib "User32" Alias ​​"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Sub Command1_Click()
RichTextBox1.SetFocus
RichTextBox1.SelStart = 0
Randomize
Dim n As Long
n = CLng(InputBox("How many lines the cursor points to", "info", Int(Rnd * 100)))-1
SendMessage RichTextBox1.hWnd, EM_LINESCROLL, 0, n&
End Sub

Private Sub Form_Load()
Dim i As Long, arr(1 To 500) As String
For i = 1 To 500
arr(i) = IIf(i Mod 9> 7, "", "第"&i&"line")
Next
RichTextBox1.Text = Join(arr, vbCrLf)
End Sub

emptyname

talent00168hello
SendKeys "{down "&n&"}" ------What does n mean?
for i=1 to n
SendKeys "{down}"
next


But this method is too time consuming. Originally, the purpose of the program I compiled was to delete blank lines and blank lines containing spaces. Would it be too time-consuming to use this method?

emptyname

talent00168hello
n = CLng(InputBox("How many lines the cursor points to", "info", Int(Rnd * 100)))-1
SendMessage RichTextBox1.hWnd, EM_LINESCROLL, 0, n&Is this code? So I tried, he didn't respond

talent00168

Dim n As Long
n = CLng(InputBox("How many lines the cursor points to", "info", Int(Rnd * 100)))-1
SendKeys "{down "&n&"}" ------What does n mean? n you specify

talent00168

talent00168hello
n = CLng(InputBox("How many lines the cursor points to", "info", Int(Rnd * 100)))-1
SendMessage RichTextBox1.hWnd, EM_LINESCROLL, 0, n&Is this code? So I tried, he didn't respond
------------------
What is wrong? Paste your code

emptyname

talent00168hello

Const EM_LINESCROLL =&HB6

      Private Declare Function SendMessage Lib "User32" Alias ​​_
      "SendMessageA" _
         (ByVal hWnd As Long, _
          ByVal wMsg As Integer, _
          ByVal wParam As Integer, _
          ByVal lParam As Long) As Long

      Private Sub Form_Load()
         Dim intLineIndex As Integer, intWordIndex As Integer

         'Initialize Text1.
         Text1.Font = "Courier New"
         Text1.Text = ""
         For intLineIndex = 1 To 25'Add 25 lines of text.
            Text1.Text = Text1.Text&"Line"&Str$(intLineIndex)
            For intWordIndex = 1 To 5'Make each line 12 words
                                                'long.
               Text1.Text = Text1.Text&"Word"&Str$(intWordIndex)
            Next intWordIndex
            Text1.Text = Text1.Text&vbCrLf
         Next intLineIndex

         Command1.Caption = "Vertical"
         Command2.Caption = "Horizontal"
      End Sub

      Private Sub Command1_Click()
         Dim lngRet As Long

         lngRet = SendMessage(Text1.hWnd, EM_LINESCROLL, 0, 5&)
      End Sub

      Private Sub Command2_Click()
         Dim lngRet As Long

         lngRet = SendMessage(Text1.hWnd, EM_LINESCROLL, 5, 0&)
      End Sub


But this method is the scrolling function of the TextBox control, it cannot position the cursor and cannot text1.selstart=