Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Collection и user-defined type
 
#1
28.04.2011 02:16:05
Нужно создать коллекцию из UDT элементов  
 
Type HistoryPeak  
...  
End Type  
 
Dim HPeakCollection As New Collection  
 
и добавить новые UDT элементы.  
Планировалось как-то так  
 
   For Each ...  
       Dim HPeak As New HistoryPeak  
       HPeakCollection.Add HPeak  
       Set HPeak = Nothing  
   Next...  
 
но не работает.  
Оказывается Dim...New и Set...New используются только с классами.  
Как создать новые UDT элементы для включения в коллекцию.  
Или это противоречит идеологии VBA и нужно отказаться от UDT и определять новые элементы через класс.
 
 
 
#2
28.04.2011 03:03:22
1. Переменная пользовательского типа объявляется как обычная - без New.    
2. В коллекцию можно запихнуть всё что угодно, кроме переменных пользовательского типа.  
Вместо коллекции создайте массив ППТ.
 
 
 
#3
28.04.2011 09:48:06
udt определять в классе, создавать коллекцию классов..
Живи и дай жить..
 
 
 
#4
28.04.2011 10:28:51
Примерчик (модуль modIteration).
 
 
 
#5
28.04.2011 10:29:23
Предыдущий пост - мой. :-)
There is no knowledge that is not power
 
 
 
#6
28.04.2011 10:59:12
или чуточку проще
Живи и дай жить..
 
 
 
#7
28.04.2011 11:12:50
{quote}{login=слэн}{date=28.04.2011 10:59}{thema=}{post}или чуточку проще{/post}{/quote}  
А в чём состоит "простота"? У тебя - Collection, а у меня - HistoryPeakCollection. Это одно и то же?
There is no knowledge that is not power
 
 
 
#8
28.04.2011 17:58:06
Спасибо! В целом ситуация проясняется, но возникла дополнительная проблема.  
ВБ не дает вставить в класс массив фиксированной размерности.  
Как можно обойти это ограничение?
 
 
 
#9
28.04.2011 19:06:14
А что ты хочешь сделать?
There is no knowledge that is not power
 
 
 
#10
28.04.2011 19:50:52
Планировалась такая структура данных  
 
Type HistoryPeak  
   Dim InstrName As String  
   Dim max(0 To 3) As Double  
   Dim min(0 To 3) As Double  
End Type  
 
для определения значимых локальных пиков в различных последовательностях InstrName за определенные интервалы времени. Т.к. количество таких структур заранее не известно, я хотел запоминать их в коллекции для дальнейшей обработки.
 
 
 
#11
28.04.2011 19:53:19
Сорри  
 
Type HistoryPeak  
   InstrName As String  
   max(0 To 3) As Double  
   min(0 To 3) As Double  
End Type
 
 
 
#12
29.04.2011 09:53:57
А чем тебя класс не устраивает?
There is no knowledge that is not power
 
 
 
#13
29.04.2011 10:47:51
{quote}{login=Yorik}{date=28.04.2011 05:58}{thema=Re: Re: }{post}  
ВБ не дает вставить в класс массив фиксированной размерности.  
Как можно обойти это ограничение?{/post}{/quote}  
Johny, с Вашего позволения:
 
 
 
#14
29.04.2011 10:49:00
Файл:
 
 
 
#15
29.04.2011 12:20:35
{quote}{login=С.М.}{date=29.04.2011 10:47}{thema=Re: }{post}{quote}{login=Yorik}{date=28.04.2011 05:58}{thema=Re: Re: }{post}  
ВБ не дает вставить в класс массив фиксированной размерности.  
Как можно обойти это ограничение?{/post}{/quote}  
Johny, с Вашего позволения:{/post}{/quote}  
Что за чушь???? Смотри файл.
 
 
 
#16
29.04.2011 13:11:45
Johny, а если хочется загнать Position в массив  
'  
Sub Test0()  
   Dim hp As New HistoryPeak  
   Dim hp_arr  
   hp_arr = hp.Position  
End Sub  
???
 
 
 
#17
29.04.2011 13:28:08
{quote}{login=С.М.}{date=29.04.2011 01:11}{thema=}{post}Johny, а если хочется загнать Position в массив  
'  
Sub Test0()  
   Dim hp As New HistoryPeak  
   Dim hp_arr  
   hp_arr = hp.Position  
End Sub  
???{/post}{/quote}  
 
Ну и что значит hp_arr = hp.Position? Если ты так пишешь - значит, не понимаешь, как работает свойство с параметрами. Если надо вернуть массив с Position'ами, то нужно просто добавить новое read-only свойство. Ну вот так, например:  
 
Property Get Positions() As Integer()  
   Positions = arr  
End Property  
 
И проверка:  
MsgBox "Верхняя граница массива" & UBound(hp.Positions)
 
 
 
#18
29.04.2011 13:33:33
> Если ТЫ так пишешь - значит, не понимаешь  
Re:  
Johny, мы с Вами водку вместе не пили.
 
 
 
#19
29.04.2011 13:45:30
Если Вы так пишете - значит, не понимаете, как работает свойство с параметрами.  
 
Property Get Position(ByVal i As Integer) As Integer  
   Position = arr(i)  
End Property  
Property Let Position(ByVal i As Integer, ByVal iVal As Integer)  
   arr(i) = iVal  
End Property  
 
В Propert Let "i" - это параметр (для массива arr), а "iVal" - это значение, которое мы присваиваем в коде: hp.Position(1) = 123. То есть iVal = 123.
There is no knowledge that is not power
 
 
 
#20
29.04.2011 13:52:47
{quote}{login=С.М.}{date=29.04.2011 01:33}{thema= }{post}> Если ТЫ так пишешь - значит, не понимаешь  
Re:  
Johny, мы с Вами водку вместе не пили.{/post}{/quote}  
И вообщея - я не пью :-)
There is no knowledge that is not power
 
 
 
Страницы: 1
Читают тему
Наверх