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