maxvel
جمعه 06 بهمن 1391, 19:19 عصر
سلام
من اين كدهارو به برنامه اضافه كردم
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Sub Doit()
Dim a As Integer = 0
Dim prog As Double = 100 / 5
Dim current As Integer = 0
For i As Integer = 0 To 5
System.Threading.Thread.Sleep(1000)
a += 1
BackgroundWorker1.ReportProgress(current)
current += prog
Next
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Doit()
End Sub
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
MsgBox("END...")
End Sub
تو اين قسمت كد مشكل ميگيره
BackgroundWorker1.ReportProgress(current)
كمك لازم دارم
اگه به عنوان سورس كد باشه كه عاليه
من اين كدهارو به برنامه اضافه كردم
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Sub Doit()
Dim a As Integer = 0
Dim prog As Double = 100 / 5
Dim current As Integer = 0
For i As Integer = 0 To 5
System.Threading.Thread.Sleep(1000)
a += 1
BackgroundWorker1.ReportProgress(current)
current += prog
Next
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Doit()
End Sub
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
MsgBox("END...")
End Sub
تو اين قسمت كد مشكل ميگيره
BackgroundWorker1.ReportProgress(current)
كمك لازم دارم
اگه به عنوان سورس كد باشه كه عاليه