我还是不太明白楼主的意思 楼主是想如果出错了,就不再进行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
'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
楼主是想如果出错了,就不再进行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
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
飞龙的办法可以解决,就是繁了点