我要发布
仪器网/ 仪器社区/ 计时器/ vb 计时器 使label隔一秒增加一

vb 计时器 使label隔一秒增加一

dmdiwwksid    2012-06-25    计时器    浏览 545 次

精彩问答
岁月无恙哦哦 发布日期:2018-03-29
窗体上放一个label1标签控件和time1时钟控件,粘贴代码:
private sub form_load()
Timer1.Interval = 1000
end sub
private sub timer1_timer()
Label1 = Val(Label1.Caption) + 1
end sub
全部评论
6627359 发布日期:2012-06-26
private sub form_load()
dim n as integer
timer1.interval=1000
end sub
private sub timer1_timer()
n=n+1
label1.caption=n
end sub
Nqfxcr 发布日期:2012-06-26
yiyiarrow 的问题出在变量n的声明,局部变量n在 form_load()中声明的,在timer1_timer()里是不能使用的.
橡皮树的博客 采用的方法,巧妙的避开了使用变量的问题.
我的代码是声明窗体级变量n
Option Explicit Private n As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = 0 End SubPrivate Sub Timer1_Timer() n = n + 1 Label1.Caption = n End Sub
最新主题
相关版块
我要评论
X您尚未登录
账号登录
X您尚未登录
手机动态密码登录
X您尚未登录
扫码登录
官方微信

仪器网微信服务号

扫码获取最新信息


仪器网官方订阅号

扫码获取最新信息

在线客服

咨询客服

在线客服
工作日:  9:00-18:00
联系客服 企业专属客服
电话客服:  400-822-6768
工作日:  9:00-18:00
订阅商机

仪采招微信公众号

采购信息一键获取海量商机轻松掌控