Woodu's Blog

其实这个程序思想很简单，就是用Timer顺序移动几个Lable达到“滚动”的效果。
启动VB6。（废话）
窗体布局属性如图01/02

然后缩一下Form1让它把Lable都Hide就剩下三个白色的控制钮。
Hight建议4095

相应按钮的代码

（Form1的字幕部分分别是Lable1,Lable2……Lable5，其他为678）
所有'后面文字不需要输入，如果你想以后学习，建议你加上~

CODE:

Private Sub Form_Unload(Cancel As Integer)
Unload Form2
'这个样子不会至于窗体隐藏进程退不出来
End Sub
CODE:

Private Sub Label6_Click()
Timer1.Enabled = True
'激活Timer1
End Sub
CODE:

Private Sub Label7_Click()
Timer1.Enabled = False
'暂停
End Sub
CODE:

Private Sub Label8_Click()
Form2.Show
‘配置按钮
End Sub注意：请先设定Timer1的间隔值
不然是0运行不了别找我= =

（Form2）

CODE:

Private Sub Command1_Click()
Form1.Label1.Font = Text1.Text
Form1.Label2.Font = Text1.Text
Form1.Label3.Font = Text1.Text
Form1.Label4.Font = Text1.Text
Form1.Label5.Font = Text1.Text
‘赋值给Form1的各位
If Text3.Text 这样子应该就完蛋了= =就这样子了

最终效果~