Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ссылки на объекты в Visual Basic 6. / 6 сообщений из 6, страница 1 из 1
30.08.2004, 11:06
    #32670701
MegaDimon
MegaDimon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
Товарищи как можно уничтожить объект имея ссылку на него? Имею примерно следующее:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
 ' класс A [ClassA] 
Public obj as Object

 ' ..... 

Private Sub Class_Initialize()
        Set obj = CreateObject("MyProject.CMyObject")
         ' ....... 
End Sub

 ' ..... 

Public Property Get TakeObj() As CMyObject
        Set TakeObj=obj
End Property


 ' КЛАСС Б [ClassB] 
Public Sub KillObj
        Dim MyClassA as ClassA
        Set MyClassA = new ClassA
        Dim InObj as Object
        Set InObj = MyClassA.TakeObj
        InObj = Nothing            ' уничтожается не сам объект в классе А, а ссылка InObj 
        ...
End Sub

Как сделать чтобы в процедуре KillObj класса Б уничтожался объект obj класса А, а не ссылка на него - InObj ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2004, 11:50
    #32670824
Hibernate
Hibernate
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
в VB объект сам считает ссылки на него. как только количество ссылок равняется ноль, объект уничтожается автоматически.
единственный способ "уничтожить" объект в VB - это обнулить все ссылки на него.
Есть еще шаманский вариант с прямым доступок к этому счетчику - посмотри в "крепком орешке". Но я полностью присоединяюсь к автору, который в этом случае не несет никакой ответственности за (утрируя) возможную смерть твоего компьютера в дыму и пламени :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2004, 11:53
    #32670828
MegaDimon
MegaDimon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
Hibernateв VB объект сам считает ссылки на него. как только количество ссылок равняется ноль, объект уничтожается автоматически.
единственный способ "уничтожить" объект в VB - это обнулить все ссылки на него.
Есть еще шаманский вариант с прямым доступок к этому счетчику - посмотри в "крепком орешке". Но я полностью присоединяюсь к автору, который в этом случае не несет никакой ответственности за (утрируя) возможную смерть твоего компьютера в дыму и пламени :-)

А что за "Крепкий орешек"? Где его найти можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2004, 11:58
    #32670844
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
Крепкий орешек на английском, или в книжном магазине на русском
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2004, 14:21
    #32671281
MegaDimon
MegaDimon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
СПАСИБО ВСЕМ!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:06
    #32675213
Сергей В.
Сергей В.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылки на объекты в Visual Basic 6.
Class A
Код: plaintext
1.
2.
3.
Public Property Set TakeObj(oNew as Object)\
    Set obj = oNew
End Proprty
Class B
Код: plaintext
1.
Set MyClassA.TakeObj = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ссылки на объекты в Visual Basic 6. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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