| Вопрос: VB6 Объект в объекте | Добавлено: 19.12.05 07:08 |
Автор вопроса:  Igor
|
|
Кто знает подскажите,как создать объект в объекте.
Если я создаю два объекта,допустим КОРОБОК и СПИЧКА(два файла *.cls),то эти объекты никак не связаны. А мне нужно создать объект,что бы обращаться к нему примерно так... DIM K1 AS NEW КОРОБОК DIM S1 AS СПИЧКА DIM S2 AS СПИЧКА ............... DIM S(n) AS СПИЧКА Sub Main() Set S1=NEW K1.СПИЧКА Set S2=NEW K1.СПИЧКА ................ Set S(n)=NEW K1.СПИЧКА |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 19.12.05 10:56 |
|
Класс СПИЧКА
'Любая требуха Класс КОРОБОК Option Explicit Private mvarclsСпичка As New Collection Public Property Get Спичка() As Спичка Set Спичка = New Спичка mvarclsСпичка.Add Спичка End Property Форма Option Explicit Dim K1 As New Коробок Private Sub Form_Load() Dim S1 As Спичка, S2 As Спичка Set S1 = K1.Спичка Set S2 = K1.Спичка End Sub И нефиг использовать русские имена! |
||
|
Номер ответа: 2 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 19.12.05 11:14 |
Последня фраза - супер!  )))))))
|
||
Страница: 1 |