RMI@
|
CAMPO BELO
MG - BRASIL
|
|
Postada em 24/08/2004 11:23 hs
Podemos obter no tratamento de erros, o número, origem e descrição. além disso temos como saber a linha que originou o erro? Ou em uma função/evento temos como contar as linhas? por ex: Plublic function TESTE() msgbox "Olá" 'linha 1 data = date 'linha 2 end function 'total de linhas 2 até + |
|
|
|
|
|
JCarlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 24/08/2004 13:18 hs
O debug não resolve o seu problema? |
|
|
|
|
|
Postada em 24/08/2004 13:19 hs
nao seria mais facil se vc posicione na linha onde esta o erro isso é feito atraves do comando RESUME , ele volta para a linha onde ocorreu o erro ok
------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tom -Catanduva/SP Analista Sistemas - Visual Basic 6 - VB.NET "Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna" Isaías 26:4 
|
|
|
|
Burro
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 25/08/2004 01:08 hs
Provavelmente nosso amigo quer isso em tempo de execução, eu usava muito isso em clipper, só que la como era procedural, vc tinha o programa com varias linhas, e mesmo o programa compilado (tinha opção de retirar tambem), no executavel quando dava algum pau, ele guardava certinho a linha do seu código fonte, assim vc criava logs, e com isso sabia exatamente onde era o ponto que havia dado pau no seu sistema. Mais em vb não sei se tem isso, pq muda muito, as rotinas ficam a nivel de objeto, modulo, rotinas dentro do form, etc.... Caso alguem saiba, acho que é nesse sentido que o amigo esta precisando, estou correto? |
|
|
|
|
|
Postada em 25/08/2004 01:19 hs
Olá! Tem jeito de fazer sim. Existem Addins pro VB que ajudam a fazer mas testei e deixou minha IDE muito lenta. Pra fazer você mesmo tem o incoveniente de ter que ficar numerando as linhas de código. Ex: Private Sub Command1_Click()
1 On Error GoTo catch_exception
2 Dim i As Integer
3 i = 100 / 0 4 Exit Sub catch_exception:
MsgBox "Erro #" & Str$(Err.Number) & " ; Linha #" & Str$(Erl) & " ; " _
& Err.Description & " ; Fonte: " & Err.Source End Sub Abraço! |
|
TÓPICO EDITADO
|
|
|
|
RMI@
|
CAMPO BELO
MG - BRASIL
|
|
Postada em 25/08/2004 11:45 hs
Olá pessoal. é verdade, preciso saber a linha aonde o erro ocorreu. vou testar a rotina do nosso amigo caco para ver se retorna a linha. obrigado e vamos em frente...
RMI
|
|
|
|
