以文本方式查看主题

-  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=157554)

--  作者:13968559581
--  发布时间:2020/10/20 16:12:00
--  计划管理
我现在想通过计划管理,实现在窗口的时间显示,在计划管理里写了以下代码,但实际效果出不来,什么原因

Dim lb1 As WinForm.Label = Forms("测试时间").Controls("Label1")
lb1.Text=Date.Now

--  作者:有点蓝
--  发布时间:2020/10/20 16:16:00
--  
Dim lb1 As WinForm.Label = Forms("测试时间").Controls("Label1")
lb1.Text=Date.Now
Application.DoEvents

--  作者:13968559581
--  发布时间:2020/10/20 16:19:00
--  
我在窗口预览,不会执行呀,LABEL1的内容没有变化
--  作者:有点蓝
--  发布时间:2020/10/20 16:23:00
--  
请上传实例说明