你把你的代碼發(fā)來看一下,描述不太清楚
創(chuàng)新互聯(lián)建站長期為千余家客戶提供的網(wǎng)站建設(shè)服務(wù),團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為蜀山企業(yè)提供專業(yè)的成都做網(wǎng)站、成都網(wǎng)站設(shè)計,蜀山網(wǎng)站改版等技術(shù)服務(wù)。擁有十年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
For i = 1 To 1000000
If ProgressBar1.Value 1000000 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
你是寫在一個過程里,當然是順序接著向下走的,如果你要進度條一秒一次就改成
ProgressBar1.Value = ProgressBar1.Value + 1
時鐘代碼和按鈕代碼是分開走的
使用Timer 函數(shù)來實現(xiàn)。
Timer 函數(shù),返回一個 Single,代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。
Microsoft Windows中,Timer函數(shù)返回一秒的小數(shù)部分。
不對。步驟如下:
添加一個label標簽名字label1 用來顯示時間
再添加一個timer控件 名字timer1 interval屬性=1000 用來計時
窗體添加代碼
Dim t As Date '用來記錄時間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時間:" t.TimeOfDay.ToString
End Sub
這種功能用不到TIMER,TIMER控件用在這種地方也不適合。(假如你所統(tǒng)計的時間很短,在幾分中內(nèi)話,可以使用,假如你統(tǒng)計的時間很長:幾小時、幾天幾夜,建議改用以下方式):
在你需要開始計時的地方加入一個記錄當前時間,在你想結(jié)束的地方也得到一個當前時間。然后將兩個時間相減。
希望以上思路可以幫到你。