想要VB表單上的標題能像跑馬燈一樣可以走動?

Question

希望搭配計時器使表單上的標題能像跑馬燈一樣可以來回走動
可以給我程式碼嗎?

Answer 1

'表單置1個TimerDim S As StringPrivate Sub Form_Load()        S = "跑馬燈-跑馬燈-跑馬燈"        Timer1.Interval = 10        Timer1 = TrueEnd SubPrivate Sub Timer1_Timer()        Dim N As Long        Static B As Boolean                N = ScaleWidth        If TextWidth(S) < N And B = False Then           S = " " & S        Else           If InStr(S, " ") Then              B = True              S = Right$(S, Len(S) - 1)           Else              B = False              S = " " & S           End If        End If        Caption = SEnd Sub