Pessoal, como nenhum post foi colocado, deixarei uma semana mais antes de publicar a resposta e colocar um novo desafio. Enquanto isso, estarei publicando um artigo ainda hoje. Fiquem de olho. :)

Olá amigos,

Mais uma vez um assunto excelente para ser abordado aqui nesse blog.

Inicialmente precisamos nos preocupar em certificarmos que todas as rotinas tem tratamento adequado de erro. Contudo apenas isso não é suficiente, imagine um método um pouco mais extenso que o apresentado, mesmo com um tratamento de erros regular não seríamos capazes de identificarmos exatamente qual comando dentre tantos presentes nesse método que possa ter gerado o problema. A mina sugestão é a utilização de uma técnica bastante antiga do Basic que fora também encorporada ao Visual Basic, que é a numeração de código.

A enumeração de código é um antigo recurso do basic que era muito utilizado como marcador, podendo-se utilizá-la para definição de labels, como no exemplo abaixo:

Private Function Contador(ByVal Qt As Integer) As Long
1 Dim RetVal As Long
2
3 If Qt > 0 Then
4  RetVal = RetVal + 1
5  Qt = Qt - 1
6  Goto 3             'move cursor de execução para linha 3
7 End If
8 Contador = RetVal
End Function

Claro que o exemplo acima, serve apenas para demonstração de labels por numeração, mas não é uma forma das mais elegantes de se escrever...

O recurso de enumeração também pode ser utilizado para resolver o problema de melhor detecção de erros, da seguinte maneira:

Public Sub DivideByZero()
1  Dim x As Long
2  Dim y As Long
3  On Error GoTo DeuErro
4  y = 5
5  MsgBox y / x 'error
6  Exit Sub
7 DeuErro:
8  MsgBox "Ocorreu um erro na execução" + vbCrLf + vbCrLf + "Número: " + CStr(Err) + vbCrLf + "Descrição: " + Error$ + vbCrLf + "Linha: " + CStr(Erl), vbCritical
End Sub

Note que, ocorrido um erro, o programa irá mostrar detalhadamente qual o número do erro, sua descrição e ainda a linha que gerou o problema.

O uso de enumeração é uma boa prática para localização de problemas. Contudo, é bastante evidente que o código não fica nada agradável... É muito trabalhoso codificar e se preocupar simultaneamente com enumeração. Desenvolvi portanto um programa que faz de forma automática a enumeração de meu código antes que eu gere uma release do produto. Assim sempre guardo cópia enumerada do código referente a cada release para poder numa situação de erro, ter maiores detalhes quanto sua ocorrência.

Acredito que deve existir uma série de outros programas que fazem também enumeração do código basic.

Para escrita no Event Viewer conforme sugerido no desafio podemos fazer utilizando comandos internos do Visual Basic ou diretamente por API, para utilizaçao pelo Visual Basic utilizaríamos:

App.LogEvent "Ocorreu um erro na execução" + vbCrLf + vbCrLf + "Número: " + CStr(Err) + vbCrLf + "Descrição: " + Error$ + vbCrLf + "Linha: " + CStr(Erl), 1

Mas há uma forma um pouco mais rebuscada que seria utilizando-se a api:

Private Declare Function ReportEvent
Lib "advapi32" Alias "ReportEventA" (ByVal hEventLog As Long, ByVal wType As Long, ByVal wCategory As Long, ByVal dwEventID As Long,
ByVal lpUserSid As Long, ByVal wNumStrings As Long, ByVal dwDataSize As Long, lpStrings As Any, lpRawData As Any) As Long

Com a ReportEventA temos como detalhar um pouco mais o evento gerado.

Até a próxima.

Abraços

Olá Danilo,
Parabéns pela resposta! Absolutamente correta!
O legal dessa solução é que ela se baseia em um comando antigo do Visual Basic e, por isso, pouco utilizado.
Obrigado pela participação! :)

Olá para todos,

Achei bem interessante o mecanismo apresentado, bem aplicável para o ambiente VB6 e esse tipo de situação.

E como curiosidade, para soluções em .NET, segue um artigo bem interessante sobre o tratamento de exceptions:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnbda/html/exceptdotnet.asp

Uma leitura valiosa.

Abraços!

Waldemas...