标签:VBA,用户窗
使用少量的代码,就可以创建用户窗体滑动效果。
如下图1所示,单击“下一个”按钮,就会看到好像从右向左滑入另一个窗体;而单击“前一个”按钮,就会看到好像窗体从左向右滑出而重新看到前一个窗体。
图1
实际上的用户窗体界面如下图2所示。
图2
实际上是一个用户窗体,只是将其划分成了左右两个区域,然后使用简单的代码来放置用户窗体右侧部分。代码如下:
代码语言:javascript复制Private Sub CommandButton1_Click()
While Frame2.Left > 6
Frame2.Left = Frame2.Left - 10
DoEvents
Sleep 10
Wend
End Sub
Private Sub CommandButton2_Click()
While Frame2.Left < 266
Frame2.Left = Frame2.Left 10
DoEvents
Sleep 10
Wend
End Sub
Private Sub UserForm_Initialize()
Me.Width = 262
Frame2.Left = 266
Frame2.Top = 6
End Sub