Как получить название ключа в коллекции

@Антихакер32 · Регистрация: 06.01.2014

Студворк — интернет-сервис помощи студентам

Делаю свой класс
который бы, имитировал класс Scripting.Dictionary
остановился на функции возврата списка имен ключей
где я тут чего не доглядел, где что упустил ?

Модуль класса

Visual Basic
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private CL As Collection
Function Keys()
'Вот тут я остановился
'    Dim f&, v, v1
'    ReDim v(CL.Count - 1)
'    For Each v1 In CL
'        v(f) = CL(f + 1)
'        f = f + 1
'    Next
End Function
 
Public Sub Add(Key$, Item)
    CL.Add Item, Key
End Sub
 
Function Exists(Key) As Boolean
    On Error Resume Next
    Call CL.Item(Key)
    If Err.Number Then Else Exists = True
End Function
 
Function Items() As Variant()
    Dim f&, v, v1
    ReDim v(CL.Count - 1)
    For Each v1 In CL
        v(f) = v1
        f = f + 1
    Next
End Function
 
Private Sub Class_Initialize()
    Set CL = New Collection
End Sub
 
Private Sub Class_Terminate()
    Set CL = Nothing
End Sub

@testuser2 · 26.11.2023, 09:37

Не по теме:

Сии дела не видимы для глазу и не зримы для ума, но случаются подобно чуду, как бы по наитию, согласно воле и попущению Господа нашего Вседержителя!

@testuser2 · 28.11.2023, 13:36

Кстати, в стеке модуля слева на право надо, наоборот прибавлять а не отнимать.

Dragokas · 28.11.2023, 20:45

В дополнение темы: VBForums: Collection Keys (чтобы вам было ещё чего поковырять

)

@The trick · 28.11.2023, 20:57

А вы задумывались как работает коллекция в VB6?

@testuser2 · 29.11.2023, 17:40

The trick, а возможно реализовать добавление нового итема/ключа "в ручном режиме"? Хотелось бы такую возможность, чтобы добавлять итем и ключ по указателю

Добавлено через 8 минут
Идеальный словарь, в который можно добавить данные по указателю. Наверное проще написать свою реализацию, но для меня это сложновато коенчно..

@The trick · 29.11.2023, 21:10

testuser2, так там полный алгоритм указан - даже смещения указаны. Для чего вручную?

Новые блоги и статьи Все статьи Все блоги /
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .

@testuser2
	26.11.2023, 09:37
	Не по теме: Сии дела не видимы для глазу и не зримы для ума, но случаются подобно чуду, как бы по наитию, согласно воле и попущению Господа нашего Вседержителя! 0

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	28.11.2023, 13:36
	Кстати, в стеке модуля слева на право надо, наоборот прибавлять а не отнимать. 0

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	28.11.2023, 20:45
	В дополнение темы: VBForums: Collection Keys (чтобы вам было ещё чего поковырять ) 2

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	28.11.2023, 20:57
	А вы задумывались как работает коллекция в VB6? 4

@testuser2 1402 / 860 / 93 Регистрация: 08.02.2017 Сообщений: 3,671 Записей в блоге: 2
	29.11.2023, 17:40
	The trick, а возможно реализовать добавление нового итема/ключа "в ручном режиме"? Хотелось бы такую возможность, чтобы добавлять итем и ключ по указателю Добавлено через 8 минут Идеальный словарь, в который можно добавить данные по указателю. Наверное проще написать свою реализацию, но для меня это сложновато коенчно.. 0

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	29.11.2023, 21:10
	testuser2, так там полный алгоритм указан - даже смещения указаны. Для чего вручную? 0