我是這個領域的新手,我發現自己遇到了困難,我已經在網上找了兩天,我還沒有找到任何東西,或者至少在我的能力范圍內是可以理解的。我在 3d 中下載了一個新 ProgressBar 的檔案,但我不再有 [Step] 和 [PerformStep] 的選項,如何添加這兩個屬性?請幫幫我,我已經追了好幾天了....
我從這篇文章https://social.msdn.microsoft.com/Forums/vstudio/en-US/5d3eee65-730b-488f-a858-a341b8d61714/progressbar-with-percentage-label?forum=vbgeneral下載了一個檔案頁面底部是 RmCustProgressBar 的鏈接,但我有問題。這里下載的檔案是檔案txt https://onedrive.live.com/?authkey=!ADU6srhRub2eM6M&cid=00D11ED12923BE81&id=D11ED12923BE81!114&parId=root&o=OneUp
Public Sub righeNere()
Dim row_count As Integer = DataGridView1.Rows.Count
RmCustProgressBar1.MaxValue = row_count
RmCustProgressBar1.Step = 1
Dim currencyManager1 As CurrencyManager = CType(DataGridView1.BindingContext(DataGridView1.DataSource), CurrencyManager)
For Each rw As DataGridViewRow In DataGridView1.Rows
If rw.Cells(2).Style.BackColor = Color.Gold Or rw.Cells(3).Style.BackColor = Color.Gold Or rw.Cells(4).Style.BackColor = Color.Gold Or rw.Cells(5).Style.BackColor = Color.Gold Or rw.Cells(6).Style.BackColor = Color.Gold Or rw.Cells(7).Style.BackColor = Color.Gold Then
rw.Visible = True
Continue For
ElseIf rw.Cells(2).Style.BackColor = Color.White Or rw.Cells(3).Style.BackColor = Color.White Or rw.Cells(4).Style.BackColor = Color.White Or rw.Cells(5).Style.BackColor = Color.White Or rw.Cells(6).Style.BackColor = Color.White Or rw.Cells(7).Style.BackColor = Color.White Then
currencyManager1.SuspendBinding()
rw.Visible = False
currencyManager1.ResumeBinding()
RmCustProgressBar1.PerformStep()
End If
Next
End Subd
uj5u.com熱心網友回復:
我假設這Step是一個步長,并且PerformStep只是將此步添加到Value屬性中。然后你可以在進度條類中添加這樣的功能:
Public Property [Step] As Integer
Public Sub PerformStep()
Value = Math.Min(MaxValue, Value [Step])
'To refresh the progress bar immediately (optional)
Refresh()
End Sub
設定該Value屬性會使控制元件無效,即會自動顯示新的進度條位置,但可能會有一些延遲。如果你想立即重繪 它,你可以通過呼叫強制重繪Refresh()。請參閱:Control.Refresh 方法
請注意,這Step是VB中的保留字,因此我們必須將其放在尖括號中。相反,我們也可以稱它為StepSize。
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/509984.html
標籤:VB.net表格进度条
上一篇:如何保存到用戶設定?
