access2007功能区开发-modRibbonPrivate模块
时 间:2009-09-08 00:03:09
作 者:朱亦文 ID:61 城市:岳阳
摘 要:Access2007功能区开发-modRibbonPrivate模块
正 文:
Option Compare Database
Option Explicit
'----------------------------------------------------------
'modRibbonPrivate模块 : 与modRibbonPublic模块配合使用
'相关 : clsRibbon类/clsRibbonControl类/modRibbonPublic模块
'日期 : 2009.05.02
'作者 : 朱亦文
'目的 : 设置指定功能区的回调函数,要动态改变属性,必须单独
' 指定回调
'----------------------------------------------------------
'例:Main功能区
'<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="LoadImages" onLoad="onRibbonLoad">
' <ribbon startFromScratch="true">
' <tabs>
' <tab id="tabHome" label="任务面板">
' <group id="grpMessage" label="消息">
' <button id="btnMessage" label="最新消息" size="large" getImage="Main_GetImage" tag="message.png" onAction="onButtonClick" />
' <separator id="sepMessage1" />
' <labelControl id="labUnit" getLabel="Main_GetLabel" />
' <labelControl id="labUser" getLabel="Main_GetLabel" />
' <labelControl id="labDate" getLabel="Main_GetLabel" />
' </group>
' </tab>
' </tabs>
' </ribbon>
'</customUI>
'建议 : 回调函数的命名:功能区名称_公共回调函数名称
' 功能区 : Main
' getImage回调
' 名称定义: Main_GetImage
Public Sub Main_GetLabel(control As IRibbonControl, ByRef Label)
Call GetLabel("Main", control, Label)
End Sub
Public Sub Main_GetImage(control As IRibbonControl, ByRef image)
Call GetImage("Main", control, image)
End Sub
Public Sub Main_OnActionButton(control As IRibbonControl)
' MsgBox control.id & " " & control.Tag
Select Case control.id
Case "btnHome": DoCmd.OpenForm "首页"
Case "btnQuit"
If CurrentProject.AllForms("登录").IsLoaded Then DoCmd.Close acForm, "登录"
DisconnectDB
DoCmd.Quit
Case "btnWEB": DoCmd.OpenForm "浏览器"
Case "btnWEBcj": DoCmd.OpenForm "网上长江海事"
Case "btnSecurityExternal": DoCmd.OpenForm "外部安全监管网"
Case "btnDockList": DoCmd.OpenForm "渡口"
Case "btnDockReport": DoCmd.OpenReport "渡口信息卡", acViewPreview
Case "btnShipList": DoCmd.OpenForm "客渡船"
Case "btnShipsReport": DoCmd.OpenReport "渡船信息卡", acViewPreview
Case "btnShipsSecValid": DoCmd.OpenForm "船舶FSC检查"
Case "btnShipMenList": DoCmd.OpenForm "船员"
Case "btnShipMenEval": DoCmd.OpenForm "船员评估"
Case "btnFirstReport": DoCmd.OpenForm "首班报告"
Case "btnLastReport": DoCmd.OpenForm "末班报备"
Case "btnSMSSend": DoCmd.OpenForm "发布手机短信"
Case "btnSendList": DoCmd.OpenForm "发送列表"
Case "btnRecieveList": DoCmd.OpenForm "接收列表"
Case "btnGPSWindow": DoCmd.OpenForm "GPS监控"
Case "btnGPSRecord": DoCmd.OpenForm "GPS监控记录"
Case "btnDockFieldChart": DoCmd.OpenForm "渡口地域分布图", acFormPivotChart
Case "btnDockFieldTable": DoCmd.OpenForm "渡口地域分布表"
Case "btnShipsT": DoCmd.OpenForm "渡船主机吨位"
Case "btnShipsFieldChart": DoCmd.OpenForm "渡船地域分布图", acFormPivotChart
Case "btnShipsFieldTable": DoCmd.OpenForm "渡船地域分布表"
Case "btnShipsFSCCount": DoCmd.OpenForm "渡船安检缺陷统计表"
Case "btnShipMenEvalCount": DoCmd.OpenForm "船员评估统计表"
Case "btnShipsSMSBGSum": DoCmd.OpenForm "渡船有效首班报告统计表"
Case "btnShipsSMSBBSum": DoCmd.OpenForm "渡船有效末班报备统计表"
Case "btnEvalItemSet": DoCmd.OpenForm "船员评估项目管理"
Case "btnEvalMananger": DoCmd.OpenForm "船员评估管理"
Case "btnPlaceMananger": DoCmd.OpenForm "地名"
End Select
' Call testRibbon
End Sub
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)