怎样在Load窗体中关闭窗体?
初用vb,有2个窗体Form1 和Form2,Form1的按钮单击调用Form2
按钮事件代码
Private Sub cmb1_Click()
Load Form2
For2.show vbModal
End Sub
下面是Form2的Load事件
Private Sub Form_Load()
...此处执行很多代码初始化界面,想实现如果出错,就不显示这个窗体,现在的问题时使用 Exit sub 退出还是会显示窗体,使用end 会结束整个程序,使用unload me 报错
End Sub
[解决办法]
如果你在 Form2 中的处理代码要涉及界面控件,可以在 Activate 事件中 Unload Me
Form2的Load事件
Dim BlnError As Boolean
Private Sub Form_Load()
...此处执行很多代码初始化界面,想实现如果出错,就不显示这个窗体,
If some_thing_wrong Then
blnError = True
Exit Sub
End If
End Sub
Private Sub Form_Activate()
If blnError Then Unload Me
End Sub
Private Sub Form_Unload()
Unload Form2
End Sub