本文整理汇总了VB.NET中System.Transactions.TransactionCompletedEventHandler代理的典型用法代码示例。如果您正苦于以下问题：VB.NET TransactionCompletedEventHandler代理的具体用法？VB.NET TransactionCompletedEventHandler怎么用？VB.NET TransactionCompletedEventHandler使用的例子？那么, 这里精选的代理代码示例或许可以为您提供帮助。
在下文中一共展示了TransactionCompletedEventHandler代理的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Main
Public Shared Sub Main()
Try
Using scope As TransactionScope = New TransactionScope()
'Register for the transaction completed event for the current transaction
AddHandler Transaction.Current.TransactionCompleted, AddressOf Current_TransactionCompleted
'Perform transactional work here.
'Call complete on the TransactionScope based on console input
Dim c As ConsoleKeyInfo
While (True)
Console.Write("Complete the transaction scope? [Y|N] ")
c = Console.ReadKey()
Console.WriteLine()
If (c.KeyChar = "Y") Or (c.KeyChar = "y") Then
scope.Complete()
Exit While
ElseIf ((c.KeyChar = "N") Or (c.KeyChar = "n")) Then
Exit While
End If
End While
End Using
Catch ex As TransactionException
Console.WriteLine(ex)
Catch
Console.WriteLine("Cannot complete transaction")
Throw
End Try
End Sub
'Transaction completed event handler
Private Shared Sub Current_TransactionCompleted(ByVal sender As Object, ByVal e As TransactionEventArgs)
Console.WriteLine("A transaction has completed:")
Console.WriteLine("ID: {0}", e.Transaction.TransactionInformation.LocalIdentifier)
Console.WriteLine("Distributed ID: {0}", e.Transaction.TransactionInformation.DistributedIdentifier)
Console.WriteLine("Status: {0}", e.Transaction.TransactionInformation.Status)
Console.WriteLine("IsolationLevel: {0}", e.Transaction.IsolationLevel)
End Sub