Как узнать номер строки кода, в котором произошла ошибка ?

[PavelT100]

Можно ли на VB6 узнать номер строки кода, в котором произошла ошибка ?

[skiperski]

Erl

[boevik]

Можно, если в начале пронумеруешь строки и тогда в Error Handling пиши

Код: Выделить всё

MsgBox "Error at line " & Erl


В инете есть много AddIn для нумерации строк

[PavelT100]

В инете есть много AddIn для нумерации строк

А можно подробней, для новичков, освятить эту фразу.

[boevik]

Будет поподробнее, но в понедельник.

[boevik]

Вот проект, который можно откомпилировать и получить AddIn для нумерации строк кода

[PavelT100]

VB6. Скачал, сделал Linenumb.dll. В своем проекте в Project\References... добавил галочку VB Code Line Number Add/Remove. В файл C:\Windows\vbaddin.ini в секцию [Add-Ins32]
добавил строку LineNumbers.Connect=0.
В своем проекте пишу MsgBox "Error at line " & Erl.
При всем при этом выводится надпись "Error at line 0" и от строки не зависит.

[boevik]

Зайди в меню Add-Ins->Add-In Manager.
Сделай Load для VB Code Line Numbers Add/Remove
Появится кнопка в меню.
Нажми ее и появится окнo для добавления нумерации строк
Я думаю что дальше разберешься.

[PavelT100]

Кнопка в меню Add-Ins появилась. И номера строк я добавил в файл кода. Но после этого все равно

Код: Выделить всё

    MsgBox "Error at line " & Erl

пишет "Error at line 0".
.

[boevik]

Конечный код должен выглядить примерно так

Код: Выделить всё

10 On Error GoTo ErrorHandling   'обработчик ошибки

15 Open "c:\1111.txt" For Input As #1
20 Close #1
30 Exit Sub

ErrorHandling:   'начало кода обработки ошибки

40    MsgBox "Error: " & Err.Number & " " & Err.Description & vbNewLine & _
        "Source: " & Err.Source & vbNewLine & _
        "At line " & Erl, vbCritical



[PavelT100]

А можно ли узнать номер строки где произошла ошибка, если она произошла во вложенной процедуре

Код: Выделить всё

sub F1()
10 Err.Raise 1, "A", "B"
end sub
sub main()
20 On Error GoTo ErrorGlobal
25 call F1
ErrorGlobal:
30    Call MsgBox("Error at line " & Erl)
end sub


Мне вернет строку номер 25, а хотелось бы 10. Можно, конечно, обрабатывать ошибку в самой процедуре F1, но есть ли другие варианты ?

[skiperski]

Нет, других вариантов нет. Или пиши обработчики в каждой процедуре/функции или довольствуйся тем что есть.