vba - 为 MS Access 制作 QRCode ActiveX 控件 : Control Source Property

Question

我想在 Access2010 中实现二维码，我发现 https://github.com/yas78/QRCodeLibVBA 。从 Access 引用 XLAM 不起作用，我不想将所有模块直接插入 Access，因为这会使项目变得困惑。因此，我决定使用古老的 VB6 创建一个 OCX 文件，因为这似乎是将所有位封装到一个简单对象中的最简单方法。

最后，我制作了一个 OCX，它具有几个关键属性:DataString(要显示的字符串)、ByteModeCharsetName、ErrorCorrectionLevel、 ForeRGB 和 BackRGB，还有方法 Refresh、Cls 和事件 OnClick 和OnDblClick

它在 VB6 应用程序 + Excel 工作表 + Excel 表单中工作正常，但在 Access 表单、报告等中表现得很奇怪。

Excel 中的一切看起来都如人们所期望的那样:

这就是它在 Access 中的样子:

• 自定义属性在“其他”选项卡上可见，但 VBA 编辑器中根本不提供这些属性!不过，手动输入时它确实可以编译。
• 调整控件大小的行为很奇怪
• 控件的事件(如 OnClick)不会显示在属性表的选项卡事件

这是我的问题:

1. Access 控制与其他办公应用程序“不同”吗？
2. 为什么这些属性隐藏在编辑器中？
3. 如何将某些属性“移动”到其他选项卡(类别)，例如将 ForeRGB 移动到选项卡格式(与通常的文本框等一样)？
4. 如何创建可以直接绑定(bind)到记录集而无需使用 VBA 的 ControlSource 属性(在“数据”选项卡上)？这样，我希望我也可以在连续表单上使用该控件。事实上，这是最重要的问题。
5. 调整大小的一些技巧？ (不重要)

我认为我已经非常接近我的目标，但我现在陷入困境。我知道 VB6 已过时，但阅读 Creating Custom Controls for ms access 2010 后VB6 似乎是一个简单的选择。编写 OCX 有其他选择吗？

编辑:此处提供最终工作控制 https://github.com/Combinatix/QRCodeAX

Answer 1

对于 4. 尝试设置控件的 DataBindingBehavior to vbSimpleBound以便可以通过 DataSource 和 DataMember 属性绑定(bind)标量属性(在您的情况下为 ControlSource)。

对于3.使用Tools->Procedure Attributes...菜单，在Name中选择ControlSource，展开Advanced>>并选择<属性类别组合框中的strong>数据。您可以通过对象浏览器(F2)执行相同的操作。找到您的控件，右键单击您的属性/方法(应粗体)并选择属性...上下文菜单选项。这适用于方法，并且比 Tools->Procedure Attributes... 方法更通用。