一聚教程网:一个值得你收藏的教程网站

热门教程

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

时间:2022-07-02 11:56:33 编辑:袖梨 来源:一聚教程网

介绍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:DataMyVBFileAgent1Genie.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

热门栏目