如何更改快速开发平台上的窗体按钮

时　间:2026-06-20 10:03:06
作　者:张志   ID：8  城市：上海  QQ：3059255
摘　要:修改按钮名称和调整位置，使整个界面风格统一。
正　文:

一、盟威软件快速开发平台

    盟威 Access 快速开发平台是上海盟威软件有限公司根据十余年企业应用开发的实践经验积累，基于 Microsoft Office Access 精心打造的一款快速开发平台。该平台主要用于低门槛、高效率地进行企业中各种实用型管理软件的开发，以追求实用为目标，最大限度地降低开发的技术门槛和难度、提高开发效率、节省开发时间，让开发者只需要专注于业务逻辑的实现。
    即使不会软件开发编程技术的各行业从业人员，通过短期非脱产学习后，就能在最短的时间内开发出软件并投入实际使用。该平台适用于中小企业各种管理软件开发、大型企业部门级应用开发等场景。
    特别值得一提的是最新版本上的“快速建表工具”功能。该功能可以帮助开发者先构思建表方案，构思结束后可以一键创建所有的表。这一设计极大避免了新手常见的开发困境——边想边建表、建查询、建窗体后，才发现当初表中字段设计不合理，从而导致花大力气去修改表、查询、窗体乃至VBA代码的设计。通过“快速建表工具”，你可以在设计阶段就把表结构想清楚，一键生成后直接进入业务逻辑开发，省时省力。
    下载地址： www.accessgood.com

二、窗体上平台创建的按钮如何调整

    用户用“数据模块生成器”创建窗体之后，主窗体上会自动生成一排操作按钮，例如：新增、修改、删除、关闭等。这些按钮默认是平均分布排列的，且其名称和位置由平台代码库中的代码来统一设置。

    因此，如果直接在设计视图中手工修改按钮的位置和文字，你会发现修改是无效的——因为每次窗体加载时，InitFormMenuBar 函数会根据数据模块的定义重新加载按钮的图标和文字，并自适应调整各菜单的位置。

    既然手工修改无效，那么我们就应该利用 VBA 代码在窗体加载时动态地去实现定制，用代码修改后的效果如下。

三、示例代码

    假定之前我们创建了一个【刷新】按钮，现在需要将其改为【更新至历史行情】，步骤如下：
    步骤1： 先将【关闭】按钮调整至右边一点。原因是中间的按钮变宽了，按钮平均分布需要更宽的距离。
    步骤2： 在代码行 InitFormMenuBar Me 之后添加 3 行代码，具体如下：

Private Sub Form_Open(Cancel As Integer)
    ApplyTheme Me
    LoadLocalLanguage Me


    EnableButton Me.btnImport, HasPermission("本日行情", "Import")
    EnableButton Me.btnExport, HasPermission("本日行情", "Export")
    InitFormMenuBar Me
    Me.btnRefresh.Caption = "更新到历史行情"    '更改按钮的名称
    Me.btnRefresh.Width = 2000                 '调整按钮的宽度
    Me.btnClose.Left = 7300                    '调整左边距
    Me.Recalc
End Sub

    代码说明：
    Me.btnRefresh.Caption = "更新到历史行情" —— 将刷新按钮的显示文字改为“更新到历史行情”。
    Me.btnRefresh.Width = 2000 —— 将按钮宽度调整为 2000缇（Twip，Access中的默认单位，1厘米≈567缇）。
    Me.btnClose.Left = 7300 —— 将关闭按钮的左边距调整为 7300缇，为变宽后的按钮腾出空间。
    Me.Recalc —— 重新计算窗体布局，使调整生效。


    注意事项：
    修改按钮属性的代码必须放在 InitFormMenuBar Me 之后，因为该函数会重新设置按钮的标题和位置，放在之前会被覆盖掉。
    通过以上几行代码，你就可以轻松定制平台自动生成的窗体按钮，让界面更符合你的业务需求，而不必受限于平台的默认设置。


Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店