本文整理匯總了VB.NET中System.Messaging.XmlMessageFormatter類的典型用法代碼示例。如果您正苦於以下問題：VB.NET XmlMessageFormatter類的具體用法？VB.NET XmlMessageFormatter怎麽用？VB.NET XmlMessageFormatter使用的例子？那麽, 這裏精選的類代碼示例或許可以為您提供幫助。
在下文中一共展示了XmlMessageFormatter類的3個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Server
' 導入命名空間
Imports System.Messaging
Public Class Server
Public Shared Sub Main()
Console.WriteLine("Processing Orders")
Dim queuePath As String = ".\orders"
EnsureQueueExists(queuePath)
Dim queue As New MessageQueue(queuePath)
CType(queue.Formatter, XmlMessageFormatter).TargetTypeNames = New String() {"Order"}
While True
Dim newOrder As Order = CType(queue.Receive().Body, Order)
newOrder.ShipItems()
End While
End Sub
' Creates the queue if it does not already exist.
Public Shared Sub EnsureQueueExists(path As String)
If Not MessageQueue.Exists(path) Then
MessageQueue.Create(path)
End If
End Sub
End Class示例2: ShipItems
Public Class Order
Public itemId As Integer
Public quantity As Integer
Public address As String
Public Sub ShipItems()
Console.WriteLine("Order Placed:")
Console.WriteLine(ControlChars.Tab & "Item ID : {0}", itemId)
Console.WriteLine(ControlChars.Tab & "Quantity : {0}", quantity)
Console.WriteLine(ControlChars.Tab & "Ship To : {0}", address)
' Add order to the database.
' Insert code here.
End Sub
End Class示例3: Main
' 導入命名空間
Imports System.Messaging
Class Client
Public Shared Sub Main()
Dim queuePath As String = ".\orders"
EnsureQueueExists(queuePath)
Dim queue As New MessageQueue(queuePath)
Dim orderRequest As New Order()
orderRequest.itemId = 1025
orderRequest.quantity = 5
orderRequest.address = "One Microsoft Way"
queue.Send(orderRequest)
' This line uses a new method you define on the Order class:
' orderRequest.PrintReceipt()
End Sub
' Creates the queue if it does not already exist.
Public Shared Sub EnsureQueueExists(path As String)
If Not MessageQueue.Exists(path) Then
MessageQueue.Create(path)
End If
End Sub
End Class