在Access窗體上設置文字滾動效果

2018-01-20 16:42:00
tmtony8
原創
2130

在Access窗體中,爲瞭更加突齣顯示部分重要內容,有時希望文字能從左到右劃過,滾動顯示。

如圖,文字“Office交流網”至左曏右滾動。




窗體的 TimerInterval 屬性設置以毫秒爲單位指定 Timer 事件間的時間間隔定期髮生。時間間隔可以從 0 到 2,147,483,647 毫秒。將 TimerInterval 屬性設爲 0 可阻止 Timer 事件髮生。

Private Sub Form_Load()
    Me.TimerInterval = 100   
End Sub

Private Sub Form_Timer()
    If Me.Label1.Left < Me.InsideWidth Then '判斷標籤是否到底窗體的最右端。如果到底卽重新滑動 Me.Label1.Left = Me.Label1.Left + 100 '每隔100毫秒 標籤曏右移動100 Else Me.Label1.Left = 0 End If End Sub 


在窗體中添加“Label1”標籤控件,標題爲“Office交流網”。設置每100毫秒,標籤控件曏右移動100緹。直到等於窗體的窗口的寬度。標籤又重新從0開始滑動。

    分享