请问一个窗体加载过程中，关闭窗体的方法！！！！！！！！！！！！！

Question

if m then 
   exit sub
   unload form1
endif

Answer 1

exit sub 后就退出过程了，不能执行 unload form1了。
而且就算把 unload form1放到exit sub前面，程序执行就出错，怎么办啊
出错提示：object was unloaded

Answer 2

不要把判断代码写在Load事件中，而是在调用前就应该判断m的值，再决定是否载入form1。
如果是启动窗体是话就把判断代码写在模块的Main过程中，然后到属性中修改启动窗体就可以了。

Answer 3

我现在做的项目需要这方面的功能啊，我也想把判断写在Main过程中啊！可是不行啊。

Answer 4

不行的，实在要做的话，可以考虑用定时器，检查是否完成LOAD，然后再条件判断

Answer 5

#If m Then
    ……
#Else
    ……
#End If

Answer 6

可以用 on error resume next 进行出错处理，当然前提是不引起其它错误，我就这么用过，虽然不是很好的方法，但可以解决问题。

Answer 7

把你的判断条件写到Form_Resize过程里面就可以啦

Answer 8

可以先load，但是不要show
判断完再决定要不要show

Answer 9

rushing(勇敢的心) 
你的Load是怎么写的是不是这样啊：load form2
要是的话还是出错。出错的地方不是在Form2的窗体代码中。而是在Form1的窗体代码Load form2。
该怎么办呢

Answer 10

rushing说的对，这是最好的办法实在不行还有HIDE

Answer 11

if True then Unload me

Answer 12

Form1代码：
On Error Resume Next
Form2.Show 1
MsgBox Err.DescriptionForm2代码:
Private Sub Form_Load()
If 1 Then
    Unload Me
End If
End Sub可以吗?还是用的On Error。

Answer 13

这样行吗？
Public pbLoadfrm2 As BooleanPrivate Sub Form_Load()
    pbLoadfrm2 = True
    if ... then 
        pbLoadfrm2 = False
        exit sub
    end if
    
End SubPrivate Sub Command1_Click()
    Load Form2
    If Form2.pbLoadfrm2 = False Then
        Unload Form2
        MsgBox "asdfa sdfas dfasdfasdf asdf"
    End If
End Sub

Answer 14

不好意思，太马虎了Public pbLoadfrm2 As BooleanPrivate Sub Form2_Load()
    pbLoadfrm2 = True
    if ... then 
        pbLoadfrm2 = False
        exit sub
    end if
    
End SubPrivate Sub Command1_Click()
    Load Form2
    If Form2.pbLoadfrm2 = False Then
        Unload Form2
        MsgBox "asdfa sdfas dfasdfasdf asdf"
    else
        form2.show 1
    End If
End Sub

Answer 15

卸载窗体的代码只能写在Form2_Load()事件中。

Answer 16

load'调入窗体
unload‘卸载窗体
end’结束整个程序