Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Connect to a message queue and sends a message to the queue

Imports System Imports System.Messaging Public Class MyNewQueue         Public Shared Sub Main()             Dim myNewQueue As New MyNewQueue             myNewQueue.SendMessage()         End Sub         Public Sub SendMessage()             Dim myQueue As New MessageQueue(".\myQueue")             If myQueue.Transactional = True Then                 Dim myTransaction As New MessageQueueTransaction                 myTransaction.Begin()                 myQueue.Send("My Message Data.", myTransaction)                 myTransaction.Commit()             Else                 myQueue.Send("My Message Data.")             End If             Return         End Sub End Class