محمد زارع
پنج شنبه 17 بهمن 1387, 11:16 صبح
سلام
من برای بخشی از برنامه مجبورم از یه بک گروند ورکر استفاده کنم؛ توی فروم جستجو کردم و یه چیزایی دستگیرم شد. برای امتحان توی فرم دو تا Button و یک بک گروند ورکر گذاشتم و کد زیر رو هم نوشتم. موقع اجرا اصلاً کد BackgroundWorker1_DoWork اجرا نمیشه! مشکل کجاست؟
ممنون
زارع
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If BackgroundWorker1.IsBusy = False Then
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
i = 0
If i <= 10000 Then
i += 1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If BackgroundWorker1.IsBusy = True Then
Beep()
BackgroundWorker1.CancelAsync()
End If
End Sub
من برای بخشی از برنامه مجبورم از یه بک گروند ورکر استفاده کنم؛ توی فروم جستجو کردم و یه چیزایی دستگیرم شد. برای امتحان توی فرم دو تا Button و یک بک گروند ورکر گذاشتم و کد زیر رو هم نوشتم. موقع اجرا اصلاً کد BackgroundWorker1_DoWork اجرا نمیشه! مشکل کجاست؟
ممنون
زارع
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If BackgroundWorker1.IsBusy = False Then
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
i = 0
If i <= 10000 Then
i += 1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If BackgroundWorker1.IsBusy = True Then
Beep()
BackgroundWorker1.CancelAsync()
End If
End Sub