以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68586)

--  作者:lkcao
--  发布时间:2015/5/20 21:02:00
--  日期显示
帮助中的这个日期是怎么实现的?是给功能组里添加了一个.....?

图片点击可在新窗口打开查看此主题相关图片如下:360反馈意见截图16300511185631.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/5/20 21:06:00
--  

 添加一个菜单控件,然后在 SystemIdle 事件写代码

 

 获取当前时间,这样写 msgbox(format(Date.Now, "yyyy年MM月dd日 HH:mm:ss dddd"))


--  作者:lkcao
--  发布时间:2015/5/20 21:14:00
--  
菜单控件?图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看,没找到怎么添加
--  作者:大红袍
--  发布时间:2015/5/20 21:26:00
--  

http://www.foxtable.com/help/topics/1064.htm

 

http://www.foxtable.com/help/topics/1526.htm

 


--  作者:lkcao
--  发布时间:2015/5/20 21:42:00
--  
也许我没理解透,是这样的,设计菜单我知道,怎么设定显示的位置,如果不设定,是显示在一个弹出框中,而且还关闭不了图片点击可在新窗口打开查看
--  作者:大红袍
--  发布时间:2015/5/20 21:46:00
--  

 加入一个菜单后,设置菜单内容

 

RibbonTabs("Table").Groups("Column").Items("Reset").Text = format(Date.Now, "yyyy年MM月dd日 HH:mm:ss dddd")
--  作者:黄训良
--  发布时间:2015/5/21 1:52:00
--  

在菜单中添加一个功能区,名称为"功能区1",项目事件AfterOpenProject中写如下 代码:

RibbonTabs("功能区1").Text = format(Date.Now, "yyyy-MM-dd dddd")

[此贴子已经被作者于2015/5/21 2:18:31编辑过]

--  作者:黄训良
--  发布时间:2015/5/21 2:23:00
--  

上面代码放在计划管理中,新建一计划管理,时间间隔1000,实现效果如下,时间会动的呦!

RibbonTabs("功能区1").Text = "今天是: " & format(Date.Now, "yyyy-MM-dd HH:mm:ss dddd")



图片点击可在新窗口打开查看此主题相关图片如下:菜单设计01.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/5/21 2:30:43编辑过]