走马灯vhdl(走马灯效果的代码怎么写)

导语：VB之走马灯效果实现

电视上我们经常可以见到滚动字幕，现在我们在VB中来实现这种效果。

设计过程：

1，新建&34;工程

2，建立下图所示的窗体，自行设置各控件属性

在代码窗口的&34;中选择&34;，在&34;中选择&34;事件，并在代码窗口中输入下列代码：

Dim oLeft

如下图所示：

以上的代码在窗体中定义了一个模块级变量，用于存放Lable1的Left属性值的初始值，它可以被窗体的所有过程存取。

3，代码功能实现

( 1 )，Form的Load事件

1. Private Sub Form_Load()

2. oLeft = Label1.Left

3. End Sub

( 2 )，Command1

1. Private Sub Command1_Click()

2. Timer1.Enabled = True

3. End Sub

( 3 )，Command2

1. Private Sub Command2_Click()

2. Timer1.Enabled = False

3. End Sub

( 4 )，Timer1

1. Private Sub Timer1_Timer()

2. Label1.Left = Label1.Left - 20

3. If (Label1.Left + Label1.Width < 0) Then

4. Label1.Left = oLeft

5. End If

6. End Sub

该段代码作用：

当Lable1移动时，其位置超出窗体使其回到原来位置，从而实现文字的滚动。

4，运行代码，程序界面如下图所示

本文内容由小洁整理编辑！