Есть модуль класса реализующий Common Dialog через API.
Если Error/Cancel=True то при "отмене"-Class генерирует ошибку 32755.
В коде формы обработчик.
Но он не срабатывает,точнее до него не доходит управление.
Можно ли исправить ситуацию?
- Код: Выделить всё
Option Explicit
Dim comdlg As Object
Private Sub Form_Load()
Set comdlg = New CommonDlg
On Error GoTo ErrH1
comdlg.CancelError = True
comdlg.ShowOpen
Exit Sub
ErrH1:
MsgBox "Error"
Resume Next
End Sub