VB6 - 文字跑馬燈

廢話不多說,請直接往下閱讀全文吧!!

Timer1 Interval Set 1000

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

*********跑馬燈一********* 在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