Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создаем объект() as Class, в Class есть обект2() as Class2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создаем объект() as Class, в Class есть обект2() as Class2 (Макросы/Sub)
Создаем объект() as Class, в Class есть обект2() as Class2
Ealataur Дата: Среда, 13.09.2017, 10:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код

Sub main()
Dim installers(0) As New Installer
MsgBox installers(0).orders(0).isDone
End Sub
[/vba]

[vba]
Код

' class Installer
Public name As String
Dim orders_(2000) As New Order
Public Property Let orders(ByVal index As Integer, ByVal p As Order)
    orders(index) = p
End Property
Public Property Get orders(ByVal index As Integer) As Order
    orders= orders_(index)
End Property
[/vba]
[vba]
Код

'Class Order
Public numberOrder As Long, isDone As Boolean
[/vba]

Казалось бы, примитивно. Но вылезает ошибка, мол нельзя так использовать
 
Ответить
Сообщение[vba]
Код

Sub main()
Dim installers(0) As New Installer
MsgBox installers(0).orders(0).isDone
End Sub
[/vba]

[vba]
Код

' class Installer
Public name As String
Dim orders_(2000) As New Order
Public Property Let orders(ByVal index As Integer, ByVal p As Order)
    orders(index) = p
End Property
Public Property Get orders(ByVal index As Integer) As Order
    orders= orders_(index)
End Property
[/vba]
[vba]
Код

'Class Order
Public numberOrder As Long, isDone As Boolean
[/vba]

Казалось бы, примитивно. Но вылезает ошибка, мол нельзя так использовать

Автор - Ealataur
Дата добавления - 13.09.2017 в 10:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создаем объект() as Class, в Class есть обект2() as Class2 (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!