在vb.net中使用進度條

Question

我有下面的示例代碼，用於進度條。我需要循環的每個項目，以顯示進度（百分比和酒吧均）

For i = 0 To 200000 
      ListBox1.Items.Add(i) 
     Next 

我已經試過各種（背景工人等），但無法弄清楚。

我請求有人給我寫完整的代碼（背景工作，跨線程和其他），並幫助我使它運行。

非常感謝。

Answer 1

給你，但不要忘記，這是不是一個好主意：

Dim max As Integer = 200000 
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    Me.ProgressBar1.Maximum = max 
    BackgroundWorker1.WorkerReportsProgress = True 
End Sub 

Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
    For i = 1 To max 
     BackgroundWorker1.ReportProgress(i) 
    Next 
End Sub 

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged 
    Dim i = e.ProgressPercentage 
    ProgressBar1.Value = i 
    ListBox1.Items.Add(i) 
    'ListBox1.SelectedIndex = i - 1 
End Sub