Is form still loaded

[Jack Russell]

I have the following simple piece of code.

How can I test if the form I show is still loaded?

Thanks
Private Sub mnuAnalysisResults_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles mnuAnalysisResults.Click
Dim AFormReport As New frmAnalysisResults
AFormReport.Show()
End Sub

[Cor Ligthert [MVP]]

Jack,

It is in the non simple properties

If not myform.isdisposed then

http://msdn.microsoft.com/library/de...posedtopic.asp

I hope this helps,

Cor

[Ken Tucker [MVP]]

Hi,

I would make AFormReport a form level variable.

Dim AFormReport As New frmAnalysisResults

Private Sub mnuAnalysisResults_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles mnuAnalysisResults.Click
If AFormReport is nothing then
' needs to be reloaded
AFormReport = new frmAnalysisResults
End If

AFormReport.Show()
End Sub

Ken
----------------------
"Jack Russell" <ja***@norubbish.tpg.com.au> wrote in message
news:%2******************@tk2msftngp13.phx.gbl...
I have the following simple piece of code.

How can I test if the form I show is still loaded?

Thanks
Private Sub mnuAnalysisResults_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles mnuAnalysisResults.Click
Dim AFormReport As New frmAnalysisResults
AFormReport.Show()
End Sub

[Jack Russell]

Cor Ligthert [MVP] wrote:

Jack,

It is in the non simple properties

If not myform.isdisposed then

http://msdn.microsoft.com/library/de...posedtopic.asp

I hope this helps,

Cor

Cor,
Thanks
This is where I get confused,
I created the form with a local variable
Dim AFormReport As New frmAnalysisResults
AFormReport.Show()
So what do I pass to is disposed.

Jack

[Cor Ligthert [MVP]]

Jack,

Dim AFormReport As New frmAnalysisResults
AFormReport.Show()

Now you are sure that the object exist because you created it before the
show as a complete new form.

For what you probably need (the form is than instanced globaly in the class)
see the sample from Ken.

Cor

[Jack Russell]

Cor Ligthert [MVP] wrote:

Jack,

Dim AFormReport As New frmAnalysisResults
AFormReport.Show()

Now you are sure that the object exist because you created it before the
show as a complete new form.

For what you probably need (the form is than instanced globaly in the class)
see the sample from Ken.

Cor

Thanks to you both for your help

[Herfried K. Wagner [MVP]]

Jack,

"Jack Russell" <ja***@norubbish.tpg.com.au> schrieb:

How can I test if the form I show is still loaded?
[...]
Private Sub mnuAnalysisResults_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles mnuAnalysisResults.Click
Dim AFormReport As New frmAnalysisResults
AFormReport.Show()
End Sub

=>

\\\
Private m_ReportForm As ReportForm
..
..
..
If m_ReportForm Is Nothing OrElse m_ReportForm.IsDisposed Then
m_ReportForm = New ReportForm()
m_ReportForm.Show()
Else
m_ReportForm.Activate()
End If
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>