vbnet 簡易跑馬燈

寫了一推方法,都很不順 ; 後來改用最簡單方式來處理簡單又好調整
---

--------
code:
 Public Class Form1
    Dim a As String = ""
    Dim b As String = ""
    Dim ann As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try          
            If a <> "" Then
                ann += 1
                If ann <= a.Length Then
                    b += Mid(a, ann, 1)
                Else                  
                    b += Space(2)
                End If
                TextBox1.Text = b
                TextBox1.SelectionStart = b.Length
                If b.Length > (a.Length * 5) Then
                    ann = 0
                    b = ""
                End If
                TextBox2.Text = "b:" & b.Length & " ann:" & ann
            End If

        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = "第9999店於5/11開幕,請大家告訴大家!"
    End Sub

End Class