Foxtable(狐表)用户栏目专家坐堂 → 菜单栏中加入显示系统时间


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

主题:菜单栏中加入显示系统时间

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


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
菜单栏中加入显示系统时间  发帖心情 Post By:2011/8/29 10:48:00 [只看该作者]

功能区中能不能加入系统时间的显示呢


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 10:57:00 [只看该作者]

可以,不过windows右下角就有时间,何必自己再加一个。

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


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/8/29 13:16:00 [只看该作者]

具体怎么加呢?狐狸爸爸的回答老让人觉得很尴尬

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 14:05:00 [只看该作者]

你要在窗口加入,就启用窗口定时器,每秒执行一次:

 

e.Form.Controls("Label1").Text = Date.Now


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


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/8/29 14:11:00 [只看该作者]

我要在菜单栏加入,不是窗口,窗口我知道能加入,但是我看人家都在菜单栏加入的,菜单栏能加入系统日期么?

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 14:14:00 [只看该作者]

都可以的,菜单加入用菜单的SystemIdle事件:

 

Static i as integer

if date.now.Second <> i then

   i = date.Now.Second

   某菜单的组件.Text = Date.Now

end if


 回到顶部
美女呀,离线,留言给我吧!
yangming
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/29 15:07:00 [只看该作者]

我是加在配置栏的,你可以在配置栏放一个标签,然后将下面的代码放入菜单的SystemIdle事件:

Static i As Integer

If Date.now.Second <> i Then

   i = Date.Now.Second
ConfigBar.Items("标签1").Text = Date.Now

 End If


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


加好友 发短信
等级:幼狐 帖子:142 积分:1031 威望:0 精华:0 注册:2011/8/14 1:57:00
  发帖心情 Post By:2011/8/29 15:13:00 [只看该作者]

谢谢老大,已经解决

 回到顶部