_=_Контролирование ошибок_=_

[Smith68]

Вобщем нада шоб при возникновенни какой-либо ошибки выполнялось оперделенное действие.

Ну например: если ошибка имеет код "400006" то выскакивает какое-нибудь сообщени, а если Run-time error с номером "20008" то конец программы.

Короче полный контроль над ошибками.

Реально ли это?

З.Ы.

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

On Error Resume Next

не предлагать.

[BV]

Оцени класс ErrObject.

[Smith68]

Извините, но не в службу, а в дружбу: маленький примерчик или подсказку...

[BV]

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

Private Sub Form_Load()
    On Error GoTo hError:

    Me.Left = "text"
   
hError:
    Debug.Print Err.Number; Err.Description
End Sub

[tyomitch]

On Error Statement Example

This example first uses the On Error GoTo statement to specify the location of an error-handling routine within a procedure. In the example, an attempt to delete an open file generates error number 55. The error is handled in the error-handling routine, and control is then returned to the statement that caused the error. The On Error GoTo 0 statement turns off error trapping. Then the On Error Resume Next statement is used to defer error trapping so that the context for the error generated by the next statement can be known for certain. Note that Err.Clear is used to clear the Err object's properties after the error is handled.

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

Sub OnErrorStatementDemo()
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   Open "TESTFILE" For Output As #1   ' Open file for output.
   Kill "TESTFILE"   ' Attempt to delete open
            ' file.
   On Error Goto 0   ' Turn off error trapping.
   On Error Resume Next   ' Defer error trapping.
   ObjectRef = GetObject("MyWord.Basic")   ' Try to start nonexistent
            ' object, then test for
'Check for likely Automation errors.
   If Err.Number = 440 Or Err.Number = 432 Then
      ' Tell user what happened. Then clear the Err object.
      Msg = "There was an error attempting to open the Automation object!"
      MsgBox Msg, , "Deferred Error Test"
      Err.Clear   ' Clear Err object fields
   End If   
Exit Sub      ' Exit to avoid handler.
ErrorHandler:   ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 55   ' "File already open" error.
         Close #1   ' Close open file.
      Case Else
         ' Handle other situations here...
   End Select
   Resume   ' Resume execution at same line
            ' that caused the error.
End Sub


[Хакер]

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


Sub SomeSubWithError()
On Error Goto ErrorHandler

Open "Z:\XXX\YYY\ZZZ.007" For Input as #1
Close #1

Dim E As Integer
E = 32769

Exit Sub
ErrorHandler:
If Error.Number= 53 Then
MsgBox "Кто-то что-то открыл, чего на самом деле нет!"

End If

If Error.Number = 6 Then
msgbox "Кто-то присвоил Integer переменной значение больше 32767"
End If

End Sub


______________________
Добавлено: Вот так... пока писал уже помогли...

[Smith68]

хе-хе %)

[Amed]

Ничего смешного нет.