• Top Members
    Reps
    Posts
  • 834 Replies
    2585 Replies
  • 713 Replies
    2021 Replies
  • 331 Replies
    1928 Replies
The site is still being updated (as of 14th Jan 2018 6PM GMT) but can be used in the meantime.

Exit application?

Please LOCK your topics once you have found the solution to your question so we know you no longer require help with your query.
Locked
User avatar
Dummy1912
VIP - Donator
Posts: 1947

Exit application?

Sat Sep 09, 2017 5:09 pm

Hello,

Seems sometimes we can start and exit our app without problems
but then sometimes we get a error and the app just crash without exit it

why???
search on net but not really a solution found :(

anyone?

'used

Code: Select all

    Private Sub FrmLogin_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        Try
            If MyFunctions.IsExit = True Then
                Util.displayMessage("Do you really want to exit from '" & MyFunctions.ProjectName & "'?", MyFunctions.ProjectName, "YesNo")
                If MessageValue = 3 Then
                    MyFunctions.IsExit = False
                    e.Cancel = True
                ElseIf MessageValue = 2 Then
                    e.Cancel = False
                    Environment.Exit(0)
                End If
            Else
                e.Cancel = False
            End If

        Catch ex As Exception
            e.Cancel = False
           Environment.Exit(0)
        End Try
    End Sub

'tried again

Code: Select all

    Private Sub FrmLogin_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        Try
            If MyFunctions.IsExit = True Then
                Util.displayMessage("Do you really want to exit from '" & MyFunctions.ProjectName & "'?", MyFunctions.ProjectName, "YesNo")
                If MessageValue = 3 Then
                    MyFunctions.IsExit = False
                    e.Cancel = True
                ElseIf MessageValue = 2 Then
                    e.Cancel = False
                    End 
                End If
            Else
                e.Cancel = False
            End If

        Catch ex As Exception
            e.Cancel = False
            End
        End Try
    End Sub

keeps failing

https://drive.google.com/open?id=0B37cl ... XRSNTlxMzQ

User avatar
CodenStuff
Site Admin
Posts: 4348

Re: Exit application?

Sun Sep 10, 2017 12:53 pm

Could try using Exit Sub instead of End

Also try outputting the whatever the error is in your catch statement to see what is happening.
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.


User avatar
CodenStuff
Site Admin
Posts: 4348

Re: Exit application?

Sun Sep 10, 2017 2:22 pm

Possibly something else running in the background that isn't being stopped/exited correctly which is why it is a good idea to try catch/output the error to see what is going on :duh;
Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.


Locked

Return to “Coding Help & Support”