以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  菜单栏中加入显示系统时间  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12312)

--  作者:jxjzj2000
--  发布时间:2011/8/29 10:48:00
--  菜单栏中加入显示系统时间

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


--  作者:狐狸爸爸
--  发布时间:2011/8/29 10:57:00
--  
可以,不过windows右下角就有时间,何必自己再加一个。
--  作者:jxjzj2000
--  发布时间:2011/8/29 13:16:00
--  
具体怎么加呢?狐狸爸爸的回答老让人觉得很尴尬
--  作者:狐狸爸爸
--  发布时间:2011/8/29 14:05:00
--  

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

 

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


--  作者:jxjzj2000
--  发布时间:2011/8/29 14:11:00
--  
我要在菜单栏加入,不是窗口,窗口我知道能加入,但是我看人家都在菜单栏加入的,菜单栏能加入系统日期么?
--  作者:狐狸爸爸
--  发布时间: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
--  发布时间: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
--  发布时间:2011/8/29 15:13:00
--  
谢谢老大,已经解决