ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1570|回复: 3

[原创] ACCESS窗体 动态添加控件

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-11-20 10:56 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 山中老人 于 2020-11-20 16:06 编辑

      ACCESS窗体 原生的控件都是无法动态添加的,但是我通过添加一个Frame容器控件,实现了这个想法。
并且能够获取到动态添加控件的事件。
只是,动态添加的控件必须是UserForm控件了,一些属性、方法、事件稍有不同!

将动态控件功能,封装为类。简化操作代码!
目前提供控件: 【Label】【TextBox】 的几个常用事件支持。其他控件及其事件,需要大家自己添加代码扩展支持。
添加在类模块【ControlShell】
'===========事件接收对象============
Private WithEvents eLabel As MSForms.Label
Private WithEvents eTextBox As MSForms.TextBox
'===================================
以及其他几个标记{'**事件接收对象}的 地方

此方法参考【一指禅62】在《[原创] 动态加载控件与事件》的代码!
再次感谢【一指禅62


202011200927540942.PNG

动态添加控件3.rar

53.91 KB, 下载次数: 20

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-11-28 13:15 | 显示全部楼层
冬天到了冷清了

TA的精华主题

TA的得分主题

发表于 2020-12-3 12:32 | 显示全部楼层
更改布局的APP也不是没有,比如,微信的“发现”页面,支付宝首页的图标等等。但它们都是基于内置模块而不是用户自定义模块来更改。例如,支付宝首页的图标,就不可能添加一个微信入口进去,它只能添加支付宝里的“蚂蚁森林”之类。
所以,像楼主这样添加用户自定义控件的场景到底会在什么地方呢?开发平台吗?此外,添加完之后,这些控件的事件又怎么处理呢?这都是我比较好奇的事情。
——这里只是纯粹探讨下软件的功用性问题,没有打击楼主的意思,有什么不对的地方还望楼主海涵。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-12-8 18:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
roych 发表于 2020-12-3 12:32
更改布局的APP也不是没有,比如,微信的“发现”页面,支付宝首页的图标等等。但它们都是基于内置模块而不 ...

嗯!其实我对【动态添加控件】最大的需求,其实是在自己来制作控件!
我采用的事偷懒的办法,用现有的控件,拼装出我需要的控件。

自己制作的控件,所有的代码都可以封装在一个类中。窗体中只需要一个Frame控件就好了。
只要一些简单的代码,就可以自动加载各种功能、控件。通过层层加载,就可以建立起一个需要的窗体,组装成一个功能模块!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 17:59 , Processed in 0.043710 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表