Question

Vb滚动字幕程序代码 急

要求：用一个时钟控制字幕滚动速度，用一个标签放置滚动字幕 界面如图
Form1 - □ X
windows 2000

Answer 1

1、在窗体上画上计时器控件timer1 和 label控件label1.
2、设置timer1的enable属性为false，interval属性为500，即500毫秒执行一次
3、设置label1的autosize属性为true，表示label1根据caption属性的内容自动调整大小。
4、在代码窗口里，写出以下代码：

Dim ChuShiWeiZhi As Integer'表示label1的初始位置
Private Sub Command1_Click()
Timer1.Enabled = True'使计时控件工作
End Sub

Private Sub Form_Load()'窗体加载时，记录label1的位置，并初始化label1的内容，注意vbCrLf表示换行
ChuShiWeiZhi = Label1.Top
Label1.Caption = "请" & vbCrLf & "采" & vbCrLf & "纳" & vbCrLf & "我" & vbCrLf & "的" & vbCrLf & "答 " & vbCrLf & "案" & vbCrLf & "已" & vbCrLf & "通" & vbCrLf & "过" & vbCrLf & "测" & vbCrLf & "试"
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 200'没执行一次使label1的top减少200缇，200可以修改为任意你要的值
If Label1.Top + Label1.Height < 0 Then'当label1完全移出窗体时，令它top再次变为初始的值，实现循环
Label1.Top = ChuShiWeiZhi
End If
End Sub
通过测试，请采纳答案，我是vb编程团队成员，很高兴为您服务！

Answer 2

label1.left=label1.left-100

Answer 3

计时器控件 和 label控件。。。。