Erro de objeto (Visual Basic)

Artigo
08/25/2010

Contém informações sobre em time de execução erros.

Comentários

As propriedades do Err objeto são definidas pelo gerador de um erro — Visual Basic, um objeto ou o programador.

Quando um em time de execução erro ocorrer, as propriedades do Err objeto está preenchido com informações que identificam exclusivamente o erro e que podem ser usados para manipular o erro ou para obter mais informações sobre ele. Para gerar um erro em time de execução em seu código, use o Raise método.

As propriedades do Errobjeto são reiniciar para zero ou seqüências de comprimento zero ("") após um Exit Sub, Exit Function, Exit Property, ou Resume Next demonstrativo em uma rotina de tratamento de erros. Usando qualquer forma do Resume demonstrativo fora de uma rotina de tratamento de erros não redefinirá as propriedades das Err objeto. Você pode usar o Clear método para reiniciar explicitamente Err.

Use o Raise método em vez da Error demonstrativo para gerar erros em time de execução para erros do sistema e módulos de classe. Sua decisão sobre se deve usar o Raise método em outros códigos depende a riqueza das informações que você deseja retornar.

The Err é um objeto intrínseco com escopo global. Portanto, não é necessário criar uma instância no seu código.

Observação:
Você também pode Use o Função ErrorToString para localizar a mensagem de erro que corresponde a um número do erro específica.

Exemplo

Este exemplo usa as propriedades do objeto Err construindo um caixa de diálogo Error-Message.Observe que, se você usar o Clear método primeiro, quando você gera um erro do Visual Basic usando o Raise método, valores de padrão do Visual Basic se tornam as propriedades da Err objeto. The Description propriedade retorna uma seqüência de caracteres que descreve o erro.

Dim Msg As String
' If an error occurs, construct an error message.
On Error Resume Next   ' Defer error handling.
Err.Clear()
Err.Raise(6)   ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
  Msg = "Error # " & Str(Err.Number) & " was generated by " _
      & Err.Source & ControlChars.CrLf & Err.Description
  MsgBox(Msg, MsgBoxStyle.Information, "Error")
End If