Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Как созда...

Тема: Как создать массив контролов что бы не было имен

15.06.2007 21:02:19

Евгений5

15 сообщения

Тема: Как создать массив контролов что бы не было имен

Получилось так, что необходима подпрограмма, которая опрашивала состояние нескольких групп конролов в форме. Действия выполняемые подпрограммой однотипные, но громоздкие. Писать практически повторяющийся код для каждой группы только из-за того что у контролов разные имена чесно говоря угнетает. Идеально подошел бы двумерный массив контролов, чтобы ссылаться на них не по именам, а по индексам массива. Уточняю, что нужен именно двумерный вариант организации, а не одномерный (что-то типа Collection).
Попробовал
Private ArrControl(8, 4) As Control

При загрузке формы присвоил значения
ArrControl(0, 0)=ListBox1
ArrControl(0, 1)=ListBox2......

Затем попробовал с ними работать, но ничего не вышло. Конструкция типа
My_Str=ArrControl(0, 0).Name
My_Str=ArrControl(2, 3).Column(1)
Не работает, нельзя использовать и свойства конролов, а хотелось бы.
Подскажите, что делаю не так, может есть альтернативы?
Заранее признателен.

P.S. Создание форм
Автор: Евгений от 14.04.2002 1:12:52 Источник ...

15.06.2007 21:02:19

All

4316 сообщения

RE: Как создать массив контролов что бы не было имен

Проще пробежать по всем объектам формы и назначить некоторым из них нужные свойства
Public Function funConvert(myForm As Form)
Dim ctl As Control
For Each ctl In myForm.Controls
Select Case ctl.ControlType
Case acLabel, acPage, acCommandButton:
' ...
Case acComboBox:
' ...
End Select
Next ctl
End Function

P.S. Создание форм
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Как созда...

Поиск

Список форумов

Начало | Forums