MessageQueue.Create : MessageQueue « System.Messaging « VB.Net by API

1. VB.Net by API
2. System.Messaging
3. MessageQueue

MessageQueue.Create

   
Imports System
Imports System.Messaging

Public Class MainClass
    
    Shared Sub Main()
      Dim Greeting As String = "Hello World!"
      Dim mQ As MessageQueue
      If MessageQueue.Exists(".\Private$\HelloWorld") Then
         mQ = New MessageQueue(".\Private$\HelloWorld")
      Else
         mQ = MessageQueue.Create(".\Private$\HelloWorld")
      End If

      mQ.Send(Greeting, "HelloWorld")
      Console.WriteLine("Greeting Message Sent to Private Queue.")
    End Sub
End Class

   
    
    
  

Related examples in the same category