求MultiPage的切换页触发！搜索了好久都找不到解决方法！！！！！

qjmfktlf

Private Sub MultiPage1_Change()
    If UserForm1.MultiPage1.Value = 0 Then
        UserForm1.Label6.Caption = UserForm1.TextBox1.Text
    ElseIf UserForm1.MultiPage1.Value = 1 Then
        UserForm1.Label13.Caption = UserForm1.TextBox3.Text
    End If
End Sub

这段代码，可以正常使用，但是有个问题，就是在关闭窗体的时候，这段代码会触发，导致出错！！！求助！！！

qjmfktlf

顶一个~~~~~~~

admin3354

试了多次，仅仅上面的代码并不会在窗口退出时触发事件。一定是窗口退出事件 UserForm_QueryClose 里的代码有问题。

qjmfktlf

admin3354 发表于 2017-1-1 15:44
试了多次，仅仅上面的代码并不会在窗口退出时触发事件。一定是窗口退出事件 UserForm_QueryClose 里的代码 ...

我也不知道，UserForm_QueryClose里面根本没有代码哦，又试了好多次，还是一样！！麻烦帮我看看，谢谢啦！！

qjmfktlf

admin3354 发表于 2017-1-1 15:44
试了多次，仅仅上面的代码并不会在窗口退出时触发事件。一定是窗口退出事件 UserForm_QueryClose 里的代码 ...

我查到原因了，在代码编辑里，如果选中了Page2，就会出现这个问题，选中了1就没有问题！

admin3354

用户窗体执行完成后又执行了一条
UserForm1.MultiPage1.Value = 0

如果当前标签是第一页不会触发  MultiPage1_Change 否则就会，但这时控件已经卸载，所以就会出错。


你把UserForm1.MultiPage1.Value = 0  放在 userform1.show 前面就不会出错了。

admin3354

如果一定要按你的顺序编辑代码，不改模块1的代码。
那就在用户窗体中加入如下代码。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = True
    Me.Hide
End Sub

一样可以解决你的问题。

qjmfktlf

admin3354 发表于 2017-1-1 17:02
用户窗体执行完成后又执行了一条
UserForm1.MultiPage1.Value = 0

好的，真是非常感谢，，，厉害！！！！

gjj136138139

好别扭啊。一般是userform.show,然且在userform的initial事件中初始化。