這是我自己寫的一個進(jìn)度條控件,如圖:
成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),黎城企業(yè)網(wǎng)站建設(shè),黎城品牌網(wǎng)站建設(shè),網(wǎng)站定制,黎城網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,黎城網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
邊框粗細(xì)和邊框顏色以及進(jìn)度條顏色都可以調(diào)。
進(jìn)度條大小你可以自己拉伸。
同時,進(jìn)度條還提供了豐富的動畫效果(如邊框閃爍效果【可關(guān)閉】,進(jìn)度條滑動效果等。)
將邊框粗細(xì)調(diào)為0即可實(shí)現(xiàn)無邊框(同時邊框閃爍效果(見“Flash”屬性)也將關(guān)閉!)
進(jìn)度值(見“ProgressValue”屬性)類型為Single(單精度浮點(diǎn)數(shù))
將我提供的DLL文件拖到工具箱即可安裝
只能用于Windows窗體應(yīng)用程序!
目標(biāo)平臺:.Net Framework 3.5
屬性說明:
1.BorderColor 用于調(diào)整邊框顏色
2.BorderWidth 用于調(diào)整邊框粗細(xì)
3.Flash 用于開啟、關(guān)閉邊框閃爍效果
4.ProgressValue 用于設(shè)置、查看進(jìn)度值
5.ForeColor 用于設(shè)置進(jìn)度條顏色
6.BackColor 用于設(shè)置控件背景色
附件如果丟失,請私信。
VB.Net中提供了ProgressBar控件,用于顯示進(jìn)度條
我建議你不要用進(jìn)度條顯示剩余時間而是顯示執(zhí)行進(jìn)度
這樣比較好控制
設(shè)置ProgressBar的Minimum和Maximum屬性為循環(huán)的起始和終止數(shù)值
然后在代碼的循環(huán)體中計算當(dāng)前循環(huán)的進(jìn)度,然后設(shè)置進(jìn)度條的Value屬性,
將進(jìn)度顯示在進(jìn)度條上
比如,簡單的例子:
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max
For i As Integer = Min To Max
'執(zhí)行計算.......
Progress = i \ Max '計算進(jìn)度
ProgressBar1.Value = Progress '顯示進(jìn)度
My.Application.DoEvents() '使用Doevents防止窗體假死使進(jìn)度條看不到,但是會嚴(yán)重降低運(yùn)行速度
Next
這里的優(yōu)化技巧是,可以設(shè)置為每隔N次循環(huán)才更新進(jìn)度條
If Not Progress Mod N Then ProgressBar1.Value = Progress
不然進(jìn)度條的更新也許比計算的速度還要慢很多
這個不象是怎么傳遞Pr值的問題吧,是不是讀取過程中卡?。?/p>
在pr=J 下面加一句My.Application.DoEvents() ,暫時釋放一下控制權(quán),使程序去處理完其它事件。再說不需要時間控件,直接在循環(huán)過程中修改進(jìn)度值也可以,然后來一句My.Application.DoEvents()。
VB本身有進(jìn)度條控件。程序啟動時加載多少控配置,組件都是編寫源碼時可知的。進(jìn)度條的上限就是加載組件,配置數(shù)的和,加載成功一個就自加1
文章標(biāo)題:vb.net進(jìn)度特效 vbs特效代碼
網(wǎng)站鏈接:http://jinyejixie.com/article10/dopchgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、、App設(shè)計、定制網(wǎng)站、網(wǎng)站導(dǎo)航、電子商務(wù)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)