Обработка ошибок

вызвать исключение
Catch - Текст, помещенный в этот раздел, выполняется только

при возникновении исключения.
Finally - Текст внутри этого раздела выполняется после выполнения текста в разделе Try и/или разделе Catch. Обычно в этот раздел помещаются операторы, выполняющие высвобождение ресурсов, т.е. текст, который должен выполниться всегда, независимо от того, возникало ли исключение

никаких исключений, текст раздела Catch не выполнялся.
3. После окончания выполнения

операторов в разделе Try выполнился текст раздела Finally.
4. После выполнения всех операторов в разделе Finally управление было передано оператору, следующему за End Try.

на объект исключения.
Используя этот объект, можно получить информацию об исключении.
Catch

objException As Exception - обрабатывает почти все исключения

& " is " & lngAnswer)
Catch objException As System.OverflowException
MsgBox(«введите что-нибудь

в textbox")
Catch objException As Exception
MsgBox(“перехват других исключений")
End Try

каждом возникновении ошибки времени исполнения сохраняется подробная информация по этой

ошибке.
Свойства объекта Err:
Err.Number содержит номер самой последней из ошибок времени исполнения,
Err.Description содержит краткое сообщение об этой ошибке.
Err.Clear  этот метод стирает информацию о предыдущей ошибке
Err.Raise генерирует ошибку

When Err.Number = 61
MsgBox("Ошибка: Диск переполнен")
End Try

[buttons], [title])
Promt — это текст, который будет отображаться в окне

сообщения,
buttons определяет, какие будут кнопки в окне и какая пиктограмма,
t i t l e — что будет написано в заголовке окна.
Класс MessageBox.show(promt,[title,buttons,icon,defaultButton,option])
defaultButton- какая кнопка активна
Option – расположение текста в окне

какая была нажата кнопка, основано на использовании одной из логических

конструкций выбора. Например:
If MsgBox("Хотите выполнить действия X?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
' выполнение Х происходит здесь’
End I f

"close", MessageBoxButtons.OKCancel, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) = DialogResult.OK Then Me.Close()
End if

e As System.Windows.Forms. FormClosingEventArgs) Handles Me.FormClosing

e.Cancel = True
If MsgBox("закрыть?") =

MsgBoxResult.Ok Then _ e.Cancel = False

End Sub

е. что должно произойти при нажатии той или иной кнопки.
указать,

каким образом вызывается форма (ShowDialog).
форма будет отображена модально
если пользователь щелкает по кнопке, у которой свойство DialogResult выставлено на возвращение некоторой величины, то форма сразу же закрывается, а возвращенная величина считается результатом вызова ShowDialog

clicked Cancel.")
End If
objCustomDialogBox = Nothing

InputBox () для получения данных от пользователя.

InputBox(promt, [ title ]

, [defaultresponce])
defaultresponce текст, который будет появляться в окне ввода по умолчанию.
strResult = InputBox("How many eggs do you want to order?", "Order eggs", "12")

при нажатии клавиши (нажать и отпустить),
KeyUp - Происходит, если

отпустить нажатую клавишу
В событиях клавиатуры параметр е содержит данные о том, какая была нажата клавиша.
Информацию о том, какая была нажата клавиша, можно узнать из свойств KeyChar параметра е.

System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.A Then Label1.BackColor =

Color.Blue
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
a = Label1.Left
If e.KeyChar = "d" Then a = a + 10
Label1.Left = a
End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.B Then Label1.Text = "hhjhj"
End Sub

Handles Me.KeyPress

a = Label1.Left

If e.KeyChar = "d" Then a = a + 10
Label1.Left = a

If e.KeyChar = "k" Then
e.Handled = True
Label1.BackColor = Color.Brown
End If

End Sub

данное нажатие клавиши.
перехватывает ввод всех букв "К", независимо от их

регистра:

If e.KeyChar.ToLower(e.KeyChar) = "k" Then e.Handled = True
End If

System.Windows.Forms. MouseEventArgs) Handles Me.MouseMove
If e.Button =

MouseButtons.Right Then
Label1.Left = e.X
Label1.Top = e.Y
End If

End Sub

x1 = e.X

y1 = e.Y
I = True
End If
End Sub
Private Sub Form1_MouseUp()
i = False
End Sub

If i Then

x2 = e.X
y2 = e.Y
graf.DrawLine(New Pen(Color.Blue, 3), x1, _ y1, x2, y2)
x1 = x2
y1 = y2
End If

End Sub