在狀態(tài)欄的 Panel 屬性中,有一項可以將整個 Panel 定義成一個進度條的,你不妨試試。在它的屬性頁中有設置。

創(chuàng)新互聯公司專注于鄂倫春企業(yè)網站建設,成都響應式網站建設,購物商城網站建設。鄂倫春網站建設公司,為鄂倫春等地區(qū)提供建站服務。全流程按需制作,專業(yè)設計,全程項目跟蹤,創(chuàng)新互聯公司專業(yè)和態(tài)度為您提供的服務
VB.Net中提供了ProgressBar控件,用于顯示進度條
我建議你不要用進度條顯示剩余時間而是顯示執(zhí)行進度
這樣比較好控制
設置ProgressBar的Minimum和Maximum屬性為循環(huán)的起始和終止數值
然后在代碼的循環(huán)體中計算當前循環(huán)的進度,然后設置進度條的Value屬性,
將進度顯示在進度條上
比如,簡單的例子:
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max
For i As Integer = Min To Max
'執(zhí)行計算.......
Progress = i \ Max '計算進度
ProgressBar1.Value = Progress '顯示進度
My.Application.DoEvents() '使用Doevents防止窗體假死使進度條看不到,但是會嚴重降低運行速度
Next
這里的優(yōu)化技巧是,可以設置為每隔N次循環(huán)才更新進度條
If Not Progress Mod N Then ProgressBar1.Value = Progress
不然進度條的更新也許比計算的速度還要慢很多
VB.Net中提供了ProgressBar控件,用于顯示進度條
設置ProgressBar的Minimum和Maximum屬性為循環(huán)的起始和終止數值
然后在代碼的循環(huán)體中計算當前循環(huán)的進度,然后設置進度條的Value屬性,
將進度顯示在進度條上
有不是多線程的,.NET有一個異步控件來完成這個事情,BackgroundWorker。
多線程其實比你想象的簡單,你計劃操作步驟,打比方說我們處理一個文件,用進度條來顯示進度。我們可以定義解壓他進度為5%,解密文件后哦進度完成20%,讀取數據后進度完成30%,重新整理插入數據后進度完成60%,再加密,進度為80%,再壓縮進度為90%,再發(fā)送進度為95%,刪除歷史記錄結束動作進度為100%。這種事就要多線程去完成,調用控件你就需要委托或者回調控件。
進度條給他賦值就好了,程序運行后你會發(fā)現進度條在動。
這是現在90%程序進度條原理。
在vb.net工具箱中 ProgressBar 控件圖標。
ProgressBar 控件常用屬性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。
Maximum、Minimum 屬性:指ProgressBar 控件可變化的最大和最小值。
Step 屬性:ProgressBar 控件調用 PerformStep 方法時候增長的步長。
Value 屬性:ProgressBar 控件當前的位置值。
PerformStep 方法:按照 Step 屬性的數量增加進度欄的當前位置。
Increment 方法:按指定的數量增加進度欄的當前位置。
ProgressBar 控件又稱進度條控件,它是一個應用很廣的控件,可以在需要執(zhí)行較長的程序過程中使用它來指示當前任務執(zhí)行的進度,如果這樣的過程中沒有視覺提示,用戶可能會認為應用程序不響應,通過在應用程序中使用 ProgressBar,可以告訴用戶應用程序正在執(zhí)行任務且仍在響應。
程序底部狀態(tài)欄吧? 工具箱 - 菜單和工具欄 選項卡下 有個 StatusStrip 拖到窗體上就跑下面了 點擊它,彈出菜單中 選擇 ProgressBar 就指定 進度條在 狀態(tài)欄上了。 你原來添加的PB可以刪除了。
當前文章:VB.NET任務欄進度條 vb完成進度條代碼
網站網址:http://chinadenli.net/article22/dooihcc.html
成都網站建設公司_創(chuàng)新互聯,為您提供動態(tài)網站、、微信小程序、網站維護、網站設計、網站策劃
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯