爱问知识人 爱问教育 医院库

VB中的一个问题

首页

VB中的一个问题

VB 书上一个例题,我按书敲了程序。程序运行时报错:

 “标签没定义”
在VB中标签如何定义,请老师给予帮助

提交回答
好评回答
  • 2019-03-03 21:29:06
    !!!!!!!!知道了,对不起刚刚看到邮件
    正如我所说,你的errorhandle:在sub外面
    删掉errorHandle:前的end sub,改成exit sub才行
    祝你新年好运
    

    想***

    2019-03-03 21:29:06

其他答案

    2019-03-03 20:52:22
  • 好象没有问题,出现此提示是定义的错误句柄名称不存在.比如:onerrorgotoErrorHandle.......onerrorgoto0'取消容错处理Er <>0then....endif一般不建议使用onerrorresumenext,这样程序出错不好检测.

    l***

    2019-03-03 20:52:22

  • 2019-03-03 20:41:49
  •   下面是MSDN里的一个例子,请注意前面带*号的句子。
    (用的时候记得吧*号去掉)
    Sub OnErrorStatementDemo()
       On Error GoTo ErrorHandler   ' 打开错误处理程序。
       Open "TESTFILE" For Output As #1   ' 打开输出文件。
       Kill "TESTFILE" ' 试图删除已打开的文件。 On Error Goto 0 ' 关闭错误陷阱。 On Error Resume Next ' 改变错误陷阱。 ObjectRef = GetObject("MyWord。
      Basic") ' 试图启动不存在 ' 的对象 '检查可能发生的 Automation 错误。 If Err。Number = 440 Or Err。Number = 432 Then ' 告诉用户出了什么事。
      然后清除 Err 对象。 Msg = "There was an error attempting to open the Automation object!" MsgBox Msg, , "Deferred Error Test" Err。
      Clear ' 清除 Err 对象字段。 End If *Exit Sub ' 退出程序,以避免进入错误处理程序。 ErrorHandler: ' 错误处理程序。 Select Case Err。Number ' 检查错误代号。
       Case 55 ' 发生“文件已打开”的错误。 Close #1 ' 关闭已打开的文件。 Case Else ' 处理其他错误状态 。 。 。 End Select * Resume ' 将控制返回到产生错误的语句。
       *End Sub。

    据***

    2019-03-03 20:41:49

  • 2019-03-03 20:38:59
  • 按说不应当有问题的,我通常也这么用啊。仔细看看是不是那里打错了?实在不行就on error resume next是编写软件中最好的选择,呵呵。

    哥***

    2019-03-03 20:38:59

  • 2019-03-03 20:34:35
  • On Error GoTo ErrorHandle
    ...
    ErrorHandle:
    你得定义一个句柄名称呀,要不不得出错呀!
    一般不建议使用on error resume next,这样程序出错不好检测.

    F***

    2019-03-03 20:34:35

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 173-192
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):