VB .NET如何在計算過程中加入進度條？

VB.Net中提供了ProgressBar控件，用于顯示進度條

在新縣等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計 網(wǎng)站設(shè)計制作定制網(wǎng)站開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),高端網(wǎng)站設(shè)計,成都全網(wǎng)營銷,外貿(mào)網(wǎng)站制作,新縣網(wǎng)站建設(shè)費用合理。

我建議你不要用進度條顯示剩余時間而是顯示執(zhí)行進度

這樣比較好控制

設(shè)置ProgressBar的Minimum和Maximum屬性為循環(huán)的起始和終止數(shù)值

然后在代碼的循環(huán)體中計算當(dāng)前循環(huán)的進度，然后設(shè)置進度條的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防止窗體假死使進度條看不到，但是會嚴(yán)重降低運行速度

Next

這里的優(yōu)化技巧是，可以設(shè)置為每隔N次循環(huán)才更新進度條

If Not Progress Mod N Then ProgressBar1.Value = Progress

不然進度條的更新也許比計算的速度還要慢很多

VB.NET 用二維數(shù)組的方式動態(tài)加控制 例如在窗體上動態(tài)添加GroupBox，然后再在GroupBox里動態(tài)添加控件

下面這段代碼完成，在窗體上用語句添加2個 GroupBox控件，且在每個GroupBox控件中添加4個 RadioButton 控件。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

'添加2個GroupBox

Dim MyGroupBox(2) As GroupBox

For i = 1 To 2

'將一個GroupBox控件加入到Form上

MyGroupBox(i) = New GroupBox

Me.Controls.Add(MyGroupBox(i))

'設(shè)置該GroupBox控件的屬性

MyGroupBox(i).Height = 240

MyGroupBox(i).Width = 600

MyGroupBox(i).Top = (i - 1) * (240 + 20) + 20

MyGroupBox(i).Left = 20

'修改新加入控件的Text值

MyGroupBox(i).Text = "GroupBox" CStr(i)

Next

'每個GroupBox中添加4個單選按鈕

Dim MyRadioButton1(4) As RadioButton

Dim MyRadioButton2(4) As RadioButton

For i = 1 To 4

MyRadioButton1(i) = New RadioButton

Me.Controls.Add(MyRadioButton1(i))

MyRadioButton1(i).Parent = MyGroupBox(1)

'設(shè)置該GroupBox控件的屬性

MyRadioButton1(i).Height = 20

MyRadioButton1(i).Width = 120

MyRadioButton1(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton1(i).Left = 20

'修改新加入控件的Text值

MyRadioButton1(i).Text = "RadioButton1_" CStr(i)

Next

For i = 1 To 4

MyRadioButton2(i) = New RadioButton

Me.Controls.Add(MyRadioButton2(i))

MyRadioButton2(i).Parent = MyGroupBox(2)

'設(shè)置該GroupBox控件的屬性

MyRadioButton2(i).Height = 20

MyRadioButton2(i).Width = 120

MyRadioButton2(i).Top = (i - 1) * (20 + 20) + 40

MyRadioButton2(i).Left = 20

'修改新加入控件的Text值

MyRadioButton2(i).Text = "RadioButton2_" CStr(i)

Next

End Sub

vb點虐 如何在狀態(tài)欄中添加進度條

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

vb點虐 中如何添加滾動條，像在VB6中那樣的。不是窗體本身的滾動條

建立滾動條的方法如下：

（1）將鼠標(biāo)移到ToolBox內(nèi)的WinForm標(biāo)簽頁的HscrollBar控件上，單擊鼠標(biāo)左鍵。

（2）將指針移至窗體中適當(dāng)?shù)奈恢?，按住鼠?biāo)左鍵并拖動鼠標(biāo)將HscrollBar控件調(diào)整到合適的大小放開左鍵。

（3）同樣，再在Form上設(shè)置一個VscrollBar控件。