模型:窗体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)
原创文章,作者:Rosmontics,如若转载,请注明出处:https://rosmontis.com/archives/80