自定义平台系统按钮的功能

时　间:2011-10-24 19:24:15
作　者:Aaron   ID：20267  城市：闵行
摘　要:自定义平台的系统按钮功能.
正　文:

对于平台的系统按钮来说,功能已经足够强大,但是如果我们想要使用自己的功能该如何呢?下面以导出按钮为例,讲一下实现的方法.

(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)效果如下:

其它的按钮依此类推,均可以自定义功能的.