vb.net同步滚动的简单介绍

vb.net 制作行标尺

左边放一个专门放行数的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的同步滚动，可以参考这篇文章：

vb.net中如何添加滚动条，像在VB6中那样的。不是窗体本身的滚动条

建立滚动条的方法如下：

（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。

（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。

（3）同样，再在Form上设置一个VscrollBar控件。

VB.NET 怎么同步显示lrc歌词？？

可以稍微改下，预读两句歌词的时间范围，时间大于第一句的起始点，小于第二句的起始点，那么显示第一句，

VB.NET中，如何编写代码使文字在窗口中上下循环滚动？

文字写在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