使用关闭的用户表单2-VBA

Question

我想通过关闭 userform2 窗口来刷新 userform1组合框的值。 （不放置命令按钮，仅在关闭窗口的情况下）

Answer 1

创建2个用户窗体。

在UserForm1上输入以下代码：

Dim WithEvents frm2 As UserForm2

Private Sub frm2_Closed()     
   MsgBox "Closed!"
End Sub


Private Sub UserForm_Initialize()  
    Set frm2 = New UserForm2
    frm2.Show
End Sub

在Userform2上输入代码：

Public Event Closed()

Private Sub UserForm_Terminate()
RaiseEvent Closed
End Sub

您可以更改代码以执行所需的操作。

当UserForm2关闭时，将引发一个事件并由UserForm1处理。