VB中实现文字滚动(Lable水平移动)

虽然说VB已经渐渐退出我们的日常生活中,逐渐成为过去产物,但是对于编程初学者来说,还是一种非常通俗易懂,便捷的语言,特别是在界面UI设计上不需要编写大量代码,直接可视化操作,非常爽。在此记录一些曾经写过的一些VB代码,希望对自己以及看到这篇文章的人能够有启发

模型:窗体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

(0)
RosmonticsRosmontics网站管理员
上一篇 2021年10月25日 下午3:35
下一篇 2021年10月25日 下午3:42

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

评论审核已启用。您的评论可能需要一段时间后才能被显示。