Função ErrorToString

Artigo
08/25/2010

Retorna a mensagem de erro que corresponde a um número determinado de erro.

Public Shared Function ErrorToString(ByVal ErrorNumber As Integer) As String

Parâmetros

ErrorNumber
Opcional.Qualquer número de erro válido.

Exceções

Tipo de exceção	Número de erro	Condição
ArgumentException	5	ErrorNumber está fora do intervalo.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

A função ErrorToString examina as configurações de propriedades do objeto Err para identificar o erro em tempo de execução mais recente.O valor de retorno da função ErrorToString corresponde à propriedade Description do objeto Err.Se ErrorNumber é um número de erro válido, mas não está definido, ErrorToString retorna a sequência de caracteres "Application-defined or object-defined error." Se ErrorNumber for inválido, ocorrerá um erro.Se ErrorNumber for omitido, a mensagem correspondente ao erro em tempo de execução mais recente é retornada.Se nenhum erro em tempo de execução ocorreu ou ErrorNumber é 0, ErrorToString retornará uma sequência de caracteres de comprimento zero ("").

No Visual Basic versão 6.0 e anteriores, essa funcionalidade era fornecida pela função Error.

Exemplo

O código a seguir usa a função ErrorToString para exibir mensagens de erro que correspondem aos números de erro especificados.

Dim ErrorNumber As Integer
For ErrorNumber = 61 To 64   ' Loop through values 61 - 64.
   MsgBox(ErrorToString(ErrorNumber))   ' Display error names in message box.
Next ErrorNumber