Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
Есть форма map_all на которой находится 100 (10х10) рисунков, составляющих в общем карту. Имена рисунков на форме а1, а2 ... а10, b1, b2 ... ... ... j9, j10 - типа Excel-я: по горизонтали - буквы, а по вертикали - цифры.

Есть форма street, на которой размещена подформа maps. В текстовое поле map подформы maps занесена привязка - соответствующий данной улице квадрат карты, например: ул. Островского (форма street) - d3 (форма maps). Привязка аналогична именам рисунков на форме карты map_all.

На форме maps (ленточная) может быть несколько квадратов карты, например а1, а2 ...

На форме maps кнопка, открывающая форму map_all.

В общем у меня просьба-вопрос к старейшинам по ситуации:

- какой код нужно повесить на событие загрузки формы map_all, чтобы те квадраты (контролы-рисунки), имена которых соответствовали введенной привязке (привязкам) имели:
тип границы - сплошная;
цвет границы - 255 (красный);
ширину границы - 3 пункта.

Начальные характеристики границ контролов-рисунков:
тип границы - отсутствует;
цвет границы - 0;
ширину границы - сверхтонкая.

буду благодарен всем, кто попытается вникнуть. Спасибо.
29 сен 06, 14:04    [3202510]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Задать в конструкторе и поДсмотреть свойства контролов в окне VBA. Вставить подсмотренное в свой код.
29 сен 06, 14:18    [3202661]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
orunbek
Member

Откуда: Гималай
Сообщений: 2101
Чтобы узнать имя свойства в VBA, установите фокус на нужное свойство в окне свойств и нажмите F1, и выйдет справка где эта информация указана, например для того чтобы установить тип границы "Сплошная" нужно использовать следующий код:
Рисунок0.BorderStyle = 1
Это можно узнать в той же справочной.
Вывод, сперва копайтесь в самой справочной системе программы, и затем на google, если там и там не смогли найти обращайтесь в форумы ;-)

К сообщению приложен файл. Размер - 0Kb
29 сен 06, 14:31    [3202770]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
С форматированием границ разобрался. Спасибо orunbek-у.

Подскажите, пожалуйста, как выбрать те контролы-рисунки, которые соответствуют привязке (у которых границы менять).
29 сен 06, 14:46    [3202921]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
orunbek
Member

Откуда: Гималай
Сообщений: 2101
Пожалуйста
Андрей Стадников
которые соответствуют привязке (у которых границы менять)

не понял
29 сен 06, 14:49    [3202955]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
На открытие формы map_all ставлю

Private Sub Form_Load()

    Dim dName As String

    dName = Forms!street!maps!map
    
End Sub

а дальше что написать в коде - ума не приложу.

Хочется что-то типа:
me!dName.BorderStyle = 1 ... и т.д.,
но контрола dName на форме нет...

Или как перебрать все контролы от а1 до j10 - тогда бы можно было сравнивать их название с dName...

???
29 сен 06, 15:24    [3203264]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
по последнему варианту - нерационально же писать 100 условий
29 сен 06, 15:29    [3203309]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Андрей Стадников
Или как перебрать все контролы от а1 до j10 - тогда бы можно было сравнивать их название с dName...

For each ctl in Me.Controls
29 сен 06, 15:33    [3203341]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
If ctl = dName Then

что не так?
29 сен 06, 15:49    [3203471]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Что такое контрол и где у него имя ?
ctl.Name="Гы-гы-гы!"
29 сен 06, 15:53    [3203498]     Ответить | Цитировать Сообщить модератору
 Re: Изменение параметров границы контрола на форме  [new]
Андрей Стадников
Member

Откуда: Люботин, Харьковской обл., Украина
Сообщений: 369
все, получилось: ctl.name

Всем большое спасибо
29 сен 06, 15:54    [3203500]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить