Eventos da Aplicação

Este artigo mostra como utilizar os eventos da aplicação.

Para aceder aos eventos devem clicar neste botão, que está no MyProject.

Namespace My
    Partial Friend Class MyApplication

        Private Sub MyApplication_NetworkAvailabilityChanged(sender As Object, e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
            'Este evento é disparado quando muda o estado de ligação à rede
            If e.IsNetworkAvailable Then
                'Tem acesso à rede
            Else
                'Não tem acesso à rede
            End If
        End Sub

        Private Sub MyApplication_Shutdown(sender As Object, e As System.EventArgs) Handles Me.Shutdown
            'Este evento é disparado após todas as forms da aplicação estarem fechadas
            'Este evento não é disparado se a aplicação for encerrada de forma normal
        End Sub

        Private Sub MyApplication_Startup(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            'Este evento é disparado quando a aplicação é iniciada, antes que o formulário de inicialização seja criado.

            'Deixa/não deixa que a aplicação abra
            e.Cancel = True

            'Apanha os argumentos passados pela linha de comandos
            Dim Argumentos As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = e.CommandLine
        End Sub

        Private Sub MyApplication_StartupNextInstance(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
            'Este evento é disparado quando se inicia uma nova instância e quando a aplicação já está iniciada

            'Traz/não traz a aplicação para primeiro plano
            e.BringToForeground = True

            'Apanha os argumentos passados pela linha de comandos
            Dim Argumentos As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = e.CommandLine
        End Sub

        Private Sub MyApplication_UnhandledException(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
            'Este evento é disparado quando ocorre um erro que não foi tratado

            'Apanha a excepção
            MessageBox.Show(e.Exception.Message)

            'Deixa/não deixa a aplicação terminar
            e.ExitApplication = False
        End Sub
    End Class
End Namespace

Escrito originalmente por: Caça