控件介绍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