这还有懂点vb的吗？进来帮个忙。。。。。。。。。

Question

#If RELEASE = 1 Then
    On Error GoTo errorcon
#End If
.................................
errorcon:
    Call ReportErrMsg(err.Number, err.Description, "GetLine", "frmGetTdc")这段程序啥意思?实现什么功能，可以帮我把它做成vc吗？
请指教

Answer 1

#If RELEASE = 1 Then       //如果是release 版本
On Error GoTo errorcon     //有错误转到错误处理代码 errorcon
#End Iferrorcon:
Call ReportErrMsg(err.Number, err.Description, "GetLine", "frmGetTdc")  //调用ReportErrMsg()函数相当于
try{}catch(){}

Answer 2

On Error GoTo errorcon从字面上理解就是:当出错的时候执行errorcon这个东西.#If RELEASE = 1 Then这个嘛,估计是表示当是发布版本的时候才这么干,调试版本的时候就不这么干了.