黑暗儲藏室: VB.net 跑馬燈建立

2011年12月23日星期五

VB.net 跑馬燈建立

跑馬燈有時候在公佈訊息時還是會比單純文字來的顯眼一點。而建立跑馬燈也不是很複雜…這篇文章就來簡單介紹一下吧。

首先用到的是 timer

利用 timer 的事件來「移動文字」，如果移動的時間能稍微控制一下… 那跑馬燈就能夠出現囉。

再來還會用到 statusStrip 這個位於視窗底部的狀態列。

通常我會在 statusStrip 上放置一些固定的訊息、通知等… 當然這邊就是放上文字跑馬燈囉。

先來看看成果：

成果就會像這樣囉… 會看到文字慢慢的移動到最左邊後… 再從右邊開始出現…下面就是完整程式碼囉：



Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        Timer1.Enabled = True

        Timer1.Interval = 150

        Timer1.Start()





    End Sub



    Dim intPos As Integer

    Dim message As String = "這是路馬燈測試~~~"



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Try

            If intPos <= Integer.Parse(message.Length) * -10 Then
                intPos = StatusStrip1.Width
            End If
            intPos -= 5
            StatusStrip1.Refresh()
            StatusStrip1.CreateGraphics.DrawString("           " & message, StatusStrip1.Font, Brushes.Red, intPos, 6)
        Catch ex As Exception

        End Try

    End Sub
End Class