本文整理汇总了VB.NET中System.TypeInitializationException类的典型用法代码示例。如果您正苦于以下问题：VB.NET TypeInitializationException类的具体用法？VB.NET TypeInitializationException怎么用？VB.NET TypeInitializationException使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
在下文中一共展示了TypeInitializationException类的4个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Main
Public Class Example
Shared test As New TestClass(3)
Public Shared Sub Main()
Dim ex As New Example()
Console.WriteLine(test.Value)
End Sub
End Class
Public Class TestClass
Public ReadOnly Value As Integer
Public Sub New(value As Integer)
If value < 0 Or value > 1 Then Throw New ArgumentOutOfRangeException()
Value = value
End Sub
End Class输出：
Unhandled Exception: System.TypeInitializationException: The type initializer for 'Example' threw an exception. ---> System.ArgumentOutOfRangeException: Specified argument was out of the range of valid values. at TestClass..ctor(Int32 value) at Example..cctor() --- End of inner exception stack trace --- at Example.Main()
示例2: New
Public Class InfoModule
Private firstUse As DateTime
Private ctr As Integer = 0
Public Sub New(dat As DateTime)
firstUse = dat
End Sub
Public Function Increment() As Integer
ctr += 1
Return ctr
End Function
Public Function GetInitializationTime() As DateTime
Return firstUse
End Function
End Class示例3: Example
Module Example
Public Sub Main()
Dim p As New Person("John", "Doe")
Console.WriteLine(p)
End Sub
End Module
Public Class Person
Shared infoModule As InfoModule
Dim fName As String
Dim mName As String
Dim lName As String
Shared Sub New()
infoModule = New InfoModule(DateTime.UtcNow)
End Sub
Public Sub New(fName As String, lName As String)
Me.fName = fName
Me.lName = lName
infoModule.Increment()
End Sub
Public Overrides Function ToString() As String
Return String.Format("{0} {1}", fName, lName)
End Function
End Class
' The example displays the following output if missing1a.dll is renamed or removed:
' Unhandled Exception: System.TypeInitializationException:
' The type initializer for 'Person' threw an exception. --->
' System.IO.FileNotFoundException: Could not load file or assembly
' 'Missing1a, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null'
' or one of its dependencies. The system cannot find the file specified.
' at Person..cctor()
' --- End of inner exception stack trace ---
' at Person..ctor(String fName, String lName)
' at Example.Main()示例4: Main
' 导入命名空间
Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim domain As AppDomain = AppDomain.CurrentDomain
' Set a timeout interval of -2 seconds.
domain.SetData("REGEX_DEFAULT_MATCH_TIMEOUT", TimeSpan.FromSeconds(-2))
Dim rgx As New Regex("[aeiouy]")
Console.WriteLine("Regular expression pattern: {0}", rgx.ToString())
Console.WriteLine("Timeout interval for this regex: {0} seconds",
rgx.MatchTimeout.TotalSeconds)
End Sub
End Module输出：
Unhandled Exception: System.TypeInitializationException: The type initializer for 'System.Text.RegularExpressions.Regex' threw an exception. ---> System.ArgumentOutOfRangeException: Specified argument was out of the range of valid values. Parameter name: AppDomain data 'REGEX_DEFAULT_MATCH_TIMEOUT' contains an invalid value or object for specifying a default matching timeout for System.Text.RegularExpressions.Regex. at System.Text.RegularExpressions.Regex.InitDefaultMatchTimeout() at System.Text.RegularExpressions.Regex..cctor() --- End of inner exception stack trace --- at System.Text.RegularExpressions.Regex..ctor(String pattern) at Example.Main()