on error goto lable  
  .....
  yourcode
  .....
  :lable
在your code 出现错误时自动跳到:lable处,处理后面的语句, 在dephi 中用
try 语句.
vb中用end 不结束程序。

解决方案 »

  1.   

    1.on error goto 0回到过程的头重新执行
    2.on error :
    <1>on errer goto 标签
       ...
    标签:
       ...
    <2>on errer resume next
    出错后继续执行以下语句
    3.在delphi中有application.terminate可以结束整个程序,vb中用什么?
    Exit sub
    4.看到有的程序中用了wscript,可是我用的时候报错,是要添加引擎吗?应该怎样在vb中使用wscript呢?
    应用用
    dim obj as object
    set obj=CreateObject("类名")
      

  2.   

    1.on error goto 0  到底有什么作用?
    将错误对象Err重新初始化,可以用来在错误陷井中忽略错误。
    2.on error 的作用范围是什么?
    举例来说
    A函数调用B函数,B函数有错误捕获代码时,B出错时由它自身进行错误处理,B没有错误处理时,错误会引发A的错误处理。
    3.在delphi中有application.terminate可以结束整个程序,vb中用什么?
    VB中使用end
      

  3.   

    前几位说的on error goto 0是返回首部或者跳转到某个标签是错误的,因为我查过msdn,它是一个特殊的用法, justaswind() 说的对。可是我就是在程序中看不出来忽略不忽略错误有什么区别,因为结果都是一样的。
    前3问 justaswind() 都答对了,给分。
      

  4.   

    回应tq的问题:
    在程序中有时对于发生的错误是已知可能会发生且没有必要响应该错误时,就可以忽略错误.屏蔽掉系统错误对话框.
    如使用FSO操作文件时,打开文件,如果文件不存在则新建文件,可使用如下代码:
        On Error Resume Next  '发生错误时执行下一行  
        '如果文件已经存在,则直接打开文件
        Call mFSO.CreateTextFile(mLogFilePath, False)
        On Error GoTo 0  '如果有错误忽略
        Set mFIL = mFSO.GetFile(mLogFilePath)
        Set mTS = mFIL.OpenAsTextStream(ForAppending)
      

  5.   

    on error resume next 和on error goto 0有什么区别啊?
    都是向下执行。