| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口时钟显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143509) |
| -- 作者：huizhong -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/11/27 13:45:00 -- 请不要发重复的问题：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=143353&page=1&star=2 |
| -- 作者：huizhong -- 发布时间：2019/11/27 15:53:00 -- 老师，您链接内容我这边看不到，因此重新建贴请教 |
| -- 作者：有点蓝 -- 发布时间：2019/11/27 15:55:00 -- 请上传具体实例说明问题 |
| -- 作者：huizhong -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2019/11/28 16:49:00 -- 谢谢老师 |