Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вызов события на обект объявленный в тексте! / 4 сообщений из 4, страница 1 из 1
17.03.2004, 15:12
    #32445586
Nir
Nir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов события на обект объявленный в тексте!
Добрый день!

Вопрос такой.

Прдположим имею:

Код: plaintext
Public Winsock1 As New Winsock

дальше делаю:
Код: plaintext
1.
    Winsock1.Connect Trim$(txtHost),  25 
    m_State = MAIL_CONNECT

а вот дальше должно по идее сработать событие
Код: plaintext
Private Sub Winsock1_DataArrival()

Только оно не срабатывает, как мне сказать объекту Winsock1 что это его событие., потому как я чевсвую что он просто не знает что это фенкция обработка его события.

Надеюсь кто-нибудь, что-нибудь занает, поделитесь плз инфой!
...
Рейтинг: 0 / 0
17.03.2004, 15:41
    #32445673
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов события на обект объявленный в тексте!
Создай модуль класса и в нем вставь:
Код: plaintext
Private WithEvents Winsock1 As New Winsock
...
Рейтинг: 0 / 0
17.03.2004, 16:01
    #32445730
Nir
Nir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов события на обект объявленный в тексте!
На New ругаеться а сделать какой-нибудь Set в тексте программы не дает!
А без объекта тож соответственно не работает вот так!

Может я конечно чего недопонял, подскажите!
...
Рейтинг: 0 / 0
17.03.2004, 20:51
    #32446221
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов события на обект объявленный в тексте!
И правильно ругается - в декларации класса New не используется.
Без книжки тут трудно продраться; если нет классики по VB, читай MSDN.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вызов события на обект объявленный в тексте! / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]