首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎的在Load窗体中关闭窗体

2013-12-21 
怎样在Load窗体中关闭窗体?初用vb,有2个窗体Form1 和Form2,Form1的按钮单击调用Form2按钮事件代码Private

怎样在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

注意,在 Form1 中
Private Sub Form_Unload()
Unload Form2
End Sub

热点排行