[VB6 ] 計時器執行時當掉
不好意思，小弟剛學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
→
03/20 20:01, , 1F
03/20 20:01, 1F
→
03/21 13:02, , 2F
03/21 13:02, 2F
推
03/22 06:22, , 3F
03/22 06:22, 3F
推
03/22 15:06, , 4F
03/22 15:06, 4F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
