调用一个窗体,窗体Load事件中,如果出错就取消Load,我用Unload me,结果调用的地方出错,说已经被卸载了,请问该如何解决这个问题呢?

解决方案 »

  1.   

    我还是不太明白楼主的意思
    楼主是想如果出错了,就不再进行Form_Load的事件,直接进入窗体?Private Sub Form_Load()    On Error GoTo errhandle
        Err.Raise 23
        Exit Sub
        
    errhandle:
        If Err.Number <> 0 Then
            MsgBox Err.Number
            Err.Clear
            Unload Me
            Exit Sub
        End IfEnd Sub
      

  2.   

    'form1中添加command1
    Private Sub Command1_Click()
        Load Form2
        If Form2.x = 2 Then
           Form2.Show
        Else
            Unload Form2
        End If
    End Sub
    'Form2代码Public x As Integer
    Private Sub Form_Load()
    x = 1Exit Sub
    x = 2End Sub
      

  3.   

    虫子的方法不行,我试过了,我是在sub main里面调用的,不知道会不会有什么关系。
    飞龙的办法可以解决,就是繁了点