Класс со свойством типа "коллекция"

@Redfieeld · Регистрация: 01.12.2017

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

Создать класс, содержащий одно свойство типа "коллекция" и соответствующую ему пару Property методов. Правильность работы класса проверить.
Как это сделать?

@fever brain · 01.12.2017, 23:20

Ты за одной партой сидиш с ним ?

Класс

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Dim cl As Collection
 
Public Property Get Coll() As Collection
    Set Coll = cl
End Property
 
Public Property Let Coll(Value)
    Coll.Add Value, CStr(Coll.Count)
End Property
 
Private Sub Class_Initialize()
    Set cl = New Collection
End Sub

Кнопки на листе

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim Class As New Class1
Private Sub CommandButton1_Click()
    On Error Resume Next
    Class.Coll = InputBox("?", , "Привет люди !")
End Sub
Private Sub CommandButton2_Click()
    On Error Resume Next
    MsgBox Class.Coll(CStr(Class.Coll.Count - 1))
    If Err Then
        MsgBox "Сначало добавь в коллекцию чтонибудь !", vbCritical
    End If
End Sub

@-Coder- · 02.12.2017, 09:25

Это мой одногрупник)))

@fever brain · 02.12.2017, 13:58

Сообщение от -Coder-

А какой тогда ключ верный? и как написать неверный ключ? чё то, я не врубаюсь хах

Если гдето было добавленно значение с ключем
Class.Coll.add x, "qwe"
а потом еще гдето было добавленно значение с этим-же ключем qwe
Class.Coll.add y, "qwe"
то это вызовет ошибку.
Вызвать ошибку также может обращение к несуществующему ключу в коллекции
тоесть если ранее был добавлен ключ "qwe"
то при обращению
value = Class.Coll("qwe") - это не вызовет ошибку
value = Class.Coll("rty") - это вызовет ошибку

@-Coder- · 02.12.2017, 15:19

fever brain, понял спасибо)

@Демон62623173 · 03.12.2017, 19:17

Сообщение от fever brain

Копия Книга1.rar (11.3 Кб, 1 просмотров)

Вы кнопки сделали для удобства? В принципе и без них можно обойтись)))

Сообщение от fever brain

Class.Coll = InputBox("?", , "Привет люди !")

А вот, тут бы я где знак вопроса написал, Введите значение(ото лентяи не понимают) и там где написано Привет люди,оставил просто " " чтоб пустое значение,было при вводе)

А так,всё верно)Хорош тот , кто написал данный код)

@Redfieeld · 06.12.2017, 19:26 **[ТС]**

fever brain, а что является проверкой на правильность работы класса?

@fever brain · 06.12.2017, 19:54

Если б класс работал както неправильно
то ты бы не получал сообщения

@Redfieeld · 06.12.2017, 20:13 **[ТС]**

fever brain, Думаю препода не очень устроит такой ответ, а как сделать, чтобы ошибка выдавалась точно так же, но без кнопок.

@Демон62623173 · 06.12.2017, 20:38

На, это трудно ответить , он сам не знает))))

Добавлено через 6 минут
Нашёл в инете, кинул сюда и говорит, что сам.....))) Как обычно ибо за столь короткое время,он бы не написал его. Да и выше впаривал какие-то некчемные ключи хахаха... Пацанов только путаете) Да , щас мне начнешь чушь нести, мне насрать сразу скажу и ещё. Скажите , а почему я не могу помочь, а больше ...... Потому что зашёл случайно Ибо помогаю, только Html+С++,Си, удачи ребят) Vba это жёстко, особенно эти коллекции.

@Lincoln_Hawk · 07.12.2017, 05:50

Сообщение от fever brain

както

Эх ясно...Ещё учат писать Класс.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Redfieeld 2 / 2 / 0 Регистрация: 01.12.2017 Сообщений: 5

	Класс со свойством типа "коллекция" 01.12.2017, 12:39. Показов 2981. Ответов 10 Метки нет (Все метки) Создать класс, содержащий одно свойство типа "коллекция" и соответствующую ему пару Property методов. Правильность работы класса проверить. Как это сделать? 1

@-Coder- -8 / 0 / 0 Регистрация: 25.11.2017 Сообщений: 48
	02.12.2017, 09:25
	Это мой одногрупник))) 0

@-Coder- -8 / 0 / 0 Регистрация: 25.11.2017 Сообщений: 48
	02.12.2017, 15:19
	fever brain, понял спасибо) 0

@Redfieeld 2 / 2 / 0 Регистрация: 01.12.2017 Сообщений: 5
	06.12.2017, 19:26 [ТС]
	fever brain, а что является проверкой на правильность работы класса? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	06.12.2017, 19:54
	Если б класс работал както неправильно то ты бы не получал сообщения 0

@Redfieeld 2 / 2 / 0 Регистрация: 01.12.2017 Сообщений: 5
	06.12.2017, 20:13 [ТС]
	fever brain, Думаю препода не очень устроит такой ответ, а как сделать, чтобы ошибка выдавалась точно так же, но без кнопок. 1

@Демон62623173 -28 / 2 / 2 Регистрация: 17.04.2017 Сообщений: 39
	06.12.2017, 20:38
	На, это трудно ответить , он сам не знает)))) Добавлено через 6 минут Нашёл в инете, кинул сюда и говорит, что сам.....))) Как обычно ибо за столь короткое время,он бы не написал его. Да и выше впаривал какие-то некчемные ключи хахаха... Пацанов только путаете) Да , щас мне начнешь чушь нести, мне насрать сразу скажу и ещё. Скажите , а почему я не могу помочь, а больше ...... Потому что зашёл случайно Ибо помогаю, только Html+С++,Си, удачи ребят) Vba это жёстко, особенно эти коллекции. 0