[VB教學室]-文字跑馬燈

stu61311

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

2013-7-20 14:52 上傳

點擊文件名下載附件