怎么制作vb计数器

来源：百度知道 编辑：UC知道 时间：2024/05/11 00:33:39
在名称为 Form1的窗体上画一个文本框，名称为Text1，其初始内容为0；画一个命令按钮，名称为C1，标题为“开始计数”；再画一个名称为 T1的计时器。要求在开始运行时不计数，单击“开始计数”按钮后， 则使文本框中的数每秒加1。

兄弟，接招!
Private Sub C1_Click()
T1.Enabled = True
End Sub

Private Sub Form_Load()
T1.Enabled = False
T1.Interval = 1000
Text1.Text = 0
C1.Caption = "开始计数"
End Sub

Private Sub T1_Timer()
Text1.Text = Text1.Text + 1
End Sub

Dim AQ As Boolean, AM As Long'模块级变量

Private Sub Command1_Click()'开始计数过程
Timer1.Enabled = True
Timer1.Interval = 1000
AQ = True
End Sub

Private Sub Command2_Click()'结束计数过程
AQ = False
Timer1.Enabled = False
'Text1.Text = 0 '如果要在结束计数时清零，加这一句
End Sub

Private Sub Form_Load()
Text1.Text = 0
Timer1.Enabled = False
Command1.Caption = "开始计数"
Command2.Caption = "结束计数"
AM = 0
End Sub

Private Sub Timer1_Timer()'计数器
If AQ = True Then
AM = AM + 1
End If
Text1.Text = AM
End Sub

Dim MCount As Long
Private