в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:45:00Z

1 версия

Новая страница

==Customize Exception Information==

<source lang="vbnet">
Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main(ByVal args As String())
Try
Console.WriteLine("Open file here")
Dim a As Double = 5
Dim b As Double = 0
Console.WriteLine("{0} / {1} = {2}", a, b, DoDivide(a, b))
Console.WriteLine("This line may or may not print")
" most derived exception type first
Catch e As System.DivideByZeroException
Console.WriteLine( _
"DivideByZeroException! Msg: {0}", e.Message)
Console.WriteLine( _
"Helplink: {0}", e.HelpLink)
Console.WriteLine( _
"Stack trace: {0}", e.StackTrace)
Catch
Console.WriteLine("Unknown exception caught!")
Finally
Console.WriteLine("Close file here.")
End Try
End Sub
" do the division if legal
Shared Public Function DoDivide( _
ByVal a As Double, ByVal b As Double) As Double
If b = 0 Then
Dim e As New System.DivideByZeroException( )
e.HelpLink = "http://www.vbex.ru"
Throw e
End If
If a = 0 Then
Throw New System.ArithmeticException( )
End If
Return a / b
End Function "DoDivide
End Class

</source>

==Display Exception, Inner Exception and stack trace==

<source lang="vbnet">
Imports System
Imports System.Data
Imports System.Diagnostics
public class MainClass
Shared Sub Main()
Try
Dim Result As Double = 100 \ CInt("0")
Console.WriteLine(Result)
Catch E As System.DivideByZeroException
Console.WriteLine("Message: " + E.Message)
Dim F As Integer, S As New StackTrace(E)
Console.WriteLine("StackFrame: ")
For f = 0 To S.FrameCount - 1
Console.WriteLine(S.GetFrame(f).ToString())
Next F
End Try
End Sub
End Class

</source>

==Exception Help Link, Message and Trace==

<source lang="vbnet">
Imports System
Imports System.Text
Imports System.Text.RegularExpressions

Public Class MainClass
Shared Sub Main( )
Try
Console.WriteLine("Open file here")
Dim a As Double = 5
Dim b As Double = 0
Console.WriteLine("{0} / {1} = {2}", a, b, DoDivide(a, b))
Console.WriteLine("This line may or may not print")
" most derived exception type first
Catch e As System.DivideByZeroException
Console.WriteLine( _
"DivideByZeroException! Msg: {0}", e.Message)
Console.WriteLine( _
"Helplink: {0}", e.HelpLink)
Console.WriteLine( _
"Stack trace: {0}", e.StackTrace)
Catch
Console.WriteLine("Unknown exception caught!")
Finally
Console.WriteLine("Close file here.")
End Try
End Sub "Main
Shared Public Function DoDivide(ByVal a As Double, ByVal b As Double) As Double
If b = 0 Then
Throw New System.DivideByZeroException( )
End If
If a = 0 Then
Throw New System.ArithmeticException( )
End If
Return a / b
End Function

End Class

</source>

==Exception Information==

<source lang="vbnet">
Imports System
Public Class MainClass

Shared Sub Main(ByVal args As String())
Try
CalculateValue()
Catch ex As Exception
Console.WriteLine( "ex.Message:" & ex.Message )
Console.WriteLine( "ex.StackTrace:" & ex.StackTrace )
Console.WriteLine( "ex.ToString:" & ex.ToString )
End Try
End Sub

Shared Private Function CalculateValue() As Integer
Return 1 \ Integer.Parse("0")
End Function
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Development/Exception Message - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия