作者laneclement (小乖)
看板Visual_Basic
标题[VB6 ] 计时器执行时当掉
时间Tue Mar 20 14:15:50 2007
不好意思，小弟刚学VB不久
想做一个计时器
可是程式跑到分的5分多钟後就会当掉@@
我写的程式：
Form1.Caption = "计时器"
Label1.Caption = "按这里开始"
Label1.Alignment = 2
Label1.FontSize = 16
Label2.Caption = "0"
Label2.Alignment = 2
Label2.FontSize = 16
Label3.Caption = ":"
Label3.Alignment = 2
Label3.FontSize = 16
Label4.Caption = "0"
Label4.Alignment = 2
Label4.FontSize = 16
Label5.Caption = "0"
Label5.Alignment = 2
Label5.FontSize = 16
Label6.Caption = ":"
Label6.Alignment = 2
Label6.FontSize = 16
Label7.Caption = "0"
Label7.Alignment = 2
Label7.FontSize = 16
Label8.Caption = "0"
Label8.Alignment = 2
Label8.FontSize = 16
End Sub
Private Sub Label1_Click()
Dim a, b, c, d, e As Integer
For e = 0 To 10
Form1.Refresh
Label8.Caption = e
If e > 9 Then
d = d + 1
e = -1
If d > 6 Then
c = c + 1
d = 0
If c > 9 Then
b = b + 1
c = 0
If b > 6 Then
a = a + 1
b = 0
Label2.Caption = a
End If
Label4.Caption = b
End If
Label5.Caption = c
End If
Label7.Caption = d
End If
For j = 1 To 1000000
Next j
Next e
End Sub
不知道是哪里出了问题？？
可以告诉我吗？
谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.124.125.92
1F：→ nobody1:我习惯用DateAdd耶... 03/20 20:01
2F：→ laneclement:嗯，谢啦，我後来发现这是一个无限回圈@@~~ 03/21 13:02
3F：推 fumizuki:请参考 Timer 控制项 03/22 06:22
4F：推 laneclement:喔！原来是用这个^^谢啦 03/22 15:06