Помогите разобраться с семействами (collection) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите разобраться с семействами (collection)

2 сообщений из 2, страница 1 из 1

Помогите разобраться с семействами (collection)

#32307271

Vitaly Vengrov

Участник

Откуда: Украина

Сообщения: 76

Рейтинг: 0 / 0

Например есть таблица. Нужно организовать проверку вводимых
данных в зависимости от типа колонки.

Тип колонки описываю примерно так :

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Private Type field
    name As String
    type As String
    max_size As Integer
    required As Boolean
    enabled As Boolean
    ...
End Type

Теперь как бы красиво создать класс в котором написать свой метод
Add для создания колекции таких колонок.
Чтобы в конце я мог добавить новую колонку таким (своим) методом :

Код: plaintext

1.
2.
3.

Dim coll as new class1

coll.Add(<строковой идентификатор колонки> _
         <name>, <type>, <max_size>, ...)

и потом обратиться например к имени первой колонки :

Код: plaintext

 переменная = coll(<строковой идентификатор колонки>).name

Пробывал Class Builder-om - что то похожее он создает но до конца
не могу разобраться как и что.
Момент просветления где то рядом, но никак не могу зацепиться за него :)
Если бы кто подсказал как создать именно этот метод Add.
Остальные методы думаю уже сам сделаю.

...

Рейтинг:

0 / 0

28.10.2003, 12:31

| Ответить | Цитировать | Написать

Помогите разобраться с семействами (collection)

#32307644

Iliya_Sp

Гость

Например так (только вместо типа используется класс)
1. Создается простейший класс допустим clsTest
Пишем в коде класса
Public Name as string
Public Type as string
Public MaxSize as string

2. В модуле пишем
Private Sub Test()
dim testCollection as Collection, addData as clsTest

Set TestCollection=new Collection

Set addData=new clsData
with addData
.Name="MyName"
.Type="String"
.MaxSize="12"
end with
'Значение addData.Name всегда должно быть уникальным, так как является ключем
testCollection.add addData, addData.Name
Set addData=Nothing

'Ну и берешь значение
msgbox testcollection("MyName").MaxSize
End Sub

...

Рейтинг:

0 / 0

28.10.2003, 15:27

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите разобраться с семействами (collection)

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=32307644&tid=2170532]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	60ms
get topic data:	11ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	322ms

total:	462ms