FUNÇÃO E INSTRUÇÃO DE CONTROLE DO FLUXO DE EXECUÇÃO - END

End

    Instrução que termina um procedimento ou bloco de instruções, utilizando uma destas sintaxes:

End

End Function

End If

End Property

End Select

End Sub

End Type

End Enum

End With

Onde as sintaxes empregadas geram os seguintes resultados:

• End: termina imediatamente a execução de um programa, onde quer que seja executada, destruindo o valor de todas as variáveis existentes;
• End Function, End If, End Property, End Select, End Sub, End Type, End Enum e End With são argumentos obrigatórios para indicar o término de funções, instruções If...The...Else, propriedades, instruções Select Case, sub-rotinas, declaração de tipos definidos pelo usuário, enumeradores e términos de blocos With, respectivamente.

Os seguintes comentários são válidos para a instrução End:

• A função End termina absolutamente qualquer aplicativo em Visual Basic ou código escrito em VBA, eliminando o valor de todas as variáveis porventura empregadas pelo aplicativo, e destruindo quaisquer objetos representados por módulos classe. Todos os arquivos abertos com a instrução Open são fechados, e a memória utilizada pelo aplicativo é liberada para o sistema operacional;
• Quando a instrução End é executada, nenhum evento de terminação é disparado, como Close, Unpload, QueryUnload e Terminate;
• Para paralisar o programa e verificar o valor das variáveis, empregue a instrução Stop no lugar de End.

Exemplo: O exemplo a seguir demonstra como empregar a instrução End para terminar abruptamente um aplicativo após um determinado número de execuções. Note que o número já efetuado de execuções é armazenado mo registro do Windows com a instrução SaveSetting e recuperado com a instrução SaveSetting.

Dim Function TempoUtilizaçãoVencido()

Dim intVezes as integer

Cons conNumMaxVezes = 50

intVezes = GetSetting(“MeuAplicativo”,”Inicialização”,”NumVezes”,1)

If intVezes < conNumMaxVezes Then

    SaveSetting(“MeuAplicativo”,”Inicialização”,”NumVezes”,IntNumVezes+1)

Else

    MsgBox “Número de avaliações vencido!”, vbInformation,”Impossível prosseguir”

End If

End Function

Até a Próxima!!