Консультация № 123697
18.02.2008, 17:10
0.00 руб.
0 2 2
Здравствуйте!

Пожалуйста, подскажите, как сделать конструктор, деструктор классов на vb6. И возможно ли такое в принципе?

sub new() ругается

sub finalize() не срабатывает

А ещё меня интересует наследование классов, как я понял, у microsoft и на это тоже свой вариант? impliment или что там,а главное где это писать и что это мне даст?

Обсуждение

Неизвестный
18.02.2008, 20:47
общий
это ответ
Здравствуйте, Талипов А Н!
http://ifolder.ru/4469396 - VB6.0_знакомство.rar ~2Mb
Евгений.
Неизвестный
19.02.2008, 13:30
общий
это ответ
Здравствуйте, Талипов А Н!
вы правильно все поняли

//Цитата
· Initialize - это событие возникает в момент создания (появления) нового объекта класса при работе приложения.
· Terminate - это событие возникает в момент уничтожения объекта.

Это похоже на нужное, но вот как мне теперь в классе создать процедуры , которые будут отрабатывать по этим событиям? Имя-то объекта я не знаю?
//Цитата

ну так вот в теле класса создаете процедуру следующеко вида

Private Sub Class_Initialize()
...
начальная инициализация переменных класса
...
End Sub

далее когда вы будете создавать класс например таким оброзом

dim clsMyClass1 as New clsMyClass

далее вызовется процедура Class_Initialize которая и проинициализирует переменные класса

процедуру следующеко вида созданная в классе позволит произвести процедуру "уничтожения" класса

Private Sub Class_Terminate()
Set mvarParent = Nothing
End Sub

она будет автоматически вызвана в следующем условии
Set clsMyClass1 = Nothing
Форма ответа