Проверка наличия объекта

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

Проверка наличия объекта

Сообщение Taras2 » 06.10.2003 (Пн) 11:48

Как проверить, загружен ли объект, например:

...
...
' Сдесь я загружаю объект
load Winsock(i)
...
...
...
' Сдесь я выгружаю объект
Unload Winsock(i)

Гдето в другом месте, мне нужно узнать, существует ли объект Winsock(i). Подскажите, как это сделать?

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 06.10.2003 (Пн) 13:07

Ну может быть как то так:

Код: Выделить всё
if not Winsock(i) is nothing then msgbox "Winsock(i) загружен"

Taras2
Обычный пользователь
Обычный пользователь
 
Сообщения: 82
Зарегистрирован: 20.06.2003 (Пт) 12:13

Сообщение Taras2 » 06.10.2003 (Пн) 18:27

RayShade писал(а):Ну может быть как то так:
Код: Выделить всё
if not Winsock(i) is nothing then msgbox "Winsock(i) загружен"

Не, не получается.

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 06.10.2003 (Пн) 19:55

Вот.

Код: Выделить всё
Function Exists() as Boolean
On Error GoTo err_

WinSock(i).Some_Method_to_Call(Params)

exists = true

Exit Fucntion
err_:

exists = false

End Function
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali


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

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList