kma20071128 發表於 2013-7-20 14:18: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:50

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

me3172173399 發表於 2013-7-20 22:27:48

小滅 發表於 2013-7-25 17:51:35

123159 發表於 2014-2-4 08:11:32

太厲害了學習一下:D:)

xc522313 發表於 2015-8-9 18:11:36

二樓的大大 真的事謝謝您 我正在找這種的
頁: [1]
查看完整版本: [VB教學室]-文字跑馬燈