VB计时器问题！在线等！-明月个性网

Dim a As Integer, b As Integer, c As Integer
Private Sub Form_Load()
Command1.Caption = "暂停计时"
Command2.Caption = "继续计时"
Timer1.Interval = 1000
Label1.Caption = "00"
Label2.Caption = "00"
Label4.Caption = "："
Label5.Caption = "："
End Sub

Private Sub Timer1_Timer()
c = c + 1
Label3.Caption = c
If c = 60 Then
c = 0
b = b + 1
Label2.Caption = Format(b, "00")
End If
If b = 60 Then
b = 0
a = a + 1
Label1.Caption = Format(a, "00")
End If
If a = 24 Then a = 0
End Sub

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

佚名

2024-12-23 23:49:59

最佳回答

类似问题(10)

佚名

2024-12-23 00:42:13

问在线等解决问题！图是电动车控制器，请问白色的卡子叫什么名字！怎么和电线连接！

答
这个应该是电动车连接电缆的接插件，一般分两部分，里面的插针和外壳，接线时先将电缆与插针连接，让后安装到外壳中。这个接插件有“公”“母”之分，公接插件是插针是凸...
佚名

2024-12-23 21:50:39

问Excel 函数问题？文字+符号+函数；在线等

答
公式如下：="【付款金额（币种＋大写）人民币:"&SUBSTITUTE(SUBSTITUTE(IF(ROUND(A1,2),TEXT(A1,";负")&...
佚名

2024-12-23 17:31:41

问路由器的无线并联问题

答
这需要你的3个路由器都支持wds，而且最好是同一型号的。具体的教程这里不好发，因为图片要通过审核才能发上来，很麻烦，不配图理解起来又不方便。你在网上搜一下“无线...
佚名

2024-12-23 19:29:21

问vb 编程语言问题

答
你用文件的形式把我给你部分代码其余的你自己想像把For i = 0 To Dir1.ListCountIf Dir1.ListCount <> 0 The...
佚名

2024-12-23 06:27:25

问在线急等！孩子的生辰八字问题

答
庚寅癸未戊寅乙卯，2土1金1水4木0火，五行不全缺火。忌金水木，喜火土。命里喜火又缺火，起名字时可以加带火字，日字，心字，马字偏旁部首的字，如灵，炎，煜...
佚名

2024-12-23 09:04:17

问有个车辆修理的的问题请教，在线等。

答
这样的话最好是换前后两个门壳，下边梁伤成什么程度不好看啊。。反正新车的话，零件能修就最好别换，其他B柱整形就好，B柱最好别换。前门壳和后门壳4S店是2080元一...
佚名

2024-12-23 08:00:00

问培训机构排课问题！！！急，在线等

答
结合培训机构的排课表，看自己有用的课，特别需要的课，排到上午，一般不急的课排到下午。随机的课，看整体排课，如果能赶上先听后复习，如果不能赶上，就先自学，有机会向...
佚名

2024-12-23 08:00:00

问普通计算器在线使用

答
你说的是电脑自带的计算器么？开始-所有程序-附件-计算器。
佚名

2024-12-23 08:00:00

问用vb的timer做一个计时器程序

答
窗体上放一个Label，三个Command按钮：Dim h As Integer, m As Integer, s As Integer, ms As Inte...
佚名

2024-12-23 08:00:00

问急急急急!!!...乙肝五项问题!!在线等!!!!!!

答
楼主，你的情况比较好已经产生抗体，生活方面适当注意个人卫生，其他人不会有影响每隔半年查一次，如果之前没有打过乙肝疫苗，可以去补一针加强针跟乙肝患者一起生活，注意...

VB计时器问题！在线等！

问在线等解决问题！图是电动车控制器，请问白色的卡子叫什么名字！怎么和电线连接！

问Excel 函数问题？文字+符号+函数；在线等

问路由器的无线并联问题

问vb 编程语言问题

问在线急等！孩子的生辰八字问题

问有个车辆修理的的问题请教，在线等。

问培训机构排课问题！！！急，在线等

问普通计算器在线使用

问用vb的timer做一个计时器程序

问急急急急!!!...乙肝五项问题!!在线等!!!!!!

风水

起名

网名

说说