转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
在VB.NET中应用Agent技术    热     ★★★★

在VB.NET中应用Agent技术

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1450 更新时间：2009/4/23 19:01:41
在OFFICE帮助文件，金山毒霸，瑞星杀毒软件中有一个助手的功能，用来给用户提出帮助信息或建设。在Visual Basic .Net中使用Microsoft Agent Control 2.0组件能轻松实现这一功能。 一、添加Agent组件 启动Visual Studio .NET2003，新建一个Visual Basic .Net应该程序。在Visual Basic .Net中右击工具箱，选择“添加/移除项（I）…”或者在工具栏中选择工具菜单，在下拉菜单中选择“添加/移除工具箱项（X）…”，在弹出的“自定义工具箱”中选择COM页面，选择中“Microsoft Agent Control 2.0”组件，如下图1所示： 图1： 添加Agent组件 点击“确定”后，会在工具箱中新增加一个“Microsoft Agent Control 2.0”组件，如 图2所示： 图2：添加Agent组件成功 二、设计程序界面 添加三个Button组件，让用户操作助手的不同功能。
一个ComboBox组件，让用户选择助手的动作。
一个TextBox组件，让用户输入助手朗读的文字。
一个Agent组件
两个Label组件
运行界面图3所示： 图3：运行界面 三、编写代码 1、加载助手 要使用Agent必须先把助手加载到程序中,可以使用AxAgent1.Characters.Load方法来加载助手,并加助手ID赋给事先定义好的助手类型objAgent,后面就是通过objAgent操作助手,实现代码如下：  ''''定义助手类型
    Dim objAgent As AgentObjects.IAgentCtlCharacterEx     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            ''''加载助手
            AxAgent1.Characters.Load("merlin", "C:\WINNT\msagent\chars\merlin.acs")
            objAgent = AxAgent1.Characters("merlin")
            ''''显示助手
            objAgent.Show()
            Button2.Enabled = True
            Button3.Enabled = True
            Label1.Enabled = True
            Label2.Enabled = True
            ComboBox1.Enabled = True
            TextBox1.Enabled = True
            Button1.Enabled = False
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 按F5测试程序,就可以加载并显示助手了,所图4如所示： 图4：加载并显示助手 2、实现助手动作 加载助手后就可以让助手执行指定的动作了。 主要通过Play方法执行助手动画， Play方法有一个参数Animation,表示指定动作。 AxAgent组件提供了几十种动助手动作，下面给出一些常用的助手动作： 参数 动作 RestPose 恢复初始状态
Acknowledge 承认
LookDown 向下看
Sad 悲伤
Alert 警告
LookDownBlink 向下看眨眼
Search 寻找
Announce 声明
LookUp 向上看
StartListening 开始聆听
Blink 眨眼
LookUpBlink 向下看眨眼
StopListening 停止聆听
Confused 迷惑
LookLeft 向左看
Suggest 建议
Congratulate 祝贺
LookLeftBlink 向左看眨眼
Surprised 吃惊
Decline 拒绝
LookRight 向右看
Think 思考
DontRecognize 不承认
LookRightBlink 向右看眨眼
Wave 挥动
Explain 解释
MoveDown 向下移动
Write 书写
GestureDown 向下姿势
MoveUp 向上移动
Processing 计算
GestureUp 向上姿势
MoveRight 向右移动
Reading 阅读
GestureLeft 向左姿势
MoveLeft 向左移动
Searching 寻找
GestureRight 向右姿势
Pleased 高兴
Writing 书写
GetAttention 获得注意
Read 阅读
Greet 问候 我们选取几种常用的动作参数举例     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("显示")
        ComboBox1.Items.Add("问候")
        ComboBox1.Items.Add("隐藏")
        ComboBox1.Items.Add("移动")
        ComboBox1.Items.Add("朗读")
        ComboBox1.Items.Add("思考")
        ComboBox1.Items.Add("阅读")
        ComboBox1.Items.Add("书写")
        ComboBox1.Items.Add("高兴")
        ComboBox1.Items.Add("祝贺")
        ComboBox1.SelectedIndex = 0
    End Sub ''''根据用户不同的选择，执行不同的动作
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Select Case ComboBox1.SelectedIndex
                Case 0
                    objAgent.Show()
                Case 1
                    objAgent.Play("Greet")
                Case 2
                    objAgent.Hide()
                Case 3
                    objAgent.MoveTo(Me.Width, Me.Height)
                Case 4
                    If TextBox1.Text <> "" Then
                        objAgent.Speak(TextBox1.Text)
                    End If
                Case 5
                    If TextBox1.Text <> "" Then
                        objAgent.Think(TextBox1.Text)
                    End If
                Case 6
                    objAgent.Play("Reading")
                Case 7
                    objAgent.Play("Write")
                Case 8
                    objAgent.Play("Pleased")
                Case 9
                    objAgent.Play("Congratulate")
            End Select
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub 运行效果如图5所示： 图5：助手的朗读动作 3、卸载助手 可以使用AxAgent1.Characters.Unload方法来卸载助手,实现代码如下：     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            AxAgent1.Characters.Unload("merlin")
            Button2.Enabled = False
            Button3.Enabled = False
            Label1.Enabled = False
            Label2.Enabled = False
            ComboBox1.Enabled = False
            TextBox1.Enabled = False
            Button1.Enabled = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
下载实例：http://pcwak.8u8.com/Agent/Agent.rar  


[Delphi程序]ms agent 经典用法  [VB.NET程序]Microsoft Agent Tutorial Chapter 2
[VB.NET程序]Microsoft Agent Tutorial Chapter 1  [网页制作]在DreamWeaver中应用CSS样式表技巧两则
[网页制作]在Dreamweaver MX中应用“占位图形”  [Web开发]ASP.NET中应用XML技术实现Web报表打印
[SyBase]Sybase Rep Server的rep_agent不启动怎么办?  [ORACLE]Oracle初学点滴-(2)-OracleOraHome90Agent
[Sql Server]在VB.NET中应用SQLDMO  [Sql Server]SQL SERVER SQL Agent服务使用技巧小结
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台