Программизм

[Линда Кайе]

#post-id: 6818-03-26
#original-date: 27.03.2019 Wed
#original-time: 3:26 AM
#original-day:  6818
#original-host: WinXP Home SP3 (Build 2600)

Неочевидная вещь. «On Error Resume Next» сбрасывает объект Err.

Например:

Option Explicit

On Error Resume Next

MsgBox Err.Number
Err.Raise 51
MsgBox Err.Number

On Error Resume Next

MsgBox Err.Number
Err.Raise 51
MsgBox Err.Number

Код выше не имеет смысла, но смысл появляется, когда всё разнесено по функциям.

Option Explicit

DoIt1

Sub DoIt1()
  On Error Resume Next
  
  MsgBox Err.Number
  Err.Raise 51
  MsgBox Err.Number
  
  DoIt2
End Sub

Sub DoIt2()
  On Error Resume Next
  
  MsgBox Err.Number
  Err.Raise 51
  MsgBox Err.Number
End Sub

Обычно о таких вещах не задумываются, пока в голову не придёт мысль: «А что если Err с ошибкой придёт извне? У меня же нигде нет сброса объекта!» ^^'