VBNet - Форум - Class'ная ошибка VB?

Вопрос: Class'ная ошибка VB? Добавлено: 10.01.06 00:41

Автор вопроса: Surok

'FORM
-----------------------
Option Explicit

Private TEST As New class_TEST
Private WithEvents TEST_EVNT As class_TEST

Private Sub Command1_Click()
TEST.DelaemCHTOTO 10
End Sub

Private Sub TEST_EVNT_EVNT(blOps As Boolean)
If blOps Then MsgBox "????????????"
End Sub

'class_TEST
---------------------------------
Option Explicit

Event EVNT(blOps As Boolean)

Public Sub DelaemCHTOTO(ByVal val As Byte)
MsgBox "Working....."

RaiseEvent EVNT(True)
End Sub

Не срабатывет EVNT...????? в чем баг?

Ответить

Ответы Всего ответов: 10

Номер ответа: 1 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #1	Добавлено: 10.01.06 05:20
	А как, по-твоему, связаны переменные TEST и TEST_EVNT? Ответить

Номер ответа: 2 Автор ответа: Surok Вопросов: 36 Ответов: 106	Профиль \| \| #2	Добавлено: 11.01.06 15:36
	А как они связаны у меня? не связаны?.... хм..по идее должно быть Private Withevents TEST as class_TEST но редакктор кричит что одинаковые имена... Ответить

Номер ответа: 3 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #3	Добавлено: 11.01.06 16:07
	Потому что одно из них лишнее, наверное? Ответить

Номер ответа: 4 Автор ответа: Surok Вопросов: 36 Ответов: 106	Профиль \| \| #4	Добавлено: 15.01.06 03:03
	УВАЖАЕМЫЙ GSERG, ведь можно просто признать что баг все-таки есть...но можно продолжать тыкать фейсомобтейбл... я что-то не так написал в коде? ----------------------- п.с. у меня проект весь реализовывать по-другому придется если евент так не работает.... Ответить

Номер ответа: 5 Автор ответа: Victor ICQ: 345743490 Вопросов: 42 Ответов: 385	Web-сайт: vt-dbnz.narod.ru Профиль \| \| #5	Добавлено: 15.01.06 03:14
	Private TEST As New class_TEST Это удали. Private Sub Command1_Click() set TEST = new class_test TEST.DelaemCHTOTO 10 End Sub Так должно работать. Ответить

Номер ответа: 6 Автор ответа: Surok Вопросов: 36 Ответов: 106	Профиль \| \| #6	Добавлено: 15.01.06 04:14
	to Victor: ок...сспасибо...так работает но. придется перед каждым вызовом в каждой процедуре обьявлять класс а потом убивать его? Ответить

Номер ответа: 7 Автор ответа: Surok Вопросов: 36 Ответов: 106	Профиль \| \| #7	Добавлено: 15.01.06 04:20
	OK....признаюсь.....последнее - чущь спросил.. спасибо victor.. ------------ тема закрыта Ответить

Номер ответа: 8 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #8	Добавлено: 15.01.06 07:27
	УВАЖАЕМЫЙ GSERG, ведь можно просто признать что баг все-таки есть...но можно продолжать тыкать фейсомобтейбл... Не просто можно, но и нужно. Чтобы решение, найденное тобой самостоятельно, навсегда в голове отпечаталось. В отличие от решения, преподнесённого на блюдечке. Ответить

Номер ответа: 9 Автор ответа: Surok Вопросов: 36 Ответов: 106	Профиль \| \| #9	Добавлено: 15.01.06 09:28
	Чтобы решение, найденное тобой самостоятельно, навсегда в голове отпечаталось. В отличие от решения, преподнесённого на блюдечке. to GSERG: все это верно, но я сюда советоватся прихожу, а не жизни людей учить знакома ситуация когда бессонными ночами и днями торопишься выполнить важный проэкт, мозг кипит, и какой-нибудь баг стопорит работу? попробуйте в такой ситуации все оставшееся время тратить на выяснение причин тупика... на будущее советую приписывать в начале подобных сообщений:"ВНИМАНИЕ:УЧУ ЖИЗНИ".. и подробный алгоритм действий.... =x Ответить

Номер ответа: 10 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #10	Добавлено: 15.01.06 10:07
	знакома ситуация когда бессонными ночами и днями торопишься выполнить важный проэкт, мозг кипит, и какой-нибудь баг стопорит работу? попробуйте в такой ситуации все оставшееся время тратить на выяснение причин тупика... Нды?.. Если бы ты где-то в коде упустил какой-нибудь ByVal или постфикс & не поставил, из-за чего ничего не работало бы - можно было было бы просто подсказать. Но из приведённого тобой кода понятно, что ты вообще не понимаешь основ работы с объектами и обработки их событий. И потом у тебя возникнут очередные вопросы, приводящие к кипению мозга, но являющиеся RTFMовскими по сути. Поэтому мне, как человеку, которому не всё равно, интереснее, чтобы ты умел ловить рыбу, а не просил каждый день поймать тебе новую. При этом никого я жизни не учил, не учу и не собираюсь, ибо не моя это задача. Просто тем, кто считает каждодневный спрос на рыбу занятием более приятным, я говорю "Ок, нет вопросов" и ставлю их в игнор. Ответить

Страница: 1 |