ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как пользоваться collection?
21 сообщений из 21, страница 1 из 1
как пользоваться collection?
    #35949464
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
подскажите, пожалуйста, как пользоваться collection?
Код: plaintext
1.
Dim N1 As Collection
N1.Add sh.Cells(NRow, NCol), CStr(NRow) & CStr(NCol) '(Item, [Key], [Before], [After])
А можно добавлять элементы для элементов? или как их отличать друг от друга при выводе?
...
Рейтинг: 0 / 0
23.04.2009, 12:35
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35949686
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
может поможет.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Sub Command1_Click()

On Error GoTo errhandle

Dim col As New Collection

col.Add "First", "K"
col.Add "Second", "K1"
col.Add "Third", "K2"

MsgBox col.Item("K")
MsgBox col.Item("K1")
MsgBox col.Item("K2")

MsgBox col.Item( 1 )
MsgBox col.Item( 2 )
MsgBox col.Item( 3 )

Exit Sub

errhandle:

   MsgBox Err.Description, vbCritical, "Error"

End Sub
End Sub
...
Рейтинг: 0 / 0
23.04.2009, 13:24
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35950285
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
возможно, я спрашиваю чушь , но можно ли для элемента First добавить элементы First1 и First2?
...
Рейтинг: 0 / 0
23.04.2009, 15:47
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35950322
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
PlanB,

Можно. Лучше используй для этого Dictionary, а не Collection. Просто Item у тебя будет тоже Dictionary, но другим. Dictionary поудобней будет.
...
Рейтинг: 0 / 0
23.04.2009, 15:56
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35950324
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
А кто вам мешает в коллекцию добавлять другую коллекцию?

Но, по-моему, если вы хотите сделать дерево, то нужно воспользоваться чем-то другим.
Может быть XML подойдет?
...
Рейтинг: 0 / 0
23.04.2009, 15:56
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35950806
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Господа, а можно пример?
мне надо макросом подготовить последовательное выведение данных (пример в приложении).
есть идеи по поводу реализации?
...
Рейтинг: 0 / 0
23.04.2009, 17:53
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35950849
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
FAndrewА кто вам мешает в коллекцию добавлять другую коллекцию?Незнание вба мешает
...
Рейтинг: 0 / 0
23.04.2009, 18:04
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35972122
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
VladConnPlanB,

Можно. Лучше используй для этого Dictionary, а не Collection. Просто Item у тебя будет тоже Dictionary, но другим. Dictionary поудобней будет.В Dictionary есть встроенная сортировка? иначе почему тогда "словарь". почему Dictionary удобнее, чем Collection?
СпасибО!
...
Рейтинг: 0 / 0
06.05.2009, 15:18
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35972874
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
PlanB,

В VB6 в словаре нет сортировки, но зато есть разные удобные методы и свойства, которых нет в коллекции, например, такие методы как Exists и RemoveAll.
...
Рейтинг: 0 / 0
06.05.2009, 18:42
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35972899
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
PlanB,

Словари считаются быстрее коллекций...
...
Рейтинг: 0 / 0
06.05.2009, 18:56
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35972918
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
PlanB,

http://www.cpearson.com/excel/CollectionsAndDictionaries.htm
http://www.4guysfromrolla.com/webtech/062701-1.shtml
http://www.4guysfromrolla.com/webtech/062701-1.2.shtml
...
Рейтинг: 0 / 0
06.05.2009, 19:04
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #35982427
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: VladConn

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


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
13.05.2009, 11:08
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
как пользоваться collection?
    #37010386
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DEP1, в сообщении 23 апр 09, 13:24 строка
On Error GoTo errhandle
аогда нибудь может понадобиться, что должно произойти, чтобы случилась ошибка??? на таком маленьком отрезке кода!
...
Рейтинг: 0 / 0
13.12.2010, 01:01
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37010484
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
PlanBвозможно, я спрашиваю чушь , но можно ли для элемента First добавить элементы First1 и First2?
Вот так если только:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim col As New Collection
col.Add New Collection, "First"
col("First").Add "Second", "K1"
col("First").Add "Third", "K2"

MsgBox col("First")("Second")
MsgBox col("First")("Third")
...
Рейтинг: 0 / 0
13.12.2010, 06:27
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37010485
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
короче, макрос (см. выше) не работает, поторопился - не проверил, но суть отражает...
...
Рейтинг: 0 / 0
13.12.2010, 06:31
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37010938
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
.Михаил., добъём?
Sub tt()
Dim col As New Collection
col.Add New Collection, "First"
col("First").Add "Second", "K1"
col("First").Add "Third", "K2"

MsgBox col.Item("First").Item("K1")
MsgBox col.Item(1).Item("K2")

End Sub
...
Рейтинг: 0 / 0
13.12.2010, 11:37
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37012627
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Ципихович ЭндрюDEP1, в сообщении 23 апр 09, 13:24 строка
On Error GoTo errhandle
аогда нибудь может понадобиться, что должно произойти, чтобы случилась ошибка??? на таком маленьком отрезке кода!

Это не имеет значения. Каждая процедура начинается с шаблона, заготавливаемого в VBE. А стандартный шаблон обычно имеет поддержку ошибок.

А вот ты не увидел два идущих подряд
Код: plaintext
End Sub
, что для кода есть моветон.
...
Рейтинг: 0 / 0
14.12.2010, 08:31
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37013187
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
VladConn,
End Sub не заметил, так как ума хватает одно выбросить и я никогда с форума не копирую первую и последнюю строку кода, беру сердцевину, то есть соль, ОК??

Что такое моветон я не знаю, ОК??
...
Рейтинг: 0 / 0
14.12.2010, 12:40
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37017265
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
О, я не в первый раз в чужих примерах вижу, как при вставке поддержки ошибок люди зачем-то ставят два End Sub подряд, именно поэтому и обратил внимание. По-моему, это признак какого-то фундаментального недопонимания, как это работает....
...
Рейтинг: 0 / 0
16.12.2010, 05:02
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37017371
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VladConnО, я не в первый раз в чужих примерах вижу, как при вставке поддержки ошибок люди зачем-то ставят два End Sub подряд, именно поэтому и обратил внимание. По-моему, это признак какого-то фундаментального недопонимания, как это работает....

Ну два подряд End Sub не пройдут - компилятор ругнется.
А Exit Sub перед End Sub я лично ставлю в обработчике ошибок. Когда-то давно столкнулся с какими-то глюками со стеком вызова, проблема решилась именно так, теперь всегда ставлю и больше глюков не наблюдал.
...
Рейтинг: 0 / 0
16.12.2010, 08:46
| Ответить | Цитировать | Написать  
как пользоваться collection?
    #37017408
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro, ОК!!!, поддерживаю, реплику
"Ну два подряд End Sub не пройдут - компилятор ругнется.
А Exit Sub перед End Sub я лично ставлю в обработчике ошибок"

Не знаю, кто два End Subа ставит, не видел
...
Рейтинг: 0 / 0
16.12.2010, 09:13
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как пользоваться collection?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35972122&tid=2159145]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 16ms
total:  164ms
созд. / загр.: 164ms
x
x
Закрыть


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