LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
05 февраля 2005
Форумы
Поиск
Список форумов
Программирование
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
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования