ACCESS超级程序框架（UserForm、AccessForm相互嵌入，以及Access子窗体文件分离）

时　间:2017-11-12 06:48:14
作　者:litao   ID：37995  城市：上海
摘　要:以前写了不少乱七八糟的AccessVBA程序，最近准备将它们整合到一起。
最简单的方法就是写个主文件（主窗体），把这些程序全都嵌入进去。
正　文:

以前写了不少乱七八糟的AccessVBA、ExcelVBA、WordVBA程序，最近准备将它们整合到一起。

最简单的方法就是写个主文件（主窗体），把这些程序全都嵌入进去。（当然实际还是重写了所有的程序）


第一步就要建立主程序，设计整个程序的架构。
我考虑到将来要增加一些功能，但有不能随时改主程序，所以必须将程序的一些功能模块分离成独立的文件。（模块、类模块分离到时简单，运行时引用就可以了；窗体分离了就不能直接嵌入子窗体）


经过长时间研究、四处求教，终于实现了设想：
程序包括三部分：
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"，连接到一起！

附件是用来测试这个想法的可行性，不完全按照上述制作的。 点击下载此附件

‘----------------2017-11-20-------------------------’

基本完成了！ 各种情况（MDE、MDB,引用、打开）下的窗体嵌入！还没测试EXCEL、Word文件，基本也就这样了！

点击下载此附件2

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店