您的位置：程序门 -> vb -> 网络编程

vb 如何交将系统出错提示提示出来？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb 如何交将系统出错提示提示出来？

发表于：2008-01-04 17:09:20 楼主

如运行vb写的程序时出现任何系统错误，只要点确定之后都自动退出：

以一个简单的错示如：
---------------------------
工程1
---------------------------
运行时错误 '13':

类型不匹配
---------------------------
确定
---------------------------

以上是：随便做的一个提示，如何使系统认到这个提示的时候，弹出一个提示框如：
系统运行错误：运行时错误 '13':类型不匹配，是否继续工作？

只要点：是，则系统不退出，只是停止如： exit sub,如果点否则：end

这样子要怎么做呢？？？

以下是图片，但是不知道可不可以用，是刚上传上来的！～

发表于：2008-01-04 17:43:131楼得分:0

加错误陷阱

vbscript code


private sub command1_click（)
    on error goto errhandle
    '……
    exit sub
    
errhandle:
    if msgbox（"运行出错。错误号为" & err.number & ",错误信息：" & chr（13) & err.description & chr（13) & "是否继续运行？", vbyesno) = vbyes then
        err.clear
    else
        end
    end if
end sub

发表于：2008-01-04 23:14:232楼得分:0

怎么加，比如现在有：

private sub command1_click（)
dim fsdf
text1 = fsdf（fsdf)
end sub

动行时一定出错，因为fsdf（fsdf)这二个是我随便写的，那应该如何加呢？

发表于：2008-01-04 23:18:043楼得分:0

能不能说出错了自动执行某个程序？
比如出错了我要让他执行：command2_click

private sub command1_click（)
dim fsdf
text1 = fsdf（fsdf)
end sub

应该如何修改呢？？

发表于：2008-01-05 00:26:044楼得分:0

知道了，谢谢！～

下一篇：关于访问网页的问题，请教各位高手！
上一篇：vb 模拟 post 提交

其他资讯