VB封装工作组文件及调用探讨.doc.docVIP

VB封装工作组文件及调用方法探讨 前 言 此前我曾在论坛发过两篇文字，即关于《如何避开宏安全级限制启动MDB》与《VB建壳指定工作组并启动MDB》，由于成文较为仓促，文中有不少值得探究的地方，留待以后在文章中补充或更正。 本文与此前的两篇文字主题大同小异，仍围绕VB辅助ACCESS进行项目开发的主题，只是侧重点有所不同，但几篇文字又都相互关联，在实际项目开发中可以综合运用。 本文主题为：VB实现资源文件集成、封装及调用。论坛中有许多朋友提及并关注这一话题，下面我将结合实例与大家共同分享自己有关这方面的一些心得。权当抛砖引玉，还是那句话，如果此文对您有所帮助，那将是本人莫大之快事！ 本文讲解要点： 资源文件集成与封装 资源文件释放及调用 封装技巧应用 系统及平台要求： 1、操作系统为：XP2 2、ACCESS为2003 版 3、VB为 6.0 附注及说明： 本文围绕具体实例进行讲解。有关实例及VB源码可到office中国江羽空间下载 实例含：窗体图片素材、图标素材、编译的mdw文件集成.exe、VB源码 实例演示：将封装的“security.mdw”工作组文件释放到system32文件夹 本文默认你已对于VB6编程有一定了解 第一章、资源文件集成 1.1 初识VB资源编辑器 我们要实现资源文件集成封装到应用程序中，首要的工作就是将预集成资源文件（本文实例：“security.mdw”工作组文件）寄存到VB资源编辑器中。 那什么VB资源编辑器？通俗说就是VB用于存放资源文件的容器。VB的资源编辑器可以存放包括：文本、图片、二进制数据等，几乎所有的Windows应用程序中的资源，当我们需要使用时，再从中释放或提取出来，供我们使用。 1.2 启动资源编辑器 步骤一：VB资源编辑器是外接程序，我们必须调用并启动它。在VB编辑环境中点菜单[外接程序]—[外接程序管理器] （见图1），启动外接程序管理器窗口。 （图1） 步骤二：选择[VB6资源编辑器]选项—钩选[加载/卸载]—点[确定]，你在工具栏中就能看到资源编辑器图标（见图2）。 （图2） 步骤三：单击 [资源编辑器图标] （见图3）打开VB6资源编辑器窗口。 （图3） 1.3 向VB资源编辑器添加自定义资源文件 步骤四：单击窗口 [自定义资源] 图标（见图4），在 [打开一个自定义资源文件] 对话框中选择自定义文件（实例为：“security.mdw”工作组文件），点[打开]按钮选定资源文件就添加到资源编辑器中（见图5），资源编辑器会出现CUSTOM 文件夹及[101] 自定义资源。 （图4） (图5) 步骤五：点[VB资源编辑器窗口] 的 [保存] 图标，弹出 [资源文件另存为] 对话框，点确定，才算真正完成我们的资源文件集成（见图6）。 （图6） 第二章、资源文件释放及调用 要使用集成文件我们必须先释放已集成文件到指定文件夹，然后再调用就可以，实例是将工作组文件释放到Ｗindows系统文件，即：System32中。要实现上述目标，我们必须先解决几个问题： 2.1 获取系统文件夹System32路径 我们通过GetSystemDirectory API函数来编写一个获取系统文件夹自定义函数，我们在工程中建立一个模块，并将如下代码复制到模块中。自定函数模块可以自动获取系统文件夹路径。 实例代码如下： 2.2 资源文件释放方法解析 　　我们可以通过编程，将资源编辑器中文件，以自定义文件名释放到指定文件夹，举例说明，假如：之前我们已将MyPro.exe文件集成至VB资源编辑的CUSTOM中，其资源编辑器中编号101，我们编程实现：将MyPro.exe文件名释放到C盘，代码如下： 特别说明： 1、Const ExeFile = 114688 中欲生成的文件大小，是根据你前面集成到VB资源编辑器中的文件实际大小换算而来，假如：ExeMy.exe 文件为 112 K ，必须换算成字节，1K=1024字节，112K换算后等于 114688 字节。不多也不能少，否则释放文件将报错。 2、LoadResData(101, CUSTOM) 中 101 为文件集成在资源编辑品中的编号，CUSTOM为文件类型，这决定着你将释出哪个文件。 3、Open C:\MyPro.exe For Binary As #1 中C:\M