On Error goto Private Sub UserManager_Click() YHguanli.Show 1, Me End Sub在窗体载入的时候发生错误,我需要把窗体Unload,可是报错"对象已卸载",如何避免 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub UserManager_Click()on error resume next YHguanli.Show 1, Me End Sub 加个判断,if not frmX is nothing then unload frmXfrmX是你想要卸载的窗体 Private Sub UserManager_Click() On Error GoTo ErrProc: YHguanli.Show 1, Me Exit SubErrProc: Debug.Print Err.DescriptionEnd Sub VB6.0 目录树的节点怎么查询? 函数问题?? 服务器返回一个模式对话框,只有点击“确定”后,系统才能继续,如何在VB6中写代码自动确定关闭。 怎样把一个文件夹下的所有文件包括子目录都copy到指定的目录,然后在删除 假如有5个文本框,当回车时进入下一个文本框,代码怎么写? 怎么才能才VB里面导入存贮过程!大侠们请! 还是昨天的问题:鼠标移动到一个图片上,过2秒钟出现关于他的说明窗体,问一下是怎么完成的???(初次编程,一定要帮我) 如何使用数组创造一组从负数到正数的数列? 高分求解 学习VB(有一定的基础)有什么好书?????请大家帮助!·!! 结构求解 VB dll问题
Private Sub UserManager_Click()
on error resume next
YHguanli.Show 1, Me
End Sub
frmX是你想要卸载的窗体
On Error GoTo ErrProc:
YHguanli.Show 1, Me
Exit Sub
ErrProc:
Debug.Print Err.Description
End Sub