敬业的IT人 >> 编程开发 >> .Net技术 >> 介绍MS Agent控件在VB.NET中的应用

介绍MS Agent控件在VB.NET中的应用

敬业的IT人互联网佚名 2008-5-23 17:36:41

　　介绍MS Agent控件在VB.NET中的应用.

作者:黑鹰*PLBlackEagle

在多年以前,当我第一次使用office97时我就喜欢上了office的助手,它给人一种全新的感觉,我一直想设计一个哪样的程序.用了Agent控件,它在也不是什么困难的事了.现在，我们只要使用Microsoft Agent（基于COM），我们就可以在自己的程序中使用这种精灵来给程序增光添彩。用这种精灵，我们可以实现语音的朗读、表演动画甚至还可以实现语音识别呢！

二要求
（1）微软公司视窗2000服务器版或视窗 XP 版
（2）.Net FrameWrok SDK Beta 2版
（3）Microsoft Agent核心组建
（4）Microsoft Agent的精灵：吉尼（Genie）、么林（Merlin）、罗比（Robby）和皮蒂（Peedy)

如果你的系统装有office2000或officeXP,也可使用它的精灵文件,文件后辍为.ACS

（5）至少有一个英语的Text-to-Speech引擎（现在还找不到中文的）
（6）微软运行时发音API4.0a

5),6)项没有你可安装<金山词霸>,它里面装有英语的Text-to-Speech引擎和发音API4.0a

选择菜单：工具-自定义工具箱-COM组件,并选择Microsoft Agent Control 2.0 按确定,它会添加到你的工具箱中.

将Microsoft Agent Control控件添加到窗体上

OK,现在开始!!!

Public Agent As AgentObjects.IAgentCtlCharacterEx

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

AxAgent1.Characters.Load("PL", "G:\Data\MyVBFile\Agent1\Genie.acs")
'从文件中装载精灵
Agent = AxAgent1.Characters("PL")

Agent.LanguageID = &H409
'设置语言为英文,只有这样它才可以说英文.
Agent.Balloon.FontName = Me.Font.Name
'设置气泡的字体,你还可以设置气泡的字体大小,颜色等.

Agent.Show()
Agent.Play("Wave")
Agent.Speak("Hello,Sir.")'说英文
Agent.MoveTo(400,200)'让精灵移动到指定位置
Agent.Play("Restpose")

End Sub

最新文章: 将sqldatareader转变成datatable的vb...[05-23]; 使用.NET2.0编写COM组件供VB调用[05-23]; 如何在VB.NET中创建Windows应用程序(一)[05-23]; 如何在VB.NET中创建Windows应用程序(五)[05-23]; 使用 Visual Basic .NET 进行多线程编程（转..[05-23]; 使用 Visual Basic .NET 访问注册表(微软)..[05-23]

相关文章: 将sqldatareader转变成datatable的vb...[05-23]; 如何在VB.NET中创建Windows应用程序(一)[05-23]; 如何在VB.NET中创建Windows应用程序(五)[05-23]; 使用vb.net加密和解密文件。（好象英文灵，中文不灵）[05-23]; 托拽Explore中的文件到VB.net的窗口 40Star..[05-23]; 我的推荐：在VB.NET中寻找App[05-23]