Перехват исключительных ситуаций и обработка ошибок. - презентация

1 Перехват исключительных ситуаций и обработка ошибок

2 Типы ошибок Design-time Runtime Logic

3 Cтруктурные обработчики ошибок Try…Catch

4 Private Sub Button1_Click(…..) Dim s As String s = "answer" Button1.Text = s.Substring(10, 1) End Sub

5 Try Операторы, которые могут вызвать ошибку времени исполнения Catch Операторы, которые выполняются, если ошибка времени исполнения происходит Finally Дополнительные операторы, выполняемые независимо от возникновения ошибки End Try

6 Private Sub Button1_Click(…..) Dim s As String s = "answer Button1.Text = s.Substring(10, 1) End Sub Try Catch Button1.Text = "error" End Try

7 Private Sub Button1_Click(…..) Dim s As String s = "answer Button1.Text = s.Substring(10, 1) End Sub Try Catch Button1.Text = "error" End Try ex As Exception MsgBox(ex.Message)

8 Private Sub Button1_Click(…) Try Button1.Text = lbStates.SelectedItem.ToString Catch ex As System.NullReferenceException MsgBox("Please select an item first") Catch ex As Exception MsgBox("Some other error: " & ex.Message) End Try End Sub

9 Использование блока Finally Private Sub Button1_Click(…) Try PictureBox1.Image = System.Drawing.Bitmap.FromFile("a:\File open.bmp") Catch MsgBox("Пожалуйста, вставьте дискету в дисковод A!") Finally MsgBox("Обработка ошибок выполнена") End Try

10 Обработка исключительных ситуаций в базах данных Exception SqlExceptionOleDbException Message NativeError SQLState … Message Number Procedure …

11 Try ' код для доступа к данным Catch ex As SqlException ' обработка исключения End Try