RichTextBox 显示行号，如何让两个 RichTextBox 联动呢？

Private Sub RichTextBox2_Change()
RichTextBox1.Text = ""
    For i = 1 To UBound(Split(RichTextBox2.Text, vbCrLf)) + 1
        RichTextBox1.Text = RichTextBox1.Text & i & vbCrLf
    Next
End Sub

如上在RichTextBox2下拉进度条和手动编辑满屏换行的时候，RichTextBox1怎么也一起跟着换行

固定RichTextBox1大小，再输出行号，不联动也是一种思路。
VScroll应该可以用API取其刻度值。
我再试试，谢谢！

[此贴子已经被作者于2018-6-11 19:56编辑过]

API好多啊，用Picture的话应该不用那么多
之前试过在Picture上Print，结果和RichTextBox间距不对，看这视频好像改一下某种字体就行了。
我再试试，谢谢！

好的，谢谢！

继续用RichTextBox显示行的话，如下一个API取滚动条刻度值，放在Timer事件中，基本上完全满足要求了..

Private Declare Function FuckSendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETFIRSTVISIBLELINE = &HCE

Private Sub Timer1_Timer()
RichTextBox1.Text = ""
i = FuckSendMessage(RichTextBox2.hwnd, EM_GETFIRSTVISIBLELINE, 0&, 0&) + 1 '取滚动条刻度值
    For j = i To UBound(Split(RichTextBox2.Text, vbCrLf)) + 1
        RichTextBox1.Text = RichTextBox1.Text & j & vbCrLf
            Next
End Sub

但是......汉字输入法会闪现，根本就打不了汉字，只可以输入英文
一样的代码用TEXT控件来输入是可以的，不会闪现，附件可以测试下
For j = i To UBound(Split(RichTextBox2.Text, vbCrLf)) + 1 应该是这里出问题了???

2个Timer是为了演示 TEXT与RichTextBox的区别
只放在Change事件中，没办法响应滚动条事件，

'-----------------------------------------------
异常应该还是在这里，UBound(Split(RichTextBox2.Text, vbCrLf)) ，为什么会冲突还不清楚。
既然获取TEXT1没有问题的话，那么.......再加一个RichTextBox3同步中转再获取其行数，是不是就不会冲突了？
试了下，可行，基本上全搞定啦。

Private Declare Function FuckSendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETFIRSTVISIBLELINE = &HCE

Private Sub RichTextBox2_Change()
RichTextBox3.Text = RichTextBox2.Text   'RichTextBox3.Text同步RichTextBox2
End Sub

Private Sub Timer1_Timer()
RichTextBox1.Text = ""
i = FuckSendMessage(RichTextBox2.hwnd, EM_GETFIRSTVISIBLELINE, 0&, 0&) + 1 '取滚动条刻度值
    For j = i To UBound(Split(RichTextBox3.Text, vbCrLf)) + 1              '获取RichTextBox3行数
        RichTextBox1.Text = RichTextBox1.Text & j & vbCrLf
            Next
End Sub