On Error goto

yangxie5201314 2010-05-20 03:26:40

Private Sub UserManager_Click()

YHguanli.Show 1, Me

End Sub

在窗体载入的时候发生错误,我需要把窗体Unload,可是报错"对象已卸载",如何避免
...全文
110 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
threenewbee 2010-05-20
  • 打赏
  • 举报
回复
Private Sub UserManager_Click()
On Error GoTo ErrProc:
YHguanli.Show 1, Me
Exit Sub
ErrProc:
Debug.Print Err.Description
End Sub
liguicd 2010-05-20
  • 打赏
  • 举报
回复
加个判断,if not frmX is nothing then unload frmX
frmX是你想要卸载的窗体
chinaboyzyq 2010-05-20
  • 打赏
  • 举报
回复
首先找出加载窗体为何会出错。
yimins 2010-05-20
  • 打赏
  • 举报
回复

Private Sub UserManager_Click()
on error resume next
YHguanli.Show 1, Me

End Sub

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧