当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET ErrObject.Number属性代码示例

本文整理汇总了VB.NET中Microsoft.VisualBasic.ErrObject.Number属性的典型用法代码示例。如果您正苦于以下问题:VB.NET ErrObject.Number属性的具体用法?VB.NET ErrObject.Number怎么用?VB.NET ErrObject.Number使用的例子?那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。


在下文中一共展示了ErrObject.Number属性的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: test

' Typical use of Number property.
Sub test()
  On Error GoTo out

  Dim x, y As Integer
  x = 1 / y   ' Create division by zero error.
  Exit Sub
out:
  MsgBox(Err.Number)
  MsgBox(Err.Description)
  ' Check for division by zero error.
  If Err.Number = 11 Then
      y = y + 1
  End If
  Resume Next
End Sub
开发者ID:VB.NET开发者,项目名称:Microsoft.VisualBasic,代码行数:16,代码来源:ErrObject.Number

示例2: Module1

Module Module1

    Const WidthErrorNumber As Integer = 1000
    Const WidthHelpOffset As Object = 100

    Sub Main()
        CallingProcedure()
    End Sub

    Sub TestWidth(ByVal width As Integer)
        If width > 1000 Then
            ' Replace HelpFile.hlp with the full path to an appropriate
            ' help file for the error. Notice that you add the error 
            ' number you want to use to the vbObjectError constant. 
            ' This assures that it will not conflict with a Visual
            ' Basic error.
            Err.Raise(vbObjectError + WidthErrorNumber, "ConsoleApplication1.Module1.TestWidth", 
                "Width must be less than 1000.", "HelpFile.hlp", WidthHelpOffset)
        End If
    End Sub

    Sub CallingProcedure()
        Try
            ' The error is raised in TestWidth.
            TestWidth(2000)
        Catch ex As Exception
            ' The Err object can access a number of pieces of
            ' information about the error.
            Console.WriteLine("Information available from Err object:")
            Console.WriteLine(Err.Number)
            Console.WriteLine(Err.Description)
            Console.WriteLine(Err.Source)
            Console.WriteLine(Err.HelpFile)
            Console.WriteLine(Err.HelpContext)
            Console.WriteLine(Err.GetException)

            Console.WriteLine(vbCrLf & "Information available from Exception object:")
            Console.WriteLine(ex.Message)
            Console.WriteLine(ex.ToString)

            Err.Clear()
        End Try
    End Sub
End Module
开发者ID:VB.NET开发者,项目名称:Microsoft.VisualBasic,代码行数:44,代码来源:ErrObject.Number

输出:

Information available from Err object:
-2147220504
Width must be less than 1000.
ConsoleApplication1.Module1.TestWidth
HelpFile.hlp
100
System.Exception: Width must be less than 1000.
at Microsoft.VisualBasic.ErrObject.Raise(Int32 Number, Object Source, Object
Description, Object HelpFile, Object HelpContext)
at ConsoleApplication1.Module1.TestWidth(Int32 width) in C:\Users\example\App
Data\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 17
at ConsoleApplication1.Module1.CallingProcedure() in C:\Users\example\AppData
\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 25

Information available from Exception object:
Width must be less than 1000.
System.Exception: Width must be less than 1000.
at Microsoft.VisualBasic.ErrObject.Raise(Int32 Number, Object Source, Object
Description, Object HelpFile, Object HelpContext)
at ConsoleApplication1.Module1.TestWidth(Int32 width) in C:\Users\example\App
Data\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 17
at ConsoleApplication1.Module1.CallingProcedure() in C:\Users\example\AppData
\Local\Temporary Projects\ConsoleApplication1\Module1.vb:line 25


注:本文中的Microsoft.VisualBasic.ErrObject.Number属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。