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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

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

Сообщение GSerg » 23.05.2003 (Пт) 10:17

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


Код: Выделить всё
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
Cyberninja
Cyberninja
Аватара пользователя
 
Сообщения: 891
Зарегистрирован: 25.04.2002 (Чт) 21:20
Откуда: Magnitogorsk, Russia

Сообщение Cyrax » 23.05.2003 (Пт) 10:32

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

а вобще-то
Код: Выделить всё
Err.Raise(Number As Long, [Source], [Description], [HelpFile], [HelpContext])
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.

Welcome to IRC

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 23.05.2003 (Пт) 10:47

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

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

Код: Выделить всё
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
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 23.05.2003 (Пт) 10:52

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

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 23.05.2003 (Пт) 10:57

Отличнейшим образом! 8)
Ента установка влияет и на способ компилирования проекта, как я понял?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Mail.ru [бот], Yandex-бот и гости: 72

    TopList  
cron