[dubai.eig]

(02-04-19, 10:11 AM)new_programer كتب : السلام عليكم
dubai.eig
برجاء لو تضع الكود كامل او مثال
لنستفيد منه

وعليكم السلام 

هذا الكود الاول 

كود :

   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)
       ProgressBar1.Maximum = table.Rows.Count - 1
       For i = 0 To table.Rows.Count - 1
           ComboBox1.Items.Add(table.Rows(i)("dxcallsign").ToString)
           BackgroundWorker1.ReportProgress(i)
       Next


   End Sub
   Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
       ProgressBar1.Value = e.ProgressPercentage
       lblStatus.Text = e.ProgressPercentage & " Percent Completed!"
   End Sub
   Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
       Me.ProgressBar1.Visible = False
       lblStatus.Text = "DONE!"
       Cursor = Cursors.Default

   End Sub

وهذا الكود الثاني

كود :

  Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork

       Using cmd As New MySqlCommand(String.Format("SELECT id,dati FROM cq_qso Where dxcallsign like '{0}' and cals like '{1}' order by dati DESC ", Opencontest, Label10.Text))
           cmd.Connection = connection
           cmd.CommandType = CommandType.Text
           Using sda As New MySqlDataAdapter(cmd)
               sda.Fill(table)
               ProgressBar2.Maximum = table.Rows.Count - 0
               BackgroundWorker2.ReportProgress(table.Rows.Count - 0)
           End Using
       End Using
   End Sub
   Private Sub BackgroundWorker2_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker2.ProgressChanged
       ProgressBar2.Value = e.ProgressPercentage
       Me.Label12.Text = e.ProgressPercentage & " Percent Completed!"
   End Sub

   Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
       Me.ProgressBar2.Visible = False
       Label12.Text = "DONE!"
       Cursor = Cursors.Default
       For Each row As DataRow In table.Rows

           dgvSelectAll.Rows.Add(row.ItemArray)

           Label11.Text = dgvSelectAll.Rows.Count - 0
           Label11.Text = String.Format("Number of QSO : {0}  ", Label11.Text)
       Next

   End Sub

والحمدالله شغال تمام