Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Про класс / 17 сообщений из 17, страница 1 из 1
03.04.2017, 14:28
    #39432042
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Здравствуйте!

Создаю такой класс, где свойство задается как массив и как тип ссылается на другой класс.

На этой строке вылезает ошибка
Код: vbnet
1.
Объект(i).Меры()(1).Мера = Лист.Cells(i + 1, 2)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2017, 14:29
    #39432043
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Ошибка возникает здесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2017, 14:31
    #39432046
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2017, 14:31
    #39432049
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Где тут упущение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2017, 16:09
    #39432161
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
У Вас нет метода ПРИСВОЕНИЯ значения ОДНОМУ элементу компонента-массива.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2017, 18:31
    #39432277
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
AkinaУ Вас нет метода ПРИСВОЕНИЯ значения ОДНОМУ элементу компонента-массива.
Написал так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Class_Initialize()
ReDim mМеры(1 To 4)
Dim i As Long
For i = 1 To 4
    Set mМеры(i) = New Меры
Next i
End Sub


заработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 12:02
    #39433408
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
В классе Объект добавляю свойство СубОбъект и указываю тип данных как другой класс СубОбъект, но не как массив .
Если запускать, то показывает такую ошибку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 12:03
    #39433410
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Если добавить строку

Код: vbnet
1.
2.
3.
4.
Private Sub Class_Initialize()
...
Set mСубОбъект = New СубОбъект
End Sub


то показывает другую ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 12:19
    #39433415
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Что тут не так? Как правильно написать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 14:08
    #39433489
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
ferzmikkЧто тут не так? Как правильно написать?Если так написать, то работает
Код: vbnet
1.
2.
3.
4.
5.
6.
Private mСубОбъект() As New СубОбъект
...
Private Sub Class_Initialize()
redim mСубОбъект (1 to 1)
Set mСубОбъект(1) = New СубОбъект
End Sub


но получается массив из одного элемента. Но как сделать так, чтобы был не массив?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 15:26
    #39433558
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Вот еще.

В классе СубОбъект вызываю метод Рассчитать, который обращается к данным из другого уровня класса. Свойство Parent отсутствует.

Как это можно сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.04.2017, 15:27
    #39433559
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2017, 14:58
    #39434217
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Представлены два варианта сетеров и гетеров. При первом варианте работает код. При втором варианте нет. Но учитывая такой фактор, что класс ссылается на другой класс как массив, то логичнее прописывать не LET, а SET. Только во втором варианте где указан SET почему то не работает код.

Что упущено? Как правильно написать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2017, 14:59
    #39434218
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Файл прикладываю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2017, 15:53
    #39434288
13-й квартал
13-й квартал
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
ferzmikk,

без внятного ТЗ мало у кого с потоком сознания возникнет желание разобраться.
Не можете/хотите формализовать свои желания (без примесей своего видения реализации), так и будете сам с собой общаться.

По доброму, как говорится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2017, 16:29
    #39434326
ferzmikk
ferzmikk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
Создается класс Объект. У Объекта есть свойство Меры в виде массива с типом Меры, то есть другой класс.
Написал макрос, который строит такой Объект.

Вариант1 . В Объекте задал такие сетеры и гетеры .
Код: vbnet
1.
2.
3.
4.
5.
6.
Property Get Меры() As Меры()
     Меры = mМеры
End Property
Property Let Меры(Name_Меры() As Меры)
    mМеры = Name_Меры
End Property


При первом варианте код работает нормально.


Вариант2 . Поскольку Меры это класс, а не примитивный тип данных, то правильнее указывать не LET , а SET .
Код: vbnet
1.
2.
3.
4.
5.
6.
Property Get Меры() As Меры()
     Set Меры = mМеры
End Property
Property Set Меры(Name_Меры() As Меры)
    Set mМеры = Name_Меры
End Property


При втором варианте код не работает.

Почему не работает? Как правильно написать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2017, 16:45
    #39434333
13-й квартал
13-й квартал
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про класс
ferzmikk,

1) Вы повторили то, что уже говорили. Это не ТЗ.
2) Вы спрашиваете "как правильно", но никто из нетелепатов не знает тот самый идеальный случай, с которым надо сравнивать, он не описан. Невозможно сравнить, невозможно сказать, что неправильно.
3) "Массив" - это деталь реализации (позволю самоцитирование: "примесь своего видения реализации"). Массив как структура данных обладает вполне конкретными свойствами: время выполнения операций по оценке "О большое", непрерывность в памяти, наличие итератора. Для этой задачи все эти свойства (и именно такие) нужны?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Про класс / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 151ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172734]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 14ms
total:  151ms
x
x
Закрыть


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