创建用户窗体滑动效果

2024-02-29 17:01:32 浏览数 (1)

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

0 人点赞