LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Квк обрат...
 Тема: Квк обратиться к контролу?
 
 15.06.2007 21:04:40
All
4316 сообщения
1-ый


Тема: Квк обратиться к контролу?
Здравствуйте!

У меня ксть большая группа контролов списков в форме, с которыми я выполняю однотипные действия. Для удобства работы с ними я создал массив контролов. Забил его значениями при загрузке формы и теперь обращаюсь к нему в любом порядке в цикле. Создание коллекции неудобно, т. к. Она одномерна,а мне нужен двумерный вариант массива.

Существует аналогичная группа контролов, с которой надо выполнять те же действия. Отличается от первой, только тем, что последними символами имени контрола является "_Edit".

Создавать второй массив не хочется.

Можно ли имея имя елемента массива конролов прицепить к нему окончание и обратиться к свойству другого контола, имея только его символьное имя (StringName)?

StringName=ArrControl(q).Name & "_Edit"

Set TempControl=******************StringName
TempControl.Visible=False

Спасибо, если что-то придумаете - пишите.
Евгений.



P.S. Общий раздел по формам
Автор: Евгений от 0:00:00 Источник ...
 15.06.2007 21:04:40
All
4316 сообщения
1-ый


RE: Квк обратиться к контролу?
Для объектов типа Control необязательно создавать коллекции. Каждый Control-элемент имеет уникальный индекс или имя, которое и можно использовать при обращении. При загрузке формы создаете необходимый текстовый или целочисленный массив. Обращение к элементу такое:
Dim ctl As Control
set ctl = Me.Controls("Имя" & "_Edit")
P/S можно использовать и type для определения собственной переменной для хранения control элементов
Public Type ctl_arr
ctlIndex As Long
ctlName As String
End Type



P.S. Общий раздел по формам
Автор: Amdin от 0:00:00 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Квк обрат...
ПоискПоиск  Список форумовСписок форумов  
right