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

可以看到在 Form Load 事件上我把 Timer 的設定設好後，並啟動 Timer，這邊設定是 150ms 一跳。

而在下面的 Timer 事件內，就是把文字作移動的部份了。有興趣可以玩玩看囉~