《资料杂谈》vb秒表 免费试读
OptionExplicit
dim time 1日期
PrivateSubCommand1_Click()
IfCommand1。Caption=从那时开始
2.label =开始时间:CStr(格式(现在，hh:mm:ssAM/pm))
定时器2。启用=真
定时器2。间隔=1000
mTime1=00:00:00
命令1。标题=结束
3.标签标题=共享时间:
其他
定时器2。启用=假
定时器2。间隔=0
命令1。标题=开始
3.Label =共享时间:CStr(mTime1)
结束条件
末端接头
PrivateSubForm_L)
命令1。标题=开始
定时器1。启用=真
定时器1。间隔=1000
定时器2。启用=假
末端接头
PrivateSubTimer1 _ Timer()
1.label =当前时间:CStr(格式(现在，hh:mm:ssAM/pm))
末端接头
PrivateSubTimer2 _ Timer()
mTime1 =时间值(mtime 1)+时间值(00:00:01)
endsubscreen . width * 0.35)this . width = screen . width * 0.40
