UC知道vb字体滚动显示
来源：百度知道 编辑：UC知道 时间：2024/06/17 14:15:11
编制一程序，使窗体上部出现从左到右匀速移动的一组文字，文字内容是“谢谢使用”，要求第一个“谢”字从右边屏幕消失时，“用”字从左边屏幕出现
添加Timer1、Label1控件
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "谢谢使用"
Label1.AutoSize = True
Label1.Left = 0
Label1.Top = 0
End Sub
Private Sub Timer1_Timer()
Dim temp
temp = (Me.ScaleWidth - Label1.Width) / 100
Label1.Left = Label1.Left + temp
If Label1.Left > Me.ScaleWidth Then Label1.Left = -Label1.Width
End Sub