界面/窗体/控件
Access窗体标题左右滚动
2013-09-12 15:25:09
文件类型 :
文件版本 :
简要说明 :
我们时常看到的是内容滚动，但是很少看到的窗体的标题也能滚动。
下面的示例就是窗体的标题在左右移动，效果很好看。切记，窗体不能最大化，否则会没有效果的。主要通过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