简单两个窗体:(1)一个frmSplash展示窗体,上有一个Image1控件;(2)一个Fmprgss窗体,添加1个自定义控件(进度条)。
启动frmSplash,单击Image1执行如下代码:
Private Sub Image1_Click()
   Unload Me
   Load Fmprgss
End Sub
Fmprgss退出时执行如下代码:
Private Sub Form_Unload(Cancel As Integer)
Set MdbRs = Nothing
Set MdbCn = Nothing
End Sub
这时,在Image1_Click事件Load Fmprgss处提示"实时错误‘364’对象已卸载"。不应该呀,frmSplash卸载后才启动的Fmprgss,怎么Fmprgss退出时还返回frmSplash事件中去了,