VB.net 进度条使用
ProgressBar 控件又稱進度條控件,它是一個應用很廣的控件,可以在需要執行較長的程序過程中使用它來指示當前任務執行的進度,如果這樣的過程中沒有視覺提示,用戶可能會認為應用程序不響應,通過在應用程序中使用 ProgressBar,可以告訴用戶應用程序正在執行任務且仍在響應。
在vb.net工具箱中 ProgressBar 控件圖標如下圖一所示:
ProgressBar 控件常用屬性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。
Maximum、Minimum 屬性:指ProgressBar 控件可變化的最大和最小值。
Step 屬性:ProgressBar 控件調用 PerformStep 方法時候增長的步長。
Value 屬性:ProgressBar 控件當前的位置值。
PerformStep 方法:按照 Step 屬性的數量增加進度欄的當前位置。
Increment 方法:按指定的數量增加進度欄的當前位置。
下面我們就用示例來演示它的屬性和方法。
1、未知界限
設置Style屬性為Marquee,進度塊是自動推進的,不過不能反映實際進度,也就是提醒一下用戶:程序在正常運行中,而不是死機了。
2、已知界限
在“循環增加1”的按鈕Click事件中添加如下代碼:
在“按步長增加”按鈕Click事件中添加如下代碼:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickFor r = 0 To 100If ProgressBar1.Value < 100 ThenProgressBar1.Value = ProgressBar1.Value + 1ElseMsgBox("進度完成", MsgBoxStyle.Information, "提示")Exit For '退出循環End IfNextEnd Sub在“按輸入值增加”按鈕Click事件中添加如下代碼:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickProgressBar1.Minimum = 0ProgressBar1.Maximum = 100Dim i As Integer = CInt(InputBox("輸入要增加的量", , "15"))ProgressBar1.Increment(i)End Sub按F5運行,就可以演示 ProgressBar 控件增加值的vb.net教程三種方法,注意使用PerformStep、Increment這兩種方法的時候并不會因為Value的值超過Maximum 而引發錯誤。
按時間出發
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ProgressBar1.Value = 0
'每隔1000毫秒觸發一次
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
作者:不務正業程序熊
鏈接:https://www.jianshu.com/p/3bd48e248734
來源:簡書
著作權歸作者所有。商業轉載請聯系作者獲得授權,非商業轉載請注明出處。
總結
以上是生活随笔為你收集整理的VB.net 进度条使用的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: pythonspark实例_spark+
- 下一篇: ping不通docker_初识docke