منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل انتضار التصدير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عمل انتضار التصدير (/showthread.php?tid=10648)

الصفحات: 1 2

RE: عمل انتضار التصدير - yousef - 11-11-14

اخي الكريم 
حاول ركز في الكود شوي سهل 

كود :
Public Sub New()
             backgroundWorker1.WorkerReportsProgress = True
       backgroundWorker1.WorkerSupportsCancellation = True
   End Sub

   Private Sub startAsyncButton_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles startAsyncButton.Click
       If backgroundWorker1.IsBusy <> True Then
                      backgroundWorker1.RunWorkerAsync()
       End If
   End Sub

   Private Sub cancelAsyncButton_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cancelAsyncButton.Click
       If backgroundWorker1.WorkerSupportsCancellation = True Then
           
           backgroundWorker1.CancelAsync()
       End If
   End Sub

   
   Private Sub backgroundWorker1_DoWork(ByVal sender As System.Object, _
   ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
       Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
       Dim i As Integer

       For i = 1 To 10
           If (worker.CancellationPending = True) Then
               e.Cancel = True
               Exit For
           Else
               ' Perform a time consuming operation and report progress.
               System.Threading.Thread.Sleep(500)
               worker.ReportProgress(i * 10)
           End If
       Next
   End Sub

   
   Private Sub backgroundWorker1_ProgressChanged(ByVal sender As System.Object, _
   ByVal e As ProgressChangedEventArgs) Handles backgroundWorker1.ProgressChanged
       resultLabel.Text = (e.ProgressPercentage.ToString() + "%")
   End Sub

   
   Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, _
   ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted
       If e.Cancelled = True Then
           resultLabel.Text = "Canceled!"
       ElseIf e.Error IsNot Nothing Then
           resultLabel.Text = "Error: " & e.Error.Message
       Else
           resultLabel.Text = "Done!"
       End If
   End Sub
End Class






http://msdn.microsoft.com/en-us/library/system.componentmodel.backgroundworker(v=vs.110).aspx

RE: عمل انتضار التصدير - سعود - 12-11-14

اخي الكريم فيه ادوات ليست مسجلة لدي والذي اقدر عليه الان ان ادلك على الحل بدون تجربة وهي كالتالي:
ضع محتوى اجراء _export() في حدث BackgroundWorker1_DoWork واكتب في حدث النقر لزر الامر الكود:     
كود :
  If BackgroundWorker1.IsBusy = False Then
            BackgroundWorker1.RunWorkerAsync()
        End If


وعند الحدث BackgroundWorker1_RunWorkerCompleted اكتب اي رسالة تبين انتهاء النسخ
او ربما تحتاج اعادة برمجة الملف dll

RE: عمل انتضار التصدير - مصطفى - 13-11-14

شكرا لكم اخوتي تم حل المشكلة وشكرا لكل جهودكم الحمد لله