本文整理匯總了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()