G
Guest
I am having a curious problem...
When 'Application.Exit()' command is executed in my program it does not end.
I set a breakpoint in the 'Dispose' methid that never gets called (yes, I am
in Debug mode) - what gives... this is certianly strange bahavior. The code
that I am running is below, I added Stop statements to alert me when the
applicaiton.exit() fails to quit the app...
Anyone have any ideas - I'm stuck!
Private Sub CheckForExistingLog(ByVal strLog As String)
If System.IO.File.Exists(strLog) Then
Debug.WriteLine(strLog & " was found")
If FileLen(strLog) > 0 Then
Debug.WriteLine("some previous actions failed...")
Me.SetAction("")
Me.SetLblTo("")
Me.SetSource("")
Me.SetTarget("")
Me.SetInfo("This patch has already been applied" & vbNewLine
& "Click Close to exit")
Me.pgTotal.Value = Me.pgTotal.Maximum
Application.Exit()
Stop
Else
Debug.WriteLine("all previous actions completed successfully")
Me.SetAction("")
Me.SetLblTo("")
Me.SetSource("")
Me.SetTarget("")
Me.SetInfo("This patch has already been applied" & vbNewLine
& "Click Close to exit")
Me.pgTotal.Value = Me.pgTotal.Maximum
Application.Exit()
Stop
End If
Else
Debug.WriteLine(strLog & " was NOT found")
Me.CreateOutputDataSet(strLog)
End If
End Sub
When 'Application.Exit()' command is executed in my program it does not end.
I set a breakpoint in the 'Dispose' methid that never gets called (yes, I am
in Debug mode) - what gives... this is certianly strange bahavior. The code
that I am running is below, I added Stop statements to alert me when the
applicaiton.exit() fails to quit the app...
Anyone have any ideas - I'm stuck!
Private Sub CheckForExistingLog(ByVal strLog As String)
If System.IO.File.Exists(strLog) Then
Debug.WriteLine(strLog & " was found")
If FileLen(strLog) > 0 Then
Debug.WriteLine("some previous actions failed...")
Me.SetAction("")
Me.SetLblTo("")
Me.SetSource("")
Me.SetTarget("")
Me.SetInfo("This patch has already been applied" & vbNewLine
& "Click Close to exit")
Me.pgTotal.Value = Me.pgTotal.Maximum
Application.Exit()
Stop
Else
Debug.WriteLine("all previous actions completed successfully")
Me.SetAction("")
Me.SetLblTo("")
Me.SetSource("")
Me.SetTarget("")
Me.SetInfo("This patch has already been applied" & vbNewLine
& "Click Close to exit")
Me.pgTotal.Value = Me.pgTotal.Maximum
Application.Exit()
Stop
End If
Else
Debug.WriteLine(strLog & " was NOT found")
Me.CreateOutputDataSet(strLog)
End If
End Sub