创建用户窗体滑动效果

fanjy

发布于 2024-02-29 17:01:32

810

发布于 2024-02-29 17:01:32

文章被收录于专栏：完美Excel完美Excel

标签：VBA，用户窗

使用少量的代码，就可以创建用户窗体滑动效果。

如下图1所示，单击“下一个”按钮，就会看到好像从右向左滑入另一个窗体；而单击“前一个”按钮，就会看到好像窗体从左向右滑出而重新看到前一个窗体。

图1

实际上的用户窗体界面如下图2所示。

图2

实际上是一个用户窗体，只是将其划分成了左右两个区域，然后使用简单的代码来放置用户窗体右侧部分。代码如下：

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

本文参与腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2024-02-28，如有侵权请联系 cloudcommunity@tencent.com 删除

vba