Office中国论坛/Access中国论坛

标题: 【原创 / 文章】在Access中使用“用户窗体”（图文教程） [打印本页]

作者: LucasLynn 时间: 2005-8-26 19:28
标题: 【原创 / 文章】在Access中使用“用户窗体”（图文教程）
大家都知道，在VB中，我们可以创建用户窗体（UserForm），在VB环境中我们可以直接自由绘制窗体。作为同核心的VBA，我们在Access中却无法使用用户窗体，只能只用Access的窗体，虽然两者类似，但是还是有很多的区别，有的时候我们会需要用到用户窗体。难道微软真的这么绝情？

但是！我们在Access VBA环境的自定义工具栏中赫然看到“用户窗体”，虽然内容是灰色的，但是这意味着我们只要创建一个用户窗体，我们就可以直接在Access VBA环境中编辑他。微软保留了编辑功能，这就意味着Access VBA并没有放弃支持用户窗体，只是我们无法创建他而已。

用户窗体的激活意味着我们可以重用大量的VB源码，而几乎不需要作任何改动。

[attach]12683[/attach]

1、尝试创建：

工程资源模块—插入

令人失望的是，只有模块和类模块，没有窗体。

[attach]12684[/attach]

2、尝试导入

工程资源模块—导入

这下有了，导入文件格式里面包含窗体。

[attach]12685[/attach]

于是我们打开VB，创建一个空的窗体，然后导出成.frm文件。

使用VBA导入，失败……

错误信息：

VBE 不支持 “C:\xxx\xxx\xxx.frm” 中包含的窗体类，窗体不能被加载

我们点击帮助后，看到VBA如下解释：

[attach]12686[/attach]

原来VBA只支持用户窗体（UserForm），我们用记事本打开.frm文件，发现格式居然是VB.Form

[attach]12687[/attach]

3、求助兄弟

看来VB的路子走不通了，但是我们去哪里搞个UserForm的导出来呢？

这时候我们想到了Access的亲兄弟Excel，没错，Excel中是没有窗体的，那么Excel的VBA应用程序要用窗体怎么办呢？他一定有办法创建窗体，我们去找他聊聊。

我们在Excel中打开VBA环境，尝试创建一个窗体：

[attach]12688[/attach]

太好了，Excel的VBA环境可以创建用户窗体，没话说，找他借一个，自家兄弟嘛。

Excel创建窗体，然后导出……

回到Access，然后导入……

太感动了，我们终于在Access中创建了一个用户窗体，工程资源中被微软被Access屏蔽的窗体分类也出现了，而且我们看到，Access完全支持用户窗体的编辑，一向默默无闻的工具箱和用户窗体的工具栏也被激活了！

[attach]12689[/attach]

4、编辑用户窗体

感动之下，情不自禁，我们开始自己来编辑这个用户窗体。

画个文本框……

加入一个图形……

……

怎么就这么几个控件……少了点……

居然也不能自己添加……

不会吧，难道用户窗体就支持这几个控件？这决不可能！

看来又是Access在捣鬼，但是：我们发现了“导入”！看来又要找兄弟去借了……

打开Excel，创建用户窗体，工具箱上面也是这么几个控件，我们点击右键发现……

[attach]12690[/attach]

太好了，可以“附加控件”，立即动手，附加了一堆第三方控件。

然后导出页为选项卡.Pag格式。

回到Access，在工具箱上面导入.Pag文件

[attach]12691[/attach]

再次感动，我们的工具箱上面多了一个页，里面包含了我们刚才在Excel中附加的控件。

让我们来试试创建一个，成功！

添加一个滚动条……

添加一个记录浏览器……

（疯狂添加中……）

5、结束语

至此，我们已经可以做到：

在Access VBA环境中创建和编辑用户窗体
在Access VBA环境中扩展工具箱

是的，对于我们来说，Access VBA被屏蔽的用户窗体创建和编辑功能已经被激活了，怎么样，是不是很想马上在你的程序中使用一下用户窗体了？更重要的是，你现在可以从网上下载很多VB的源码放到这里直接使用了，包括Excel里面包含窗体的源码。而不需要象以前那样只能下载无窗体的源码，或者手工移植窗体相关的代码到Access.Form，这对我们而言，是一个太大的好消息了。

附上我做到一个用户窗体演示：

[attach]12692[/attach]

[attach]12681[/attach]

6、后记

<FONT color=#ff0000>经过Trynew指点，原来微软只
作者: 09648lmf 时间: 2005-8-26 19:58
佩服你专的这么透彻。。。。。。。。。。
作者: Trynew 时间: 2005-8-26 20:01
讲解的太精彩了！补充一下，新建用户窗体和附加控件不用到Excel中去，在Access VBA环境的自定义工具栏中就有“插入用户窗体”、"附加控件"，以及“设置注释块”、“解除注释块”等隐藏的工具按钮都非常好用。另外要说明一下，某些控件在Access窗体中不支持部分属性，而在UserForm窗体中支持的很好。但牵涉到数据库处理，还是Access窗体功能强大。
作者: Grant 时间: 2005-8-26 20:09
明白了！真强。
作者: sgrshh29 时间: 2005-8-26 20:28
绝ding！[em23][em23][em23]
作者: sgrshh29 时间: 2005-8-26 20:32
居然可以这样弯弯绕，pfpf！！！
作者: 静儿 时间: 2005-8-26 20:34
大家快送花啊！
作者: GORYUNGBBS 时间: 2005-8-26 21:14
虽然拐了个弯，不过拐的很漂亮！楼主的钻研精神可敬可佩
作者: chajiangliang 时间: 2005-8-26 22:00
OK , 實用.

[此贴子已经被作者于2005-8-26 14:01:14编辑过]

作者: LucasLynn 时间: 2005-8-26 22:10

以下是引用Trynew在2005-8-26 12:01:00的发言：

讲解的太精彩了！

补充一下，新建用户窗体和附加控件不用到Excel中去，在Access VBA环境的自定义工具栏中就有“插入用户窗体”、"附加控件"，以及“设置注释块”、“解除注释块”等隐藏的工具按钮都非常好用。

另外要说明一下，某些控件在Access窗体中不支持部分属性，而在UserForm窗体中支持的很好。但牵涉到数据库处理，还是Access窗体功能强大。

果然可以，我怎么没想到，原来微软只是把他隐藏了而已。我反而舍本逐末了。

多谢指点！

[此贴子已经被作者于2005-8-26 14:35:21编辑过]

作者: 静儿 时间: 2005-8-26 22:34
[em07][em07][em07]

[此贴子已经被作者于2005-8-26 15:05:34编辑过]

作者: LucasLynn 时间: 2005-8-26 23:08

以下是引用静儿在2005-8-26 14:34:00的发言：

[em07][em07][em07]

谢谢啦，我刚问完就发现在那里了，所以就改了，没想到你动作这么快。

不过还是谢谢了！
作者: chajiangliang 时间: 2005-8-26 23:13
很多人喜歡VB的控件數組﹐但自定義窗體卻不行.
作者: sgrshh29 时间: 2005-8-27 04:25
好贴！建议固顶一周。期待下文。[em01]

[此贴子已经被作者于2005-8-26 20:26:12编辑过]

作者: pxsj 时间: 2005-8-27 05:55
支持固定
作者: pxsj 时间: 2005-8-27 06:56
请教：LucasLynn

你说：现在我已经动手自定义自己的菜单，把所有隐藏的选项，如插入用户窗体，附加控件，格式菜单，设置/取消注释块都添加到了菜单和右键选项里面，你是不是也准备动手来一番大的改造呢？

能不能详细说下怎么自己定义啊我都找不到
作者: kelind 时间: 2005-9-14 01:37
[em02][em08][em04][em01][em09][em16]
作者: 红寺 时间: 2005-9-14 04:35
学习了，长见识了又。
作者: guoya 时间: 2005-9-15 04:38
[em01][em02][em03]
作者: 竹笛 时间: 2005-9-15 08:47
不错~~
作者: yodong 时间: 2005-9-15 17:33
历害.那么这个窗体跟VB的窗体有什么区别,我想用这个窗体来这一个即时通讯软件,即是QQ哪样.
作者: yodong 时间: 2005-9-16 05:54
2002支持吗
作者: 可乐可口 时间: 2005-9-17 02:09
楼主太棒了
作者: jpsai 时间: 2005-9-28 04:30
ddddddddddddddddddddd
作者: songzhha 时间: 2005-12-11 17:19
多谢了,

学会的不只是在Access中使用“用户窗体”
作者: frdfy 时间: 2005-12-12 02:08
虽然最后一句话。。。

但是楼主的转眼精神可嘉阿
作者: fan0217 时间: 2006-1-3 05:03
Office的其他套件都可以创建用户窗体。

为什么Access要摒弃呢？[em06]

[此贴子已经被作者于2006-1-2 21:20:38编辑过]

作者: airoracle 时间: 2006-3-4 17:26
学习学习
作者: 小明 时间: 2006-3-15 00:49
与VB更接近了，使用又更灵活了，感激啊
作者: cz685 时间: 2006-4-3 22:09
牛啊
作者: preen88 时间: 2006-4-28 19:52

以下是引用Trynew在2005-8-26 12:01:00的发言：

讲解的太精彩了！

补充一下，新建用户窗体和附加控件不用到Excel中去，在Access VBA环境的自定义工具栏中就有“插入用户窗体”、"附加控件"，以及“设置注释块”、“解除注释块”等隐藏的工具按钮都非常好用。

另外要说明一下，某些控件在Access窗体中不支持部分属性，而在UserForm窗体中支持的很好。但牵涉到数据库处理，还是Access窗体功能强大。

作者: 钓鱼太郎 时间: 2006-5-25 01:31
学习学习
作者: china007 时间: 2006-7-28 23:04
感谢提供，确实非常精彩
作者: divineka 时间: 2006-8-27 00:22
嗯，楼主的精神值得表扬
作者: yangzn 时间: 2006-9-17 02:50
实在是高.学习了.我用的是access2000，可是没找到那个隐藏菜单？？！难道还是只有这个绕弯的方法
作者: jiaolin86 时间: 2006-9-17 23:33
非常有帮助，谢了

作者: ok003 时间: 2006-12-10 10:35
不服不行啦！
作者: wx120- 时间: 2007-12-4 02:06
zxfcdas asdf fas asfs
作者: slowgrace 时间: 2009-1-3 20:12
刚看到你这个帖子的时候一阵狂喜，摸了之后很是失落。因为即使能添userform，也还是不能把别的VB project里的FORM导入。这样拿到其他带窗体的VB源码也还是不能用，因为不知道人家窗体是怎么布置的，犹如瞎子摸象。
作者: chaojianan 时间: 2009-10-24 14:45
可以解决许多在access支持不是很好的控件的问题，
经过测试，在用户窗体中可以很好的支持。
作者: qq7597184 时间: 2010-3-8 16:31
不管怎样，非常佩服楼主专研精神~
作者: lijiexiang 时间: 2011-4-22 00:21
学习到收藏

作者: zzbming 时间: 2018-10-15 15:47
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3