Видимость Event-а, созданного в классе

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Видимость Event-а, созданного в классе

Сообщение Yurich » 06.03.2005 (Вс) 21:59

В классе
Public Event MyEvent()
и ессно в требуемых местах
RaiseEvent MyEvent

Что нужно приварить к проекту, чтобы этот Event был виден и в ДизайнТайм и в РанТайм
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Re: Видимость Event-а, созданного в классе

Сообщение tyomitch » 06.03.2005 (Вс) 23:46

Yurich писал(а):В классе
Public Event MyEvent()
и ессно в требуемых местах
RaiseEvent MyEvent

Что нужно приварить к проекту, чтобы этот Event был виден и в ДизайнТайм и в РанТайм

Ничего. Все эвенты всегда видны и в ДизайнТайм и в РанТайм. А у тебя не так, что ли?
Изображение

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Re: Видимость Event-а, созданного в классе

Сообщение Yurich » 07.03.2005 (Пн) 0:26

tyomitch писал(а):Ничего. Все эвенты всегда видны и в ДизайнТайм и в РанТайм. А у тебя не так, что ли?

Иначе я б не полез сюда!
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

SHURUP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 440
Зарегистрирован: 15.09.2004 (Ср) 14:24
Откуда: Ирпень, Украина

Сообщение SHURUP » 07.03.2005 (Пн) 0:33

Обьявляй через WithEvents
Код: Выделить всё
Dim WithEvents ss As Class1

Private Sub ss_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Сообщение Yurich » 07.03.2005 (Пн) 0:47

Явилось!!! Увиделось!!!
Шуруп - ГУД!!!
Последний (надеюсь) тут вопрос: А если эвентов 2 и более?
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 07.03.2005 (Пн) 1:06

Yurich писал(а):Явилось!!! Увиделось!!!
Шуруп - ГУД!!!
Последний (надеюсь) тут вопрос: А если эвентов 2 и более?

Я, наверное, опять торможу... Но что меняется-то от того, что их много?
Изображение

SHURUP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 440
Зарегистрирован: 15.09.2004 (Ср) 14:24
Откуда: Ирпень, Украина

Сообщение SHURUP » 07.03.2005 (Пн) 1:15

Я наверное, тоже торможу, ибо согласен с tyomitch-ем.
Yurich, уточни формулировку!
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Сообщение Yurich » 07.03.2005 (Пн) 1:18

tyomitch писал(а):Я, наверное, опять торможу... Но что меняется-то от того, что их много?

Dim WithEvents aa As Class1
Dim WithEvents ss As Class1
Просто возникло сомнение. Ссылка будет на тот же класс. Как VB поймет, какой из эвентов я хочу обработать?
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 07.03.2005 (Пн) 1:25

Yurich писал(а):
tyomitch писал(а):Я, наверное, опять торможу... Но что меняется-то от того, что их много?

Dim WithEvents aa As Class1
Dim WithEvents ss As Class1
Просто возникло сомнение. Ссылка будет на тот же класс. Как VB поймет, какой из эвентов я хочу обработать?

По тому, что в названии обработчика будет идти после знака подчёркивания :-)
Изображение

SHURUP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 440
Зарегистрирован: 15.09.2004 (Ср) 14:24
Откуда: Ирпень, Украина

Сообщение SHURUP » 07.03.2005 (Пн) 1:26

Код: Выделить всё
Dim WithEvents ss As Class1
Dim WithEvents aa As Class1

Private Sub ss_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub

Private Sub aa_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub

Ссылка то на тот-же класс, но объекты то разные, вот и евенты у них будут разные у каждого свои.
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...

Yurich
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 675
Зарегистрирован: 05.03.2003 (Ср) 3:43
Откуда: DONBASS/Gorlovka

Сообщение Yurich » 07.03.2005 (Пн) 1:28

tyomitch писал(а):По тому, что в названии обработчика будет идти после знака подчёркивания :-)

Сенкс!!! Зарыто.
- Какой треугольник не подвластен законам геометрии?
- У которого все углы тупые!


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

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

Сейчас этот форум просматривают: SemrushBot и гости: 118

    TopList  
cron