对于平台的系统按钮来说,功能已经足够强大,但是如果我们想要使用自己的功能该如何呢?下面以导出按钮为例,讲一下实现的方法.
(1)首先到usysfrmMain窗体中找到"导出"按钮的点击事件. 把原来的调用方法改成事件调用.
(2)然后把这个按钮的事件写成如下的语句:
Private Sub cmd8_Click()
If Me.cmd8.Tag = "Custom" Then
Forms!usysfrmmain!frmChild.Form.ExportToExcel
Else
Call Acchelp_cmdClick(8)
End If
End Sub
(3)在想应用自定义功能的窗体的加载事件中加入如下的语句:
Forms!usysfrmmain!cmd8.Tag = "Custom" '自定义导出功能
(4)然后再添加公共过程:
Public Sub ExportToExcel()
MsgBox "My Own Excel!"
End Sub
(5)效果如下:
其它的按钮依此类推,均可以自定义功能的.