private布爾值IsFirst = true
公共表單1()
{
initialize component();
}
私有void button1_Click(對象發送方,EventArgs e)
{
if (IsFirst)
{
TimeStart =日期時間。現在;
定時器1。Enabled = true
IsFirst = false
}
其他
{
定時器1。啟用=!定時器1。已啟用;
}
}
私有void按鈕3_Click(對象發送方,EventArgs e)
{
TimeStart =日期時間。現在;
這是網上制作秒表的代碼,希望對妳有幫助。
1)
啟動visual basic6.0並打開壹個新的標準項目。
2)
在表單1上添加6個標簽空間、2個命令按鈕和1定時器。命令按鈕的標題屬性分別是開始和停止。
Timer1的Interval屬性是1。
Label1 Label2 Label3分別具有開始時間、結束時間和經過時間的標題屬性,Timer1的Enable屬性為False。
3)代碼
變暗開始時間作為變量
變暗結束時間作為變量
Dim作為變量消逝
Private Sub cmdStart_Click()
顯示開始時間
lblStart。標題=時間美元
開始時間=現在
啟動時鐘控制
定時器1。啟用=真
末端接頭
Private Sub cmdStop_Click()
記錄停止時間
結束時間=現在
關閉時鐘控制
定時器1。啟用=假
顯示經過的時間
lblApaed。caption = Format(end time-start time," hh:mm:ss "
末端接頭
私有子定時器1_Timer()
lblStop。標題=時間美元
末端接頭
以上是用VB6.0實現的,在表單中添加timer1控件,然後復制以下代碼運行:
選項顯式
Dim x As Long
Dim h壹樣長,m壹樣長,s壹樣長,ms壹樣長
Dim cjlh壹樣長,cjlm壹樣長,cjls壹樣長
將cjlms標註為字符串
Private Sub Form_KeyDown(KeyCode為整數,Shift為整數)
選擇案例鍵碼
案例13
定時器1。啟用=真
案例32
定時器1。啟用=假
x = 0
我。caption = " Running " &;IIf(Len(Trim(Str(h)))& lt;2、“0”和。Trim(Str(h))、Trim(Str(h))& amp;“小時”&;IIf(Len(Trim(Str(m)))& lt;2、“0”和。Trim(Str(m))、Trim(Str(m))& amp;“分”&;IIf(Len(Trim(Str(s)))& lt;2、“0”和。Trim(Str(s))、Trim(Str(s))& amp;“秒”&;cjlms & amp"毫秒"
案例114,82
我。Cls
結束選擇
末端接頭
私有子窗體_Load()
我。Font.Size = 14
我。AutoRedraw = True
表單1。Caption = "真正的動態秒表(時:分:秒。毫秒)”
打印“00:00:00.000”
定時器1。間隔= 10
定時器1。啟用=假
x = 0
末端接頭
私有子定時器1_Timer()'每1秒觸發100次。
X = x+10 '單位是毫秒。
cjlh = Int(x / 3600000)
H = cjlh '采集時間
Cjlm = INT ((x mod 3600000)/60000))'這是密鑰,用INT來舍入,而不是INT,每30秒輸入1有點奇怪。
M = cjlm '獲取分鐘數
cjls = Int((x Mod 3600000)Mod 60000)/1000)
S = cjls' get seconds。
ms =(((x Mod 3600000)Mod 60000)Mod 1000)
如果Len(Trim(Str(ms))) = 2,則
cjlms = " 0 " & ampTrim(字符串(毫秒))
如果…就會結束
If Len(Trim(Str(ms)))>那麽= 3
cjlms = Trim(Str(ms))
如果…就會結束
cjlms = Left(cjlms,2)& amp;Trim(Str(Int(Rnd * 9)))
我。Cls
print IIf(Len(Trim(Str(h)))& lt;2、“0”和。Trim(Str(h))、Trim(Str(h))+":"+IIf(Len(Trim(Str(m)))& lt;2、“0”和。Trim(Str(m))、Trim(Str(m))+":"+IIf(Len(Trim(Str(s)))& lt;2、“0”和。Trim(Str(s))、Trim(Str(s))+" "+ cjlms
結束短接至強制?