日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

在VB.NET中應用Agent技術

在VB.NET中應用Agent技術

更新時間:2021-11-16 文章作者:未知 信息來源:網絡 閱讀次數:

在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
En

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产高清视频免费在线观看 | 欧美精品 在线播放 | 亚洲综合首页 | 四虎高清视频一区二区三区 | 亚洲一区 在线播放 | 亚洲欧美国产18 | 国产精品女上位好爽在线短片 | 久青草国产手机在线观 | 日夜夜操 | 日本精a在线观看 | 欧美日本一道免费一区三区 | 国产精品夜色7777青苹果 | 成人在线视频播放 | 最近中文字幕视频国语中文字幕 | 精品视频在线观看一区二区三区 | 浮力国产第1浮力院线路 | 国产福利小视频在线播放 | 综合成人在线 | 精品久久久久久中文字幕 | 中文字幕亚洲欧美日韩不卡 | 桃色视频在线免费观看 | 久久加久久 | 99久久精品国产交换 | 久久久久久久国产高清 | 夜夜夜夜噜噜噜噜 | 青草香蕉精品视频在线观看 | 女人精69xxxxx免费无毒 | 99精品久久秒播无毒不卡 | 国产成人精品福利网站在线观看 | 久久6这里只有精品 | 99热久久66是国产免费 | 永久在线观看 | 欧美三级影院 | 男女国产| 性殴美 | 亚洲免费在线视频播放 | 天天插插插 | 2020年国产精品午夜福利在线观看 | 人人九九精| 欧美日韩视频免费播放 | 日本xxxxx高清免费泡妞 |