Foxtable(狐表)用户栏目专家坐堂 → 请教做一个读秒的计数器


  共有2329人关注过本帖树形打印复制链接

主题:请教做一个读秒的计数器

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:12189 威望:0 精华:0 注册:2012/3/5 11:32:00
请教做一个读秒的计数器  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/6/3 14:50:00 [只看该作者]

直接在窗口的 TimerTick 事件

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


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



 回到顶部