在Access窗體上設(shè)置文字滾動(dòng)效果

在Access窗體中，為了更加突出顯示部分重要內(nèi)容，有時(shí)希望文字能從左到右劃過(guò)，滾動(dòng)顯示。

如圖，文字“Office交流網(wǎng)”至左向右滾動(dòng)。

窗體的 TimerInterval 屬性設(shè)置以毫秒為單位指定 Timer 事件間的時(shí)間間隔定期發(fā)生。時(shí)間間隔可以從 0 到 2,147,483,647 毫秒。將 TimerInterval 屬性設(shè)為 0 可阻止 Timer 事件發(fā)生。

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

Private Sub Form_Timer()
    If Me.Label1.Left < Me.InsideWidth Then '判斷標(biāo)簽是否到底窗體的最右端。如果到底即重新滑動(dòng) Me.Label1.Left = Me.Label1.Left + 100 '每隔100毫秒 標(biāo)簽向右移動(dòng)100 Else Me.Label1.Left = 0 End If End Sub 

在窗體中添加“Label1”標(biāo)簽控件，標(biāo)題為“Office交流網(wǎng)”。設(shè)置每100毫秒，標(biāo)簽控件向右移動(dòng)100緹。直到等于窗體的窗口的寬度。標(biāo)簽又重新從0開(kāi)始滑動(dòng)。