设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: zhuyiwen
打印 上一主题 下一主题

Access2007功能区开发-自定义图像加载模块

[复制链接]
61#
发表于 2013-5-4 13:46:00 | 只看该作者
收下先
62#
发表于 2013-5-7 12:37:15 | 只看该作者
先看看
63#
发表于 2013-5-11 11:03:03 | 只看该作者
正在下载

点击这里给我发消息

64#
发表于 2013-6-19 12:25:03 | 只看该作者
谢谢,朱老师.
65#
发表于 2013-6-27 20:25:57 | 只看该作者
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">
'  <ribbon startFromScratch="true">
'    <tabs>
'      <tab id="tabHome" label="任务面板">
'        <group id="grpMessage" label="消息">
'          <button id="btnMessage" label="最新消息" size="large" getImage="Main_GetImage" tag="message.png" />
'          <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
66#
发表于 2013-7-23 11:43:55 | 只看该作者
先买了再学习
67#
发表于 2013-10-1 05:14:46 | 只看该作者
多谢分享,回复看看
68#
发表于 2013-10-1 05:14:58 | 只看该作者
多谢分享,回复看看

点击这里给我发消息

69#
发表于 2013-10-25 10:05:22 | 只看该作者
感谢分享
回复

使用道具 举报

70#
发表于 2013-11-28 10:48:43 | 只看该作者
看看
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:20 , Processed in 0.152278 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表