标签：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
