| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 实例学习笔记 >> 实例分析正文
最新推荐 更多内容
消息队列MSMQListener(VB2010实例)
消息队列MSMQListener(VB2010实例)
作者:Akyao    来源:乐博网收集     更新时间:2011-4-4

本文演示如何从 Windows 窗体应用程序发送和接收消息对列消息,来自乐博网,消息队列MSMQListener(VB2010实例)

如果你想下载本文的源代码RAR压缩集合包  请访问
VB2010源代码集合包(芋头糕)    http://www.lob.cn/code/utility/2795.shtml
特别感谢网友 芋头糕 将此资源提供乐博网分享,欢迎加入 40797788 的.Net超级qq群交流。

消息队列MSMQListener(实例如下:

 

' Copyright (c) Microsoft Corporation. All rights reserved.
Imports System.Messaging

Public Class MainForm '更多.net源代码和教程 来自乐博网 lob.cn

    Private m_Path As String = ".\private$\orders"

    ' Starts reading messages from the queue.
    Private Sub HookQueue()
        Try
            ' when we are stopped.
            If qOrders Is Nothing Then
                qOrders = New System.Messaging.MessageQueue(m_Path)
            End If

            ' Start waiting for messages to arrive.
            qOrders.BeginReceive()

        Catch exp As MessageQueueException
            My.Application.Log.WriteEntry(exp.Message)
        Catch exp As Exception
            My.Application.Log.WriteEntry(exp.Message)
        End Try
    End Sub

    ' Stops reading messages from the queue.
    Private Sub UnhookQueue()
        Try
            qOrders.Close()
        Catch exp As Exception
            My.Application.Log.WriteEntry(exp.Message)
        End Try
    End Sub

    ' Event Handler for message recieved event.
    Private Sub qOrders_ReceiveCompleted(ByVal sender As Object, ByVal e As System.Messaging.ReceiveCompletedEventArgs) Handles qOrders.ReceiveCompleted
        Try
            ' Get the message.
            Dim m As Message
            m = qOrders.EndReceive(e.AsyncResult)

            ' Add the message to the Listbox.
            OrderListbox.Items.Add(m.Label)

            ' Now continue listening for messages.
            qOrders.BeginReceive()

        Catch exp As MessageQueueException
            My.Application.Log.WriteEntry(exp.Message)
        Catch exp As Exception
            My.Application.Log.WriteEntry(exp.Message)
        End Try
    End Sub

    ' Clears the Listbox.
    Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
        OrderListbox.Items.Clear()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Create the private queue if it does not exist.
        Try
            If Not MessageQueue.Exists(".\private$\orders") Then
                MessageQueue.Create(".\private$\orders")
            End If
        Catch ex As Exception

        End Try
    End Sub

 

    ' Toggles listening for messages.
    Private Sub Listen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listen.CheckedChanged
        If Listen.Checked Then
            Try
                HookQueue()
            Catch exp As MessageQueueException
                My.Application.Log.WriteEntry(exp.Message)
            Catch exp As Exception
                My.Application.Log.WriteEntry(exp.Message)
            End Try
        Else
            UnhookQueue()
        End If
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    Tablet PC 2005 的区分上下文功能(VB2010实例)
    响应数字化仪触笔背面的橡皮擦(VB2010实例)
    WMI编程实例(VB2010实例)
    系统服务管理实例(VB2010实例)
    进程管理(VB2010实例)
    显示进程组成模块(VB2010实例)
    任务管理器编程(VB2010实例)
    性能计数器编程(VB2010实例)
    消息队列MSMQClient(VB2010实例)
    写入事件日志(VB2010实例)
    读取事件日志(VB2010实例)
    创建和删除事件日志(VB2010实例)
    COMPort编程(VB2010实例)
    读取大文件(VB2010实例)
    读取文件(VB2010实例)
    文件移动(VB2010实例)

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]