Программирование
Веб программирование

Структурная обработка ошибок в vb.net, часть II

 
 

Как я и обещал, сейчас расскажу про конструкцию On Error Resume и объект Err.
Хотя эта конструкция уже давно устарела, ее все равно в некоторых случаях удобно использовать(во всяком случае мне, т.к. я к ней очень привык). Сейчас мы сделаем программу такую же как и в предыдущем шаге, но с конструкцией On Error Resume Next и объектом Err. На форме размести кнопку и текст. поле. Код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Hislo As Integer ' Объявляем переменную Hislo как INTEGER

On Error Resume Next ' Если в следующей строке происходит ошибка, то она игнорируется(независимо от ошибки), и номер ошибки записывается в свойство Number, объекта Err.
Hislo = TextBox1.Text * 3 ' Умножаем число введеное в текст. поле на 3
If Err.Number = 13 Then ' Если номер ошибки 13(номер можно узнать так: msgbox(Err.Number)), то сообщаем об ошибке.
MsgBox("Введен не допустимый символ!", 16, "Ошибка")
Else ' Если номер ошибки не 13, то выдаем сообщение:
MsgBox(Hislo)
End If
End Sub
End Class 

Вот так вот древние люди ошибки исправляли :-).
А если серьезно, то скорее всего в следующих версиях VB.Net эту конструкцию и объект Err уберут, хотя возможно я ошибаюсь.


Есть вопросы? Спроси на нашем форуме!!
Сашка [27.05.2011 23:19]

Спасибо за урок! Мне очень помог! Низкий вам поклон!



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.