模型:窗体form1,定时器Timer1,标签Label1
很简单的两句代码:
Private Sub Form_Load()
Label1.Caption = "要滚动的字的内容"
Timer1.Interval = 300
End Sub
再双击timer控件输入下面代码:
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
模型:窗体form1,定时器Timer1,标签Label1
很简单的两句代码:
Private Sub Form_Load()
Label1.Caption = "要滚动的字的内容"
Timer1.Interval = 300
End Sub
再双击timer控件输入下面代码:
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
Rosmontis
这个人很懒,什么都没留下
Rosmontis
这个人很懒,什么都没留下
本站文章约1个月与rosmontis.com同步一次
文章评论