Hiding a Progress Indicator Modal Form

[Keith Rebello]

I am writing a program that analyzes a reinforced concrete column section.
The main form has an "Analysis" menu item that calls the main analysis
routines in a ColumnSection class. It also opens a modal form containing a
progress bar which shows the progess of the analysis.
i.e. FormProgress.Sh owDialog
ColumnSection.A nalyze

In the ColumnSection class I raise an event that updates the progress:
RaiseEvent OverallProgress (iProgress)

In the FormProgress form I handle the event as follows:
Private Sub Progress(iProgr ess as integer) Handles
ColumnSection.O verallProgress
pgBar.value = iProgress
If iProgress = 100 then '100 is the maximum value
debug.writeline ("Finished!" )
Me.Hide
End If
End Sub

I know that the subroutine enters the If block, but FormProgress does not
hide itself. What am I doing wrong? How do I hide "FormProgre ss" when the
analysis is complete and return to the application?

[Pipo]

I think you'll need to close the form and not hide the form.
The form is modal so returning to the application can only happen if the
form is closed.

"Keith Rebello" <kr******@coref undamentals.com > wrote in message
news:2wCZd.3025 2$Sn6.17923@lak eread03...

I am writing a program that analyzes a reinforced concrete column section.
The main form has an "Analysis" menu item that calls the main analysis
routines in a ColumnSection class. It also opens a modal form containing a progress bar which shows the progess of the analysis.
i.e. FormProgress.Sh owDialog
ColumnSection.A nalyze

In the ColumnSection class I raise an event that updates the progress:
RaiseEvent OverallProgress (iProgress)

In the FormProgress form I handle the event as follows:
Private Sub Progress(iProgr ess as integer) Handles
ColumnSection.O verallProgress
pgBar.value = iProgress
If iProgress = 100 then '100 is the maximum value
debug.writeline ("Finished!" )
Me.Hide
End If
End Sub

I know that the subroutine enters the If block, but FormProgress does not
hide itself. What am I doing wrong? How do I hide "FormProgre ss" when the analysis is complete and return to the application?

[Keith Rebello]

That is not true. I hide and show a lot of other modal forms in the
application. The other forms are closed in Button_Click events on those
forms.

"Pipo" <Pi**@nobody.co m> wrote in message
news:eb******** ******@TK2MSFTN GP15.phx.gbl...

I think you'll need to close the form and not hide the form.
The form is modal so returning to the application can only happen if the
form is closed.

"Keith Rebello" <kr******@coref undamentals.com > wrote in message
news:2wCZd.3025 2$Sn6.17923@lak eread03...

I am writing a program that analyzes a reinforced concrete column
section.
The main form has an "Analysis" menu item that calls the main analysis
routines in a ColumnSection class. It also opens a modal form containing

a

progress bar which shows the progess of the analysis.
i.e. FormProgress.Sh owDialog
ColumnSection.A nalyze

In the ColumnSection class I raise an event that updates the progress:
RaiseEvent OverallProgress (iProgress)

In the FormProgress form I handle the event as follows:
Private Sub Progress(iProgr ess as integer) Handles
ColumnSection.O verallProgress
pgBar.value = iProgress
If iProgress = 100 then '100 is the maximum value
debug.writeline ("Finished!" )
Me.Hide
End If
End Sub

I know that the subroutine enters the If block, but FormProgress does not
hide itself. What am I doing wrong? How do I hide "FormProgre ss" when

the

analysis is complete and return to the application?