左边放一个专门放行数的listbox，根据右边的行数自动生成行号
创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的瑞安网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Dim arr() = RichTextBox1.Text.Split(vbLf)
Dim str As String
str = ""
For i = 1 To arr.Length
str = str i vbCrLf
Next
RichTextBox2.Text = str
End Sub
接下来是两个listbox的同步滚动，可以参考这篇文章：
datagrid不行，因为datagrid绑定数据库，因此不能添加一个附加行。即使在SQL命令中通过union方式进行统计后显示，但又会导致datagrid不能新增。解决办法有2个：1、用MSFlexGrid；2、自己写一个用户控件，大概意思就是里面有2个datagrid，一个大的，专门显示记录，一个小的，不要标题行，专门显示合计数；在里面增加写代码使它们水平同步滚动。
文字写在label的caption属性中，调用timer()函数
附上我写的左右往复运动代码，实现image1在picture1中左右往复运动
Private
Sub
Timer1_Timer()
If
Image1.Left
=
Picture1.ScaleWidth
-
Image1.Width
Then
k
=
1
If
k
=
1
Then
Image1.Left
=
Image1.Left
-
50
Else
Image1.Left
=
Image1.Left
+
50
End
If
If
Image1.Left
=
Then
k
=
End
Sub
