Vb6 Код ошибки Эквивалент в vb.net

Question

Есть ли способ конвертировать код ошибки vb.net в код ошибки ошибки vb6.

Например: деление на ноль код ошибки в VB6 является 11

Как получить тот же эквивалент в vb.net?

Answer 1

Зачем вам нужен тот же код Ошибка? Вы можете использовать Somthing как это на .Net:

Try 
    System.IO.File.Delete("c:\test.txt") 
Catch ex As System.IO.FileNotFoundException 
    'Statements 
Catch ex As System.IO.IOException 
    'Statements 
Catch ex As System.Exception 
    'Statements 
End Try 

На VB6:

On Error Goto ProcError 

    ' code that raises an error 

ProcExit: 
    Exit Sub 

ProcError: 
    Select Case Err.Number 
    Case X 
     ' handle X 
    Case Y 
     ' handle Y 
    Case Z 
     ' handle Z 
    Case Else 
     ' default 
     MsgBox Err.Description 
     Resume ProcExit 
    End Select 

После этого, все, что вам нужно, это настроить вывод для каждого конкретного случая.

Answer 2

Вы можете получить одинаковые коды ошибок, используя устаревшую обработку ошибок On Error Goto x в VB.NET. Это позволяет вам проверять Err.Number так же, как и на VB6.

Нет прямого эквивалента при использовании блока обработки ошибок Try Catch Finally, поскольку исключения не имеют связанного с ними номера, и в любом случае нет эквивалента. Вот список для справки: http://www.mobydisk.com/softdev/techinfo/dotnetexceptions.html

Посмотрите на этой странице, которая обсуждает различия между VB6 и VB.NET методов обработки ошибок: https://msdn.microsoft.com/en-us/library/ms973849.aspx

я должен спросить, почему вы должны сделать это в первое место, поскольку я подозреваю, что есть лучшая альтернатива тому, что вы пытаетесь выполнить.