原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
用Visual Basic实现Office助手 2005年06月22日?09:21 天极yesky 作者： 青岛郎锐
摘要：本文讲述了在Visual Basic 6.0开发环境下在自己的应用程序中对微软代理Active X控件进行编程的一般方法。 关键字：Visual Basic 6.0、Active X、Agent 引言 相信广大的程序设计人员对Microsoft 公司的办公套件Office系列产品一定不会陌生，而且也一定会注意到那个外型古怪的Office助手，当我们需要寻求帮助，按下F1键时它就会从天而降，为我们进行解答，当完成任务后又会慢慢的缩小直至消失。这无疑比寻常呆板的Windows风格的帮助友善许多。会使用户觉的产品的人机界面更加亲切，如果在我们自己的应用程序中也能实现上述功能无疑会使我们的程序看上去高一个档次。本文就以VB为例对此进行了详细的介绍。 程序的设计实现 Microsoft Visual Basic 6.0以其简洁的语言、强大的功能、精美的界面和Visual C++、Delphi、C++Builder等语言一样得到了广泛的应用，尤其是对Active X控件方面的编程非常方便简洁，所以本文示例程序选用VB作为实现语言。 打开Office目录我们会发现里面有众多的可执行文件和动态连接库以及一些奇怪后缀的文件，而且向Office这么大型的软件一般是要划分为若干个模块的，一个或几个相关功能的文件会单独以文件的形式存盘，在执行时根据需要临时调用执行，所以Office助手应该也不例外，经过寻找，发现后缀为acs的文件的类型说明为Microsoft Agent Character File，表明了是我们所需要的微软代理模块文件。 用VB新建一个标准EXE文件，按Ctrl+T热键打开部件窗口，从中选中Microsoft Agent Control 2.0,并将其新添加的图标从工具栏添加到窗体，之后就可以象使用其他Active X控件一样使用它了，其主要属性有Connected、Index、Left、RaiseRequestError、Tag、Top等，均取其缺省值即可。使用时先将.acs文件装载，然后将其显示并按规定的动作播放即可，首先定义COM接口IAgentCtlCharacterEx和IAgentCtlRequest的对象：
Dim Dot0 As IAgentCtlCharacterEx Dim AgentRequest As IagentCtlRequest
然后通过Set语句对其进行设置：
Set AgentRequest = Agent1.Characters.Load(Dot0, C:\.Logo.acs) Set Dot0 = Agent1.Characters.Character(Dot0)
剩下的工作就是调用Dot0对象的 Shou函数将其显示以及Play函数对其进行播放，最终用Hide函数将其隐藏即可：
Dot0.Show (0) Dot0.Play (Alert) Dot0.Hide(0)
在此Alert就是我们将要播放的动作，类似的动作有诸如LookDown、Wave等等很多种，现列表如下请根据需要酌情在程序中选用适当的动作：
小结： 本文所述的方法对所有的Office办公套件中的.acs文件都适用，动作名称也都相一致，可以完全按本文所述代码实现，但对于第三方开发的acs文件，则应当按照其文档的描述对本文代码稍事修改即可，否则有可能会引发不可预料的非法错误的产生。本程序在Windows 2000 Professional + SP4下，由Microsoft Visual Basic 6.0中文版编译通过，由Microsoft Office 2000提供对acs文件的支持。
文档评论（0）