如果问题是“如果用户表单不是活动对象,如何卸载它?” 那么有问题的用户表单必须是无模式的。因为否则它不能在不关闭它的窗口的情况下被停用。并且因为不可能从模态用户表单打开非模态用户表单,所以主用户表单也必须是非模态的。
例子:
有两个用户表单:
第一个用户表单名为“MainForm”,有一个按钮控件,并应用了以下代码:
Private Sub CommandButton1_Click()
Load SubForm
SubForm.Show vbModeless
SubForm.Left = Me.Left + 100
SubForm.Top = Me.Top + 100
End Sub
第二个用户表单名为“SubForm”,可以为空,但应用了以下代码:
Private Sub UserForm_Deactivate()
Unload Me
End Sub
然后Sub
在默认模块中显示主表单:
Sub test()
MainForm.Show vbModeless
End Sub
现在显示 MainForm 后,可以通过单击按钮打开 SubForm。如果 MainForm 再次获得活动表单(再次获得焦点),SubForm 将卸载。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句