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

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

在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開始滑動。

    分享
    北京十一选五基本走势