窗口时钟显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口时钟显示问题

共有2521人关注过本帖树形打印复制链接主题：窗口时钟显示问题

huizhong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1227 威望：0 精华：0 注册：2018/2/22 10:06:00

窗口时钟显示问题 发帖心情

Post By：2019/11/27 12:20:00 [只看该作者]

Dim t1 As Date = e.Form.Controls("TextBox3").value

Dim t2 As Date = now

Dim t3 As TimeSpan = t1 - t2

Dim t4 As Date = now + t3

e.Form.Controls("Label1").text = t4

e.Form.Controls("Label5").text = t4

老师，窗口中的Label1显示格式为hh:mm，Label5的显示格式为ss，两个控件合在一起为电子时钟，我将以上代码放在窗口的计时器事件中，想实现：“在窗口显示按照指定时间正常运转的电子时钟”，但是，似乎代码有问题，您帮忙看看，给指导一下

现在存在两个问题

1- 窗口时钟不能正常运转

2- 窗口标签时间格式不对，可是我已经在属性中分别设置了如上属性hh:mm和ss

[此贴子已经被作者于2019/11/27 12:23:58编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107835 积分：548526 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/27 13:45:00 [只看该作者]

请不要发重复的问题：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=143353&page=1&star=2

huizhong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1227 威望：0 精华：0 注册：2018/2/22 10:06:00

Post By：2019/11/27 15:53:00 [只看该作者]

老师，您链接内容我这边看不到，因此重新建贴请教

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107835 积分：548526 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/27 15:55:00 [只看该作者]

请上传具体实例说明问题

huizhong

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1227 威望：0 精华：0 注册：2018/2/22 10:06:00

Post By：2019/11/28 15:51:00 [只看该作者]

Dim t1 As Date = e.Form.Controls("TextBox3").value

Dim t2 As Date = Date.now

Dim t3 As TimeSpan = t1 - t2

Dim t4 As Double = t3.TotalSeconds()

Dim t5 As Date = t2.AddSeconds(t4)

e.Form.Controls("Label1").text = t5

老师，以上代码执行后，窗口Label1控件交互显示11:59:59和12:00:00，不能正常运转

说明以上代码是写在窗口计时器事件的，TextBox3写入的数值为12：00：00

您帮忙看看是哪里有问题

[此贴子已经被作者于2019/11/28 15:51:55编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107835 积分：548526 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/28 16:33:00 [只看该作者]

窗口afterload

vars("d") = cdate(e.Form.Controls("TextBox3").text)

文本框textchanged事件

vars("d") = cdate(e.Sender.text)

计时事件

vars("d") = vars("d").AddSeconds(1)

e.Form.Controls("Label1").text = vars("d")

huizhong

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1227 威望：0 精华：0 注册：2018/2/22 10:06:00

Post By：2019/11/28 16:49:00 [只看该作者]

谢谢老师

下一主题 >> << 上一主题

主题：窗口时钟显示问题