(12)“秒表”窗體中有兩個(gè)按鈕(“開(kāi)始/停止”按鈕bOK,“暫停/繼續(xù)”按鈕bPus);一個(gè)顯示計(jì)時(shí)的標(biāo)簽1Num;窗體的“計(jì)時(shí)器間隔”設(shè)為100計(jì)時(shí)精度為0.1秒。
要求:打開(kāi)窗體如圖1所示;第一次單擊“開(kāi)始婷止”按鈕,從0開(kāi)始滾動(dòng)顯示計(jì)時(shí)(見(jiàn)圖2);10秒時(shí)單擊“暫停/繼續(xù)”按鈕,顯示暫停(見(jiàn)圖3),但計(jì)時(shí)還在繼續(xù);若20秒后再次單擊“暫停/繼續(xù)”按鈕,計(jì)時(shí)會(huì)從30秒開(kāi)始繼續(xù)滾動(dòng)顯示;第二次單擊“開(kāi)始/停止”按鈕,計(jì)時(shí)停止,顯示最終時(shí)間(見(jiàn)圖4)。若再次單擊“開(kāi)始/停止”按鈕可重新從0開(kāi)始計(jì)時(shí)。
相關(guān)的事件程序如下。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句,使程序可以完成指定的功能。
Option Compare Database
Dim flag,pause As Boolean
Private Sub bOK Click()
flag= 【12】
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
Private Sub bPus_Click()
pause=Not pause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
Private Sub Form Open(Cancel As Integer)
flag=False
pause=False
Me!bOK.Enabled=True
Me!bPus.Enabled=False
End Sub
Private Sub Form Timer()
Static count As Single
If flag=True Then
If pause=False Then
Me!1Num.Caption=Round(count,1)
End If
count= 【13】
Else
count=0
End If
End Sub
相關(guān)鏈接:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |