冰楓論壇

標題: [VB教學室]-文字跑馬燈 [打印本頁]

作者: kma20071128 時間: 2013-7-20 14:18
標題: [VB教學室]-文字跑馬燈
Timer1 Interval Set 1000

Private Sub Timer1_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)
End Sub

作者: stu61311 時間: 2013-7-20 14:51
'*********跑馬燈一********* 在label上跑
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 30
If Label1.Left >= Me.ScaleWidth Then Label1.Left = -Label1.Width
End Sub

'*********跑馬燈二*********在text上跑
Private Sub Timer2_Timer()
Static A As Byte
Const Word = "跑馬燈二"
Text1.Text = Space(A) & Word
A = A + 1
If A = 70 Then A = 0
End Sub

'*********標題跑馬燈*********在標題上跑
Private Sub Timer3_Timer()
Static B As Byte
Const Word = "標題跑馬燈"
Me.Caption = Space(B) & Word
B = B + 1
If B = 70 Then B = 0
End Sub

run.rar (1.53 KB, 下載次數: 161)

作者: me3172173399 時間: 2013-7-20 22:27
提示: 作者被禁止或刪除內容自動屏蔽

作者: 小滅 時間: 2013-7-25 17:51
提示: 作者被禁止或刪除內容自動屏蔽

作者: 123159 時間: 2014-2-4 08:11
太厲害了學習一下

作者: xc522313 時間: 2015-8-9 18:11
二樓的大大真的事謝謝您我正在找這種的

歡迎光臨冰楓論壇 (https://bingfong.com/)