在Form_Load里检测到错误就阻止Form继续Load，怎么做？

Question

Option Explicit
Private mblnHasError As BooleanPrivate Sub Form_Activate()
    If mblnHasError Then
        '如果发生错误就退出
        Unload Me
    End If
End SubPrivate Sub Form_Load()
    
    mblnHasError = True
    '加载时发生错误
End SubPrivate Sub Form_Unload(Cancel As Integer)
    If mblnHasError Then
        MsgBox "error"
    End If
End Sub

Answer 1

同意楼上的，写在Activate事件中。
要么就自己写一个public的函数FormInit,初始化语句都写在这个函数中。然后
If (frmTest.FormInit=True) then
    frmTest.show
else
    unload frmTest
end if

Answer 2

或者可以在还没有load form 时就确定是否可以load

Answer 3

也开始使用：onerror goto 这个命令。