How to correctly use a progress bar while a long task is running visual studio 2008

Public Class Form1
 
    Private WithEvents bgw As New System.ComponentModel.BackgroundWorker
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Style = ProgressBarStyle.Marquee
        bgw.WorkerReportsProgress = True
        bgw.RunWorkerAsync()
    End Sub
 
    Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
        ' this is running in a DIFFERENT thread
        For i As Integer = 1 To 5
            Dim btn As New Button
            btn.Location = New Point(10, i * 25)
            btn.Text = "#" & i
            AddHandler btn.Click, AddressOf btn_Click
            bgw.ReportProgress(0, btn)
            System.Threading.Thread.Sleep(2000) ' simulated "work" so you can see the progressbar "marquee" mode in action
        Next
    End Sub
 
    Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
        ' this is running in the main UI Thread
        Me.Controls.Add(e.UserState)
    End Sub
 
    Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
        ' this is running in the main UI Thread
        ProgressBar1.Style = ProgressBarStyle.Blocks
        ProgressBar1.Visible = False
    End Sub
 
    Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show(sender.text)
    End Sub
 
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

private void BuildDeployList()
{
    if( this.InvokeRequired )
    {
        Action action = BuildDeployList;
        this.Invoke( action );
    }
    else
    {
        AddTestsToListBox( lstAvailableTests, Directory.GetFiles( DeployFolder, "*.zip" ) );
        SetControlStates();
    }
}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      Dim worker As New System.Threading.Thread(AddressOf build_query)
        worker.Start()
        While worker.IsAlive
            Threading.Thread.Sleep(900)
            If Me.ss_progress_bar.Value < ss_progress_bar.Maximum Then
                ss_progress_bar.Increment(10)
            Else
                ss_progress_bar.Value = 0
            End If
        End While
        ss_progress_bar.Value = ss_progress_bar.Minimum
    End Sub
 
  Sub build_query()
        Dim data_adap As OracleDataAdapter
        Dim ds As New DataSet
        Dim dr As DataRow
        Dim job, item, description, qty, temp_qty As String
        Dim col_name As String
        Dim sched_start_date As Date
        ssql = "select columns here from table name"
        data_adap = New OracleDataAdapter(ssql, ora_conn)
        Try
            data_adap.Fill(ds, "Table1")
            For Each dr In ds.Tables(0).Rows
                job = dr.Item(0).ToString
                item = dr.Item(1).ToString
                description = dr.Item(2).ToString
                sched_start_date = dr.Item(3)
                qty = dr.Item(4).ToString
                For i As Integer = 5 To ds.Tables(0).Columns.Count - 1
                    Dim l As New Label
                    Dim v As Array
 col_name = ds.Tables(0).Columns.Item(i).ColumnName                     
v = Me.Controls.Find("flp" & col_name.ToLower, True)
                    If v.Length >= 1 Then
                        temp_qty = dr.Item(i + 1).ToString
build_panel(job, item, description, sched_start_date, qty, temp_qty, v(0), dr.Item(i).ToString)
                        i += 1
                    End If
                Next
                row_count += 1
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 Sub build_panel(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
        Dim ptemp As New Panel
        Dim l_desc As New Label
        Dim l_part_num As New Label
        Dim l_qty As New Label
        Dim l_date As New Label
           With l_part_num
            .Text = part_number
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 8)
            .Location = New Point(ptemp.Location.X + 22, ptemp.Location.Y - 1)
        End With
        With l_desc
            .Text = description            
            .ForeColor = Color.Black
            .Font = New Font(Font.Name, 5.5, FontStyle.Regular)
            .AutoSize = True
            .Location = New Point(ptemp.Location.X + 1, ptemp.Location.Y + 13)
        End With
        With l_date
            .Text = shed_date.ToString("M/d")
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 7)
            .Location = New Point(ptemp.Location.X - 2, ptemp.Location.Y - 1)
        End With
         With l_qty
            .Text = run_qty & "/" & total_qty
            .ForeColor = Color.Black()
            .BackColor = Color.White
            .AutoSize = True
            .RightToLeft = Windows.Forms.RightToLeft.Inherit
            .Location = New Point(ptemp.Location.X + 27, ptemp.Location.Y + 21)
            .Font = New Font(Font.Name, 7)
            .TextAlign = ContentAlignment.MiddleCenter
        End With
          ptemp.Controls.Add(l_part_num)
            ptemp.Controls.Add(l_date)
            ptemp.Controls.Add(l_desc)
            ptemp.Controls.Add(l_qty)
        temp_panel.Controls.Add(ptemp)
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:

If Me.InvokeRequired Then
    ' Declare a variable to hold a pointer to the function
    Dim theDelegate As BuildPanelDelegate
    ' Assign the variable the address of the function to call
    theDelegate = new BuildPanelDelegate(AddressOf build_panel)
    ' Marshall the function call back to the UI thread
    theDelegate.Invoke( job_number, item_number, etc... the rest of the arguments)
Else
    ' all the existing code goes here
End If

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Public Delegate Sub delegate_panel(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
 
 
        If Me.InvokeRequired Then
            Dim objdele As delegate_panel
            objdele = AddressOf delegate_panel_build
            objdele.Invoke(job_number, item_number, description, shed_date, total_qty, run_qty, temp_panel, part_number)
        Else
           'other work here
   end if
 
 Sub delegate_panel_build(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
        Dim ptemp As New Panel
        Dim l_desc As New Label
        Dim l_part_num As New Label
        Dim l_qty As New Label
        Dim l_date As New Label
        With l_part_num
            .Text = part_number
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 8)
            .Location = New Point(ptemp.Location.X + 22, ptemp.Location.Y - 1)
        End With
        With l_desc
            .Text = description
            .ForeColor = Color.Black
            .Font = New Font(Font.Name, 5.5, FontStyle.Regular)
            .AutoSize = True
            .Location = New Point(ptemp.Location.X + 1, ptemp.Location.Y + 13)
        End With
        With l_date
            .Text = shed_date.ToString("M/d")
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 7)
            .Location = New Point(ptemp.Location.X - 2, ptemp.Location.Y - 1)
        End With
        If run_qty = "" Then run_qty = 123
        With l_qty
            .Text = run_qty & "/" & total_qty
            .ForeColor = Color.Black()
            .BackColor = Color.White
            .AutoSize = True
            .RightToLeft = Windows.Forms.RightToLeft.Inherit
            .Location = New Point(ptemp.Location.X + 27, ptemp.Location.Y + 21)
            .Font = New Font(Font.Name, 7)
            .TextAlign = ContentAlignment.MiddleCenter
        End With
        If part_number <> "" Then
            ptemp.Controls.Add(l_part_num)
            ptemp.Controls.Add(l_date)
            ptemp.Controls.Add(l_desc)
            ptemp.Controls.Add(l_qty)
            ptemp.Tag = job_number & "~" & item_number & "~" & part_number
            ptemp.Width = temp_panel.Width - 5
            ptemp.Height = 34
            ptemp.BorderStyle = BorderStyle.None
            ptemp.BackColor = Color.Yellow
            AddHandler ptemp.Click, AddressOf Ptemp_Click
            AddHandler l_desc.Click, AddressOf Ptemp_Click
            AddHandler l_qty.Click, AddressOf Ptemp_Click
            AddHandler l_part_num.Click, AddressOf Ptemp_Click
            AddHandler l_date.Click, AddressOf Ptemp_Click
        Else
            ptemp.Tag = "0"
            ptemp.Width = temp_panel.Width
            ptemp.Height = 34
            ptemp.BorderStyle = BorderStyle.None
            ptemp.BackColor = Color.Transparent
        End If
        temp_panel.Controls.Add(ptemp)
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

Private Delegate Sub delegate_panel(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
 
Sub delegate_panel_build(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
    If Me.InvokeRequired Then
        Dim objdele As delegate_panel
        objdele = AddressOf delegate_panel_build
        objdele.Invoke(job_number, item_number, description, shed_date, total_qty, run_qty, temp_panel, part_number)
    Else
        Dim ptemp As New Panel
        Dim l_desc As New Label
        Dim l_part_num As New Label
        Dim l_qty As New Label
        Dim l_date As New Label
        With l_part_num
            .Text = part_number
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 8)
            .Location = New Point(ptemp.Location.X + 22, ptemp.Location.Y - 1)
        End With
        With l_desc
            .Text = description
            .ForeColor = Color.Black
            .Font = New Font(Font.Name, 5.5, FontStyle.Regular)
            .AutoSize = True
            .Location = New Point(ptemp.Location.X + 1, ptemp.Location.Y + 13)
        End With
        With l_date
            .Text = shed_date.ToString("M/d")
            .ForeColor = Color.Black
            .AutoSize = True
            .Font = New Font(Font.Name, 7)
            .Location = New Point(ptemp.Location.X - 2, ptemp.Location.Y - 1)
        End With
        If run_qty = "" Then run_qty = 123
        With l_qty
            .Text = run_qty & "/" & total_qty
            .ForeColor = Color.Black()
            .BackColor = Color.White
            .AutoSize = True
            .RightToLeft = Windows.Forms.RightToLeft.Inherit
            .Location = New Point(ptemp.Location.X + 27, ptemp.Location.Y + 21)
            .Font = New Font(Font.Name, 7)
            .TextAlign = ContentAlignment.MiddleCenter
        End With
        If part_number <> "" Then
            ptemp.Controls.Add(l_part_num)
            ptemp.Controls.Add(l_date)
            ptemp.Controls.Add(l_desc)
            ptemp.Controls.Add(l_qty)
            ptemp.Tag = job_number & "~" & item_number & "~" & part_number
            ptemp.Width = temp_panel.Width - 5
            ptemp.Height = 34
            ptemp.BorderStyle = BorderStyle.None
            ptemp.BackColor = Color.Yellow
            AddHandler ptemp.Click, AddressOf Ptemp_Click
            AddHandler l_desc.Click, AddressOf Ptemp_Click
            AddHandler l_qty.Click, AddressOf Ptemp_Click
            AddHandler l_part_num.Click, AddressOf Ptemp_Click
            AddHandler l_date.Click, AddressOf Ptemp_Click
        Else
            ptemp.Tag = "0"
            ptemp.Width = temp_panel.Width
            ptemp.Height = 34
            ptemp.BorderStyle = BorderStyle.None
            ptemp.BackColor = Color.Transparent
        End If
        temp_panel.Controls.Add(ptemp)
    End If
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

  Private Delegate Sub delegate_panel(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
 
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim worker As New System.Threading.Thread(AddressOf build_query)
        worker.Start()
        While worker.IsAlive
            Threading.Thread.Sleep(700)
            If Me.ss_progress_bar.Value < ss_progress_bar.Maximum Then
                ss_progress_bar.Increment(10)
            Else
                ss_progress_bar.Value = 0
            End If
        End While
        ss_progress_bar.Value = ss_progress_bar.Minimum
    End Sub
 
   Sub build_query()
         Dim data_adap As OracleDataAdapter
        Dim ds As New DataSet
        Dim row_count As Integer = 0 'keeps track of the rows
        Dim dr As DataRow
        Dim job, item, description, qty, temp_qty As String
        Dim col_name As String
        Dim sched_start_date As Date
        ssql = "select here"
        data_adap = New OracleDataAdapter(ssql, ora_conn)
        Try
            data_adap.Fill(ds, "Table1")
            For Each dr In ds.Tables(0).Rows
                job = dr.Item(0).ToString
                item = dr.Item(1).ToString
                description = dr.Item(2).ToString
                sched_start_date = dr.Item(3)
                qty = dr.Item(4).ToString
                For i As Integer = 5 To ds.Tables(0).Columns.Count - 1
                    'This loop is for looping all the cylinder components
                    Dim l As New Label
                    Dim v As Array
                    col_name = ds.Tables(0).Columns.Item(i).ColumnName 'Get the column name so they can be sorted by component
                    v = Me.Controls.Find("flp" & col_name.ToLower, True)
                    If v.Length >= 1 Then
                        temp_qty = dr.Item(i + 1).ToString
                        delegate_panel_buildjob, item, description, sched_start_date, qty, temp_qty, v(0), dr.Item(i).ToString)
                        i += 1
                    End If
                Next
                row_count += 1
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
 
        End Try
    End Sub
 
Sub delegate_panel_build(ByVal job_number As String, ByVal item_number As String, ByVal description As String, ByVal shed_date As Date, ByVal total_qty As String, ByVal run_qty As String, ByVal temp_panel As FlowLayoutPanel, ByVal part_number As String)
        Dim ptemp As New Panel
        Dim l_desc As New Label
        Dim l_part_num As New Label
        Dim l_qty As New Label
        Dim l_date As New Label
        If Me.InvokeRequired Then
             Dim objdele As delegate_panel
            objdele = AddressOf delegate_panel_build
            objdele.Invoke(job_number, item_number, description, shed_date, total_qty, run_qty, temp_panel, part_number)
        Else
            With l_part_num
                .Text = part_number
                .ForeColor = Color.Black
                .AutoSize = True
                .Font = New Font(Font.Name, 8)
                .Location = New Point(ptemp.Location.X + 22, ptemp.Location.Y - 1)
            End With
            With l_desc
                .Text = description.Replace("CYL ASSY", "")
                .ForeColor = Color.Black
                .Font = New Font(Font.Name, 5.5, FontStyle.Regular)
                .AutoSize = True
                .Location = New Point(ptemp.Location.X + 1, ptemp.Location.Y + 13)
            End With
            With l_date
                .Text = shed_date.ToString("M/d")
                .ForeColor = Color.Black
                .AutoSize = True
                .Font = New Font(Font.Name, 7)
                .Location = New Point(ptemp.Location.X - 2, ptemp.Location.Y - 1)
            End With
            If run_qty = "" Then run_qty = 123
            With l_qty
                .Text = run_qty & "/" & total_qty
                .ForeColor = Color.Black()
                .BackColor = Color.White
                .AutoSize = True
                .RightToLeft = Windows.Forms.RightToLeft.Inherit
                .Location = New Point(ptemp.Location.X + 27, ptemp.Location.Y + 21)
                .Font = New Font(Font.Name, 7)
                .TextAlign = ContentAlignment.MiddleCenter
            End With
            If part_number <> "" Then
                ptemp.Controls.Add(l_part_num)
                ptemp.Controls.Add(l_date)
                ptemp.Controls.Add(l_desc)
                ptemp.Controls.Add(l_qty)
                ptemp.Tag = job_number & "~" & item_number & "~" & part_number
                ptemp.Width = temp_panel.Width - 5
                ptemp.Height = 34
                ptemp.BorderStyle = BorderStyle.None
                ptemp.BackColor = Color.Yellow
                AddHandler ptemp.Click, AddressOf Ptemp_Click
                AddHandler l_desc.Click, AddressOf Ptemp_Click
                AddHandler l_qty.Click, AddressOf Ptemp_Click
                AddHandler l_part_num.Click, AddressOf Ptemp_Click
                AddHandler l_date.Click, AddressOf Ptemp_Click
            Else
                ptemp.Tag = "0"
                ptemp.Width = temp_panel.Width
                ptemp.Height = 34
                ptemp.BorderStyle = BorderStyle.None
                ptemp.BackColor = Color.Transparent
            End If
            temp_panel.Controls.Add(ptemp)
        End If
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:

   Dim duetime As New TimeSpan(0, 0, 1) 'how long to wait before starting timer
    Dim ticktime As New TimeSpan(0, 0, 0, 0, 10000) 'Number of seconds in milleseconds between each tick
  
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim frm_login As New Login
        frm_login.ShowDialog()
        If login_status Then
                  thtimer = New System.Threading.Timer(New System.Threading.TimerCallback(AddressOf build_query), Nothing, duetime, ticktime)
         End If
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

 Sub clear_controls(ByVal ctrl As Control) 
        Dim frmctrl As Control
        Dim flow_p_controls As Control
        For Each frmctrl In ctrl.Controls
            If TypeOf frmctrl Is FlowLayoutPanel Then
                If frmctrl.HasChildren Then
                    For Each flow_p_controls In frmctrl.Controls
                        flow_p_controls.Dispose()
                    Next
                End If
            End If
            If frmctrl.HasChildren Then
                clear_controls(frmctrl)
            End If
        Next
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16: