善存复合维生素怎么样:VB菜鸟的按钮问题

通过读取系统时间的方法最简单了，也不使用API，Timer控件不推荐使用，计时不准。

窗体上放置一个Command1按钮，一个Label1标签，粘贴如下代码：

Option Explicit
Dim A As Double, B As Double

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
A = Timer
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
B = Timer
Label1 = Format(B - A, "#.###") & "秒"
End Sub

Timer控件
按下按钮的时候 enable
按stop的时候 停止.

可以用时间控件也可以用API函数来实现

1、用API函数GetTickCount来获取Windows运行时间，通过时间差来计时

代码示例如下：

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim T As Long
Private Sub Command1_Click()
T = GetTickCount
Command1.Caption = "开始计时"
End Sub

Private Sub Command2_Click()
T = GetTickCount - T
Command2.Caption = "经历时间：" & T / 1000 & "秒"
End Sub

2、用Timer控件来实现，Timer1控件的Interval值设置为1000，Enabled默认设置为False

Option Explicit
Dim T As Long

Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Caption = "开始计时"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Caption = "经历时间：" & T & "秒"
End Sub

Private Sub Timer1_Timer()
T = T + 1
End Sub