vb如何形成循环滚动字幕
1个回答
展开全部
水平滚动:
在窗体里放入一个LABEL和一个TIMER控件,字体修改LABEL的字体就可以了.
Private
Sub
Form_Load()
Label1.Caption
=
"最好字体可以改变！！麻烦给出窗体和代码！！"
Timer1.Interval
=
300
End
Sub
Private
Sub
Timer1_Timer()
Label1.Caption
=
Mid(Label1.Caption,
2,
Len(Label1.Caption)
-
1)
+
Left(Label1.Caption,
1)
End
Sub
在窗体里放入一个LABEL和一个TIMER控件,字体修改LABEL的字体就可以了.
Private
Sub
Form_Load()
Label1.Caption
=
"最好字体可以改变！！麻烦给出窗体和代码！！"
Timer1.Interval
=
300
End
Sub
Private
Sub
Timer1_Timer()
Label1.Caption
=
Mid(Label1.Caption,
2,
Len(Label1.Caption)
-
1)
+
Left(Label1.Caption,
1)
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
