以文本方式查看主题

-  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=69350)
--  作者：ljh29206
--  发布时间：2015/6/3 14:46:00
--  请教做一个读秒的计数器

 

建一个窗口，在计划任务1000毫秒添加以下代码，不行！

 

If Forms("窗口1").Opened Then
Dim sj As WinForm.Label = Forms("窗口1").Controls("时间")


sj  = sj.text + 1
End If

 

求助如何操作。
--  作者：Bin
--  发布时间：2015/6/3 14:50:00
--  
直接在窗口的 TimerTick 事件

Dim sj As WinForm.Label = Forms("窗口1").Controls("时间")


sj.text  = Cint(sj.text) + 1