[已解决]窗体打开和关闭

boss_zc

我们知道按钮事件触发窗体打开：
Option Explicit

Sub 按钮1——Click（）
    Userform.Show
End Sub

按钮1可以控制多页的打开，如果实现再点一下按钮1，多页关闭怎么实现？


窗口例子.rar (14.49 KB, 下载次数: 1)

2014-8-9 15:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-8-9 16:10

boss_zc 发表于 2014-8-9 16:02
谢谢你！
尝试了一下，没成功！
可那我弄的不正确吧！

窗口例子.rar (14.82 KB, 下载次数: 18)

2014-8-9 16:10 上传

点击文件名下载附件
这样

1. Private Sub CommandButton1_Click()
   
2.     If MultiPage1.Pages("page1").Visible = True Then
   
3.         MultiPage1.Pages("page1").Visible = False
   
4.     Else
   
5.         MultiPage1.Pages("page1").Visible = True
   
6.     End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

1. Private Sub CommandButton1_Click()
   
2.     If CommandButton1.Caption = "打开" Then
   
3.         CommandButton1.Caption = "关闭"
   
4.         UserForm1.Show 0
   
5.     Else
   
6.         CommandButton1.Caption = "打开"
   
7.         Unload UserForm1
   
8.     End If
   
9. End Sub

复制代码

楼主看看是不是这个意思
8.9.rar (17.05 KB, 下载次数: 4)

2014-8-9 15:27 上传

点击文件名下载附件

boss_zc

qh8600 发表于 2014-8-9 15:27
楼主看看是不是这个意思

谢谢你！
尝试了一下，没成功！
可那我弄的不正确吧！
如果你会就下载附件看一下吧！

qh8600

boss_zc 发表于 2014-8-9 16:02
谢谢你！
尝试了一下，没成功！
可那我弄的不正确吧！

窗口例子.rar (14.82 KB, 下载次数: 18)

2014-8-9 16:10 上传

点击文件名下载附件
这样

1. Private Sub CommandButton1_Click()
   
2.     If MultiPage1.Pages("page1").Visible = True Then
   
3.         MultiPage1.Pages("page1").Visible = False
   
4.     Else
   
5.         MultiPage1.Pages("page1").Visible = True
   
6.     End If
   
7. End Sub
   

复制代码

boss_zc

非常感谢，试验成功了！