本帖最后由 山中老人 于 2017-11-13 12:31 编辑
以前写了不少乱七八糟的AccessVBA、ExcelVBA、WordVBA程序，最近准备将它们整合到一起。
最简单的方法就是写个主文件（主窗体），把这些程序全都嵌入进去。（当然实际还是重写了所有的程序）
第一步就要建立主程序，设计整个程序的架构。
我考虑到将来要增加一些功能，但又不能随时改主程序，所以必须将程序的一些功能模块分离成独立的文件。（模块、类模块分离到时简单，运行时引用就可以了；Access窗体分离了,就不能作为子窗体直接嵌入）
经过长时间研究、四处求教，终于实现了设想：
程序包括三部分：
1、主程序（MDB文件）：主窗体、登陆退出功能、引用MyClass文件
2、MyClass文件（MDB/MDE）：将所有要用到的函数、常量、类、类型，全部做成【类模块】，并且打包到一个【总类】中，最后在文件中建立一个【模块】将【总类】实例化（我实例化为【MC】）。【MC】还用词典保存了所有程序运行的状态、资源（包括：打开的文件、窗体、"Access.Application"相互调用的方式）
3、功能模块文件（MDB/MDE）：每个文件包括一些窗体、模块等，实现特定的功能。为保证与主程序沟通，模块中必须包括“MC As Object ” 以及“Sub SetMC(MC_ as Object)”,以接受来自主文件的【MC】实例引入。
运行时：
1、打开主程序
2、主程序自动引用MyClass文件，初始化【MC】并注册。
3、登录后，打开主窗体，主窗体【MC】注册。
4、主窗体根据需要【打开功能模块文件】：
a、CreateObject("access.application") 再.OpenCurrentDatabase文件。
b、使用App.Run "SetMC",MC 将主程序的MC引入子文件中。保证子文件、主文件的各个窗体间相互调用。
c、打开至文件中的窗体，用API抓到主窗体中，并定位其大小位置，实现嵌入！
实现的核心就是这个【MC】对象，将分离的各个"access.application"，连接到一起！
附件是用来测试这个想法的可行性，不完全按照上述制作的。
测试.rar
(540.13 KB, 下载次数: 248)
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2017-11-13 12:25
楼主
