如何使用脚本控件错误对象

文章翻译 文章翻译
文章编号: 184742 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本文介绍了脚本控制错误对象属性,并提供说明其用法的示例代码。

更多信息

脚本控件 Error 对象提供宿主应用程序脚本错误有关的大量信息。支持以下属性:
   Property         Description
   -----------------------------------------------------------------
   Number           Error number.
   Description      Error message.
   Line             The line number the error occurred on (1 based).
   Column           The column number the error occurred on (0 based).
   Text*            The text of the line that caused the error.
   Source**         What component caused the error.
   HelpFile***      Help file name provided by the error source.
   HelpContext***   Help context provided by the error source.
				

* 文本属性是空白的运行时错误,但包含编译错误的数据。

** VBScript 在来源属性是 Microsoft VBScript 编译错误或 Microsoft VBScript 运行时错误。如果使用不同的脚本语言,则源可能会有所不同。

*** 帮助和 HelpContext 属性是空白除外用户引发错误。

要点: Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证,其中包括但不是限于对适销性和/或针对特定用途的适用性的暗示的担保。本文假定您熟悉所演示的编程语言和工具用于创建和调试过程。

分步示例

  1. 在 Visual Basic 中创建新的项目 (默认情况下创建 Form1)。
  2. 在项目菜单上单击组件,然后选择 Microsoft 脚本控制 1.0 复选框。
  3. 向 Form1 中添加脚本控件 (ScriptControl1)、 文本框 (文本 1) 和命令按钮 (Command1)。将文本框的多行属性设置为 TRUE。以便于使用更改文本 1 的大小,以便它可容纳 5 行 60 字符。
  4. 向 Form1 中添加以下代码:
          Private Sub Command1_Click()
            On Error Resume Next
            With ScriptControl1
              .Language = "VBScript"
              .AllowUI = True
              .AddCode Text1.Text
              .Run "Test"
            End With
            If Err Then
              MsgBox Err & " " & Error
              ListErrors ScriptControl1
            End If
          End Sub
    
          Private Sub ListErrors(S As ScriptControl)
            With S.Error
              Debug.Print "Number:", .Number
              Debug.Print "Source:", .Source
              Debug.Print "Desc:", .Description
              Debug.Print "Line: " & .Line, "Column: " & .Column
              Debug.Print "Text:", .Text
              Debug.Print "Help File:", .HelpFile
              Debug.Print "Help Context:", .HelpContext
              Debug.Print
            End With
          End Sub
    
    						
  5. 运行 Form1,然后打开调试窗口。
  6. 在文本框中键入下面的脚本:
          Sub Test
            MsgBox == "Hello World"
            Err.Raise 555, "Test", "Custom Error", "test.hlp", 5
          End Sub
    
    						
  7. 单击命令按钮。如此一来 (实际的输出可能因具体取决于所使用的脚本控件的版本) 的调试窗口中会出现以下错误:
          Number:       1002
          Source:       Microsoft VBScript compilation error
          Desc:         Syntax error
          Line: 2       Column: 16
          Text:         MsgBox == "Hello World"
          Help File:
    
          Help Context:  0
    
    						
  8. 删除该 = = 从 MsgBox 行,再次单击该命令按钮。
  9. 在 MsgBox 出现,然后错误"555 自定义错误"。调试窗口显示以下:
          Number:       555
          Source:       Test
          Desc:         Custom Error
          Line: 3       Column: 8
          Text:
          Help File:    test.hlp
          Help Context: 5
    
    						
    注: 列数可能会有所不同,具体取决于是否您剪切和粘贴代码或手动不所有前导空格的情况下对其进行键入。

参考

脚本控件的帮助主题: Error 对象

有关如何获得该脚本控件的信息,请参阅 Microsoft 知识库中下面的文章:
184739: 信息: 获得脚本控件的位置

(c) Microsoft Corporation 1998,保留的所有权限。通过贡献 Malcolm Stewart,Microsoft Corporation

属性

文章编号: 184742 - 最后修改: 2004年7月13日 - 修订: 3.1
这篇文章中的信息适用于:
  • Microsoft Visual Basic 5.0 学习版
  • Microsoft Visual Basic 6.0 学习版
  • Microsoft Visual Basic 5.0 专业版
  • Microsoft Visual Basic 6.0 专业版
  • Microsoft Visual Basic 5.0 企业版
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 标准版
  • Microsoft Visual Basic 4.0 专业版
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
  • Microsoft Visual Basic for Applications 5.0
关键字:?
kbmt kbgrpdsvb kbhowto kbscript kbvbp KB184742 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 184742
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com