作者：绿色风
分类：
时间：2022-08-18
浏览：116
楼主
罗刚君 |
完成下图的功能
给三分技能分
看不清楚图片时 可以单击图片放大查看时间菜单.gif
 |
2楼
amulee |
UI代码：
- <customUI onLoad="rxIRibbonUI_onLoad" xmlns="http://schemas.microsoft.com/office/2006/01/customui">
- <ribbon>
- <tabs>
- <tab id="rxTagMyClock"
- label="Dynamic Clock"
- insertAfterMso="TabHome">
- <group id="myGroup" getLabel="myGroup_getLabel">
- <labelControl id="rxLabel"
- getLabel="rxLabel_getLabel"/>
- </group>
- </tab>
- </tabs>
- </ribbon>
- </customUI>
模块代码：
- Public rxIRibbonUI As IRibbonUI
- Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
- Set rxIRibbonUI = ribbon
- End Sub
- Sub rxLabel_getLabel(control As IRibbonControl, ByRef returnedVal)
- returnedVal = "当前时间：" & Format(Now, "HH:MM:SS")
- GetTime
- End Sub
- Sub myGroup_getLabel(control As IRibbonControl, ByRef returnedVal)
- returnedVal = Environ("UserName") & "： 你好 " & Format(Now, "aaaa") & " " & Format(Now, "YYYY-MM-DD")
- End Sub
- Sub GetTime()
- rxIRibbonUI.Invalidate
- Application.OnTime Now + TimeValue("0:0:1"), "GetTime"
- End Sub
 显示时钟.rar
|
3楼
wqfzqgk |
图片：
 |
4楼
zjh000 |
 |
5楼
prelove |
好，学习下 |
6楼
罗刚君 |
多参与下吧 |
7楼
stevehai |
谢谢楼主分享!!! |
8楼
wqfzqgk |
 |
9楼
bensonlei |
版主的确功力深厚! 学习了!
 |
10楼
ayx365 |
看过了.学习了 |
11楼
yf_home |
把这段代码用VB6封装为dll，为什么显示不出来。
是不是模块中的代码，还需要进行适当的修改？
敬请指点，谢谢。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一