[dubai.eig]

(21-03-19, 04:24 PM)asemshahen5 كتب : Vb.NET (Visual Basic 2008/2010) : How to use a BackgroundWorker

شكرا لك

من امس كنت ابحث ووصلت لهذه النتيجه

كود :

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
       Dim adapter As New MySqlDataAdapter("select * from cq_dxstation", connection)
       Dim table As New DataTable()
       adapter.Fill(table)
       BackgroundWorker1.ReportProgress(100)
       Threading.Thread.Sleep(100)
       ComboBox1.DataSource = table
       BackgroundWorker1.ReportProgress(100)
       Threading.Thread.Sleep(100)
   End Sub

   Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
       ProgressBar1.Value = e.ProgressPercentage
       Me.lblStatus.Text = e.ProgressPercentage & " Percent Completed!"
   End Sub

   Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
       Me.ProgressBar1.Visible = False

       ComboBox1.ValueMember = "dxcallsign"
       ComboBox1.DisplayMember = "dxcallsign"
       Me.lblStatus.Text = "DONE!"
       Me.Cursor = Cursors.Default
   End Sub

اذا هناك اي غلط او تعديل اتمنى تفيدوني 

وشكرا من جديد للاخ asemshahen5  على الرد الكريم