Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с собственной dll / 4 сообщений из 4, страница 1 из 1
11.11.2011, 17:16
    #37522683
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с собственной dll
Здравствуйте !!!
Была создана dll компонента для работы с сокетом.
состоявшая из двух классов(CSocketMaster и GTMCmd) и один модуль(modSocketMaster).
Один из классов ссылается на другой

Код: plaintext
1.
2.
3.
4.
Private WithEvents GTMCmd As CSocketMaster

Private Sub Class_Initialize()
  Set GTMCmd = New CSocketMaster
End Sub

Не могу вызвать правильно
Set gtm=CreateObgect(GTMCmd)

В чем моя ошибка ?

Вот так работает без запинок:
Код: plaintext
1.
2.
3.
4.
5.
Public gtm As GTMCmd
Private Sub Form_Load()
Set gtm = New GTMCmd
gtm.Connect "192.168.1.100",  6330 

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 17:43
    #37522761
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с собственной dll
Если обьявляю так

Set m=CreateObject(ObjectsGTM.GTMCmd)

После ObjectsGTM. вылезают все свойства и методы обеих классов,
хотя не должно ничего появляется ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 18:17
    #37522857
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с собственной dll
Кавычки забыл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 18:35
    #37522889
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с собственной dll
Ео мое ... Конец недели и рабочего.
Все бросаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с собственной dll / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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