Даже ошибки не получаются!

[GSerg]

Пишу класс. И юзаю его, из модуля формы.

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

Private Sub Form_Load()
  on error goto 1
  dim a as new myclass
  a.method
  exit sub
1
  MsgBox "Доблестно игнорируем ошибку!"
End Sub

Команда a.method выполняется неправильно, так надо... Класс генерирует юзерскую ошибку, это тоже правильно... Но генерирует он её, собака, в своём теле, а мне нужно, чтобы ошибка узрелась и обработалась обработчиком в вызывающей процедуре, т.е. в Form_Load, а дотуда дело не доходит...

[Cyrax]

а код класса подсмотреть? можно?

а вобще-то

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

Err.Raise(Number As Long, [Source], [Description], [HelpFile], [HelpContext])

[GSerg]

Ну подсказал!
А как я, по-твоему, юзерские ошибки генерю?

Код класса дома, а я нет
Примерно такое:

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

Private sub Method
  Dim tmp as long
 
  tmp=Getlasterror 'Здесь апишка код ошибки говорит, не помню точно её имя
  if tmp=0 then
    exit sub 'Нет ошибок
  else
    err.raise tmp,"MyClass","Получи, гад!"
  end if
End sub


Так вот ошибка выделяется жёлтым непосредственно в коде класса, а мне оно не надо... Ну, в общем постил ужё...

[alibek]

Зайди в меню "Tools" -> "Options" и на вкладке "General" посмотри секцию "Error Trapping". Там наверное стоит "Break in Class module".

[GSerg]

Отличнейшим образом!
Ента установка влияет и на способ компилирования проекта, как я понял?