Access窗体标题左右滚动

我们时常看到的是内容滚动，但是很少看到的窗体的标题也能滚动。
下面的示例就是窗体的标题在左右移动，效果很好看。切记，窗体不能最大化，否则会没有效果的。主要通过timer事件来写的。

Private Sub Form_Timer()

Static fn As Boolean

If Not fn And (Len(Me.Caption) - intLen) < Int((Me.WindowWidth - i1 - 150) / 105) Then

Me.Caption = Space(1) & Me.Caption

Else

fn = True

Me.Caption = Replace(Me.Caption, Space(1), "", , 1)

If Len(Me.Caption) = intLen Then fn = False

End If

End Sub

发布人:海狸先生-Office中国

分享到：

点击次数：更新时间：2013-09-12 15:25:09 【打印此页】【关闭】