Office中国论坛/Access中国论坛

标题: Access2007功能区开发-自定义图像加载模块 [打印本页]

作者: zhuyiwen 时间: 2009-9-2 14:13
本主题需向作者支付 2 点金钱 才能浏览

作者: qpzm 时间: 2009-9-3 17:20
收下了.

作者: c101 时间: 2009-9-3 20:18
想学习谢谢

作者: yedaoan 时间: 2009-9-4 11:40
看一下先

作者: fengxueysh 时间: 2009-9-7 15:18
先买了再学习

作者: davidliu9116 时间: 2009-9-11 13:07
感谢分享
学习看看

作者: bihorse 时间: 2009-10-1 10:16
谢谢

作者: wer2214517 时间: 2009-10-8 21:34
看看

作者: linag516 时间: 2009-10-9 21:12

thank

作者: ly 时间: 2009-10-13 21:40
1# zhuyiwen

正在学习2007,谢谢!

作者: hhymm 时间: 2009-10-13 23:19
想学习谢谢

作者: linag516 时间: 2009-10-14 21:17

作者: sagemeyou 时间: 2009-11-7 09:31
kankan a

作者: DDBB2 时间: 2009-11-7 14:14
学习诶

作者: yyjlili 时间: 2009-11-12 22:27
看看

作者: aloneworld 时间: 2009-11-17 11:26
教材

作者: let 时间: 2009-12-7 11:41
学习了

作者: sxb2007 时间: 2009-12-14 08:54
看一下先

作者: xiaoyuzhi 时间: 2009-12-18 22:45
学习了，谢谢

作者: 發2638 时间: 2010-1-8 16:33
正在学习2007,谢谢!

作者: panyifan 时间: 2010-1-18 12:15
hhhhhhhhhhhh

作者: LeeTien 时间: 2010-1-20 13:01
正在学习2007

作者: LeeTien 时间: 2010-1-20 13:02
thank

作者: cowboy910 时间: 2010-2-2 16:18
Look....

作者: cowboy910 时间: 2010-2-3 09:31
LOok.//////

作者: szyewj 时间: 2010-2-3 18:08
学习学习，顶了再顶！

作者: qsdys 时间: 2010-3-25 23:24
谢谢分享，学习了

作者: linag516 时间: 2010-5-12 17:00
[code][/code]

作者: pmx0001 时间: 2010-5-12 18:54
学习了

作者: sxjun123 时间: 2010-5-15 13:53
老朱的好点子

作者: guzhonghua26 时间: 2010-5-27 08:49
学习一下，谢谢分享。

作者: zhixiu2010 时间: 2010-5-28 12:14
呵呵，都一样

作者: KenjiSato 时间: 2010-9-23 19:33
买了怎么不能下载啊

作者: littlexing84 时间: 2010-11-25 14:45
麻烦

作者: elong 时间: 2011-1-15 12:50
xiexeie ,look,look

作者: 好学 时间: 2011-1-25 17:02
谢谢老朱!

作者: yanzqun 时间: 2011-2-11 11:17

作者: 冚友 时间: 2011-2-26 18:05
买了!看不到附件啊！

作者: duzili 时间: 2011-3-13 17:44
学习中

作者: nu-zai 时间: 2011-4-24 23:45
希望我会用

作者: yangzhengping01 时间: 2011-5-1 00:18
学习

作者: SMILE123 时间: 2011-5-27 10:58

..00.

作者: 宿命的风 时间: 2011-5-28 12:15

作者: vanoli 时间: 2011-6-16 22:19
回复 zhuyiwen 的帖子

貌似挺厉害呢！！！！！！！！！！

作者: yodong 时间: 2011-7-7 10:48
要学习新东西了

作者: zxklzxm1983 时间: 2011-7-9 09:46

一直在用2003 ,看一下

作者: littlekey 时间: 2011-9-8 13:08
学习一下

作者: pascal331 时间: 2011-11-13 21:10
谢谢

作者: xiaowuo2 时间: 2011-11-16 23:36
要钱钱啊，先赚点再说

作者: flyxp 时间: 2011-11-21 20:31
这个好像很难学

作者: fgzwx88 时间: 2011-11-25 22:11
Access2007功能区开发-自定义图像加载模块

作者: yanwei82123300 时间: 2011-12-20 12:43
感谢分享
学习看看

作者: 李名芳 时间: 2012-4-7 08:38
学习学习

作者: 小侠 时间: 2012-4-11 11:54
看看

作者: boyandmerry 时间: 2012-8-2 09:58
看看喽

作者: ihcn 时间: 2012-9-7 17:29
我是来看看这个制作方法的!!

作者: yeungyuk 时间: 2013-4-8 17:48
学习学习

作者: st1988330 时间: 2013-4-19 12:54
来看看

作者: 1094560156 时间: 2013-4-19 16:09
看看

作者: adamwyj 时间: 2013-5-4 13:46
收下先

作者: XMX64311 时间: 2013-5-7 12:37
先看看

作者: stiven.hu 时间: 2013-5-11 11:03
正在下载

作者: alphalau81 时间: 2013-6-19 12:25
谢谢,朱老师.

作者: fxbianxiu 时间: 2013-6-27 20:25
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

作者: wenbin_zheng 时间: 2013-7-23 11:43
先买了再学习

作者: 飘逸的蛤蟆 时间: 2013-10-1 05:14
多谢分享，回复看看

作者: 鱼儿游游 时间: 2013-10-25 10:05
感谢分享

作者: alonet 时间: 2013-11-28 10:48
看看

作者: leonshi 时间: 2013-12-10 19:26
谢谢分享

作者: huangzheng88 时间: 2014-4-15 15:08
看看

作者: guotianxin 时间: 2014-6-30 22:38
看看，学习学习

作者: tpe01 时间: 2014-10-26 23:35
感谢分享

作者: nncchh 时间: 2015-1-29 22:46
想学习谢谢

作者: roych 时间: 2015-12-22 12:34
参考下

作者: lij6633 时间: 2018-3-22 22:46
我正需要加图标

作者: lij6633 时间: 2018-3-22 22:46
我正需要

作者: lij6633 时间: 2018-3-22 22:47
我正需要加图标

作者: lij6633 时间: 2018-3-22 22:47
我正需要

作者: zzf9008 时间: 2021-5-14 21:08
学习

作者: zzf9008 时间: 2021-5-14 21:09
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)