vb程序编程代码

来源：百度知道 编辑：UC知道 时间：2024/06/14 21:17:42
让一行欢迎词从窗体的左侧逐渐移向右侧，当全部移出窗体的右侧后，又从窗体的左侧开始移动，直到按下某命令按钮后停止移动

我假设欢迎词是个标签：label1

Dim lr

Private Sub Command1_Click()'开始移动
Timer1.Interval = 10'10是时间，这个值越大速度越慢
End Sub

Private Sub Command2_Click()'停止移动
Timer1.Interval = 0
End Sub

Private Sub Form_Load()'启动窗口
lr = 1
End Sub

Private Sub Timer1_Timer()'每秒触发
Label1.Left = Label1.Left + 10 * lr'10是速度，改大速度快
If Label1.Left > Form1.Width Then lr = -1
If Label1.Left < 0 Then lr = 1
End Sub