用Visual Basic实现Office助手
程序的设计实现
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文件的支持。
用Visual Basic实现Office助手相关推荐
- Microsoft Office如何打开Visual Basic编辑器(macOS)
目录 写在前面 科普 如何开启Visual Basic编辑器 写在前面 一些专业人士在Microsoft Office套件中有时需要用到Visual Basic编辑器,但又不知道如何打开.本文就向大家 ...
- 在MS Office,Visual Basic 6和Visual Basic for Applications中解析名称
By Patrick Matthews 帕特里克·马修斯 1.简介 (1. Introduction) Any time you have to store or process people's n ...
- Visual Basic开发实战1200例(第Ⅱ卷)pdf
下载地址:网盘下载 内容简介 编辑 本书以开发人员在项目开发中经常遇到的问题和必须掌握的技术为核心,介绍了应用Visual Basic进行程序开发的多方面的知识和技巧,主要包括Visual Basic ...
- vba 编辑combobox内容_初识Visual Basic编辑器并建立一段简单的代码
大家好,从今日开始我正式推出"VBA之EXCEL应用"教程,这个教程是面向初学人员的教程,教程一共三册,十七个章节,从简单的录制宏实现一直讲到窗体的搭建,都是我们在利用EXCEL工 ...
- Visual Basic 兴衰记
这是一篇暴露年龄的文章.为什么这么说?因为现在年轻的程序员可能没有接触过当年红极一时的 Visual Basic.28 年前的 1991 年 4 月,Microsoft 发布了 Visual Basi ...
- Visual Basic .NET处理Excle表格全接触
Visual Basic .Net处理Excel表格机理和处理Word文档一样,也是通过互操作,引入COM组件来实现的,所以前提条件是运行本文中介绍的程序的计算机必须安装Office 2000中的Ex ...
- 苹果或已放弃3月发布廉价新iPhone;贾跃亭回应家人巨额索赔;微软不再继续开发 Visual Basic | 极客头条...
整理 | 屠敏 头图 | CSDN 下载自东方 IC 快来收听极客头条音频版吧,智能播报由标贝科技提供技术支持. 「极客头条」-- 技术人员的新闻圈! CSDN 的读者朋友们早上好哇,「极客头条」来啦 ...
- Visual Basic 终于要衰落了吗?
28年过去了,世界上最流行的语言之一Visual Basic终于要衰落了吗? 作者 | Matthew MacDonald 译者 | 谭开朗,责编 | 郭芮 出品 | CSDN(ID:CSDNnews ...
- Visual Basic编程常见问题及解答(2)
如何把小图片填满 MDIForm 成为背景图? 以下这个范例,要: 1.一个 MDIForm:不必设定任何属性. 2.一个 Form1:不一定是 MDIChild,最好 MDIChild 为 Fals ...
最新文章
- mysql 查询实体_mysql – 如何优化实体框架查询
- 拼多多回应开除程序员:严重违反员工行为规范,因此解约!
- windows 远程桌面 启动方式
- 《Spring实战》第四版读书笔记 第二章 装配Bean
- 苹果市值盘中超2万亿美元,从1万亿到2万亿仅用时2年
- 类和对象——对象特性——this指针的用途
- WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器
- 世界是沙粒还是宇宙_看到一个沙粒世界:再一次你好世界
- php文件断点续传,PHP实现文件下载断点续传详解
- Redis遍历所有key的两个命令 -- KEYS 和 SCAN
- g120xa变频器调试参数_西门子G120XA变频器如何进行快速调试
- sqlserver自定义函数
- Apache Ant包进行ZIP文件压缩
- ue4 命名插件_实时渲染模拟每根头发丝!新版UE4在实时毛发方面的实验性新功能...
- Oracle初学者入门指南-什么是DSI?
- DTPA PEG 异硫氰酸荧光素,DTPA PEG FITC,FITC-PEG-DTPA
- unity标准材质,emission的设置
- 服务器蓝屏,错误代码0X00000040,解决方案!
- 查看当前系统 jave 版本 ,Eclipse版本
- 利器解读——Linux 内核调测中最最让开发者头疼的 bug 有解了|龙蜥技术