VB中timer控件的用法

时间：2014.01.06 发布人：yc583566184
VB中timer控件的用法

已解决问题

谷歌yc583566184用户在2014.01.06提交了关于“驴打滚VB中timer控件的用法”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-10-30T14:30:14。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，你就是当代的活雷锋,太感谢了 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：张东僞孔  

给你一段代码：

新建一个工程，放上三个textbox,一个commandbutton,一个timer
timer的Interva来自l设置为500.
代码如下。
OptionExplicit
DimT1AsDate,T2AsDate

PrivateSubCommand1_Click()
T2=Time()
Text2=T2

Timer1.Enabled=False
EndSub

PrivateSubForm_Load()
T1=Time()
Text1=T1
EndS问答ub

PrivateSubTimer1_Timer()
DimhhAsLong
DimmmA饭最述督sLong
DimssAsLong
DimmTsAsDate
mTs=Time()
hh=DateDiff("h",T1,mTs)
mm=DateDiff("n",T1,mTs)
况ss=DateDiff("s",T1,mTs)
'm裂Ts=T1
'mTs=DateAdd("h",hh,T1切越境何)
'mTs=DateAdd("m",mm,T1)
'mTs=DateAdd("s",ss,T1)
Text3=Format(hh&":"&mm&":"&ss,"hh:mm:龙教化要位慢岁酸逐宽源ss")
EndSub