Foxtable(狐表)用户栏目专家坐堂 → 日期显示


  共有2090人关注过本帖树形打印复制链接

主题:日期显示

帅哥哟,离线,有人找我吗?
lkcao
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:234 威望:0 精华:0 注册:2015/5/8 21:52:00
日期显示  发帖心情 Post By:2015/5/20 21:02:00 [只看该作者]

帮助中的这个日期是怎么实现的?是给功能组里添加了一个.....?

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/20 21:06:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
lkcao
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:234 威望:0 精华:0 注册:2015/5/8 21:52:00
  发帖心情 Post By:2015/5/20 21:14:00 [只看该作者]

菜单控件?图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看,没找到怎么添加

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/20 21:26:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lkcao
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:234 威望:0 精华:0 注册:2015/5/8 21:52:00
  发帖心情 Post By:2015/5/20 21:42:00 [只看该作者]

也许我没理解透,是这样的,设计菜单我知道,怎么设定显示的位置,如果不设定,是显示在一个弹出框中,而且还关闭不了图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/20 21:46:00 [只看该作者]

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

 

RibbonTabs("Table").Groups("Column").Items("Reset").Text = format(Date.Now, "yyyy年MM月dd日 HH:mm:ss dddd")

 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/5/21 1:52:00 [只看该作者]

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

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By: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编辑过]

 回到顶部