This is what i have, i dont know whether i am on the right track. I dont get good results though.
Fill Dataset in public Module
VB Code:
Public dsOrgs As DataSet
Public Sub FillDataset()
Dim strSQL As String = "SELECT * FROM QryIncidents"
dsOrgs = New DataSet
dsOrgs = connMger.ReturnOleDbData(strAccessConn, strSQL, "QryIncidents")
End Sub
in my Porogress Bar:
VB Code:
'Close progress bar
Public Sub CloseMe(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
On the menu button that calls the child form
VB Code:
Private Sub smnuIncidents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smnuIncidents.Click
Me.smnuIncidents.Visible = False
Me.Refresh()
Me.smnuIncidents.Visible = True
Dim shwPrThread As Thread = New Thread(AddressOf showProgressBar)
shwPrThread.Start()
'Fill dataset from public sub
FillDataset()
shwPrThread.Abort()
Dim closePrThread As Thread = New Thread(AddressOf closeProgressBar)
closePrThread.Start()
'Open Child form
OpenIncidentsForm()
End Sub
Sub that calls the child form
VB Code:
Private Sub OpenIncidentsForm()
If Me.childForm Is Nothing OrElse Me.childForm.IsDisposed Then
Me.childForm = New frmIncidents
Me.AddOwnedForm(Me.childForm)
Me.childForm.MdiParent = Me
Me.childForm.Show()
flagFrmLoaded = True
Else
' If User Tries To Load This form when its still open
' Then just focus on the exitsing form
Me.childForm.Activate()
End If
End Sub
Subs called by threads (located in main form)
VB Code:
Private _progressBar As frmProgressBar
Private Sub showProgressBar()
_progressBar = New frmProgressBar
Application.Run(_progressBar)
End Sub
Private Sub closeProgressBar()
If Not _progressBar Is Nothing Then
Return
End If
_progressBar.Invoke(New EventHandler(AddressOf _progressBar.CloseMe))
_progressBar.Dispose()
_progressBar = Nothing
End Sub
Any Help!!