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

  没有公告

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

消息队列MSMQClient(VB2010实例)

VB2010源码如下:

' Copyright (c) Microsoft Corporation. All rights reserved.
Imports System.Messaging    '更多.net源代码和教程 来自乐博网 lob.cn

Public Class MainForm

    ' Places an order in the message queue.
    Private Sub OrderButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderButton.Click

        ' Place the order in the message queue.
        ' The body of each message could contain more order info.
        Try
            If Hamburger.Checked Then
                qOrders.Send("", "Hamburger")
            ElseIf Hotdog.Checked Then
                qOrders.Send("", "Hot Dog")
            ElseIf Drink.Checked Then
                qOrders.Send("", "Drink")
            Else
                qOrders.Send("", "Fries")
            End If
        Catch ex As Exception
            MsgBox("Message queueing is not installed or is not properly configured")
        End Try

    End Sub

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

        ' Creates 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

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

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    显示进程组成模块(VB2010实例)
    任务管理器编程(VB2010实例)
    性能计数器编程(VB2010实例)
    消息队列MSMQListener(VB2010实例)
    写入事件日志(VB2010实例)
    读取事件日志(VB2010实例)
    创建和删除事件日志(VB2010实例)
    COMPort编程(VB2010实例)
    读取大文件(VB2010实例)
    读取文件(VB2010实例)
    文件移动(VB2010实例)
    获取驱动器磁盘信息(VB2010实例)
    目录搜索和目录查找(VB2010实例)
    文件搜索和文件查找(VB2010实例)
    选择文件目录(VB2010实例)
    删除文件(VB2010实例)

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