[重温UMV平台]打造审核工具栏按钮.docVIP

打造审核工具栏按钮 案例场景 UMV平台子窗体的功能按钮图标是固定的，就是“新增、修改、删除、保存、导入、查找、导出、打印、隐藏、关闭”这么几个。在有些情形，我想在子窗体状态下，实现审核单据功能，能实现吗。 改造前： 改造后： 在UMV平台中如何实现呢 思路：把usysfrmMain窗体中的steelToolBar控件的保存按钮，改为审核按钮。并动态显示。 代码如下： 在_child窗体中写下以下代码即可： 一窗体级事件 Private Sub Form_Load() 启用修改工具栏计时器 Me.TimerInterval = 300 End Sub Private Sub Form_Timer() 改变工具栏 ChangeSteelBar Me.TimerInterval = 0 End Sub Private Sub Form_Unload(Cancel As Integer) RestoreSteelbar End Sub 需引用的私用过程。 **按钮 Public Sub ChangeSteelBar() On Error Resume Next 导出按钮修改 Forms!usysfrmMain!steelToolBar.Buttons(8).Enabled = True 保存按钮修改 Forms!usysfrmMain!steelToolBar.Buttons(4).Caption = 审核 标题 Forms!usysfrmMain!steelToolBar.Buttons(4).ToolTipText = 审核/反审核 工具提示文本 End Sub Public Sub RestoreSteelbar() On Error Resume Next 导出按钮修改 Forms!usysfrmMain!steelToolBar.Buttons(8).Enabled = False 保存按钮修改 Forms!usysfrmMain!steelToolBar.Buttons(4).Caption = 保存 标题 Forms!usysfrmMain!steelToolBar.Buttons(4).ToolTipText = 保存 工具提示文本 Forms!usysfrmMain.Refresh End Sub 通过以上改造，就实现了审核功能。这样一改造，更加切合需求。