VB6文字跑马灯

Dim TString As String  '声明，在显示的跑马灯字串变数

?复制代码

1Private Sub Form_Load() 2Timer1.Enabled = False '启动打开LED跑马灯 3Timer1.Interval = 200 4Text1.ForeColor = vbRed   '跑马灯红色字体 5Text1.Enabled = True 6End Sub

?复制代码

1Private Sub Timer1_Timer() '加入时钟1 2Static TPos As Long '开始颉取跑马灯字串之位置指标 3If TPos > Len(TString) Then  '如果位置指标越过了整个字串 4TPos = 1 '把位置指标移到最开头 5Else 6TPos = TPos + 1  '把位置指标移到下一个字 7End If 8Text1.Text = Mid(TString, TPos)  '逐字显示跑马灯字串 9End Sub

打赏

支付宝微信扫一扫，打赏作者吧～

本文链接：https://www.kinber.cn/post/4932.html 转载需授权！

推荐本站淘宝优惠价购买喜欢的宝贝:

 您阅读本篇文章共花了：