Страница: 1 |
Страница: 1 |
Вопрос: Как добавить переменную к имени компонента
Добавлено: 16.10.08 23:18
Автор вопроса: Doctorcoot
Здравствуйте Господа программисты!
Пришлось мне тут на досуге расположить на форму 50 компонентов типа PictureBox. Так вот в нужный момент, надо поменять их Width с одинаковым размером. Думаю, что построчно копировать и менять последнюю цифру в имени, как то не по человечески, а зациклить For i = 1 to 50 и добавить Picture(i), не получается. Подскажите пожалуйста, как прибавить числовую переменную к имени компонента.
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
EROS
Вопросов: 58
Ответов: 4255
Профиль | | #1
Добавлено: 17.10.08 00:03
Да никак.. либо испльзовать массив/коллекцию твоих PictureBox и обращаться к ним по индексу, либо перебирать коллекцию Controls у контейнера..
Номер ответа: 2
Автор ответа:
Администратор
ICQ: 278109632
Вопросов: 42
Ответов: 3949
Web-сайт:
Профиль | | #2
Добавлено: 17.10.08 00:04
Как мне надоел этот вопрос....
Добавляем на форму Picture1, ставим свойство Index в 0
Номер ответа: 3
Автор ответа:
s12
Вопросов: 24
Ответов: 363
Профиль | | #3
Добавлено: 17.10.08 11:40
Номер ответа: 4
Автор ответа:
Администратор
ICQ: 278109632
Вопросов: 42
Ответов: 3949
Web-сайт:
Профиль | | #4
Добавлено: 17.10.08 18:06
Факи - это к Брэнду)
Номер ответа: 5
Автор ответа:
Doctorcoot
Вопросов: 7
Ответов: 12
Профиль | | #5
Добавлено: 18.10.08 14:11
for i = 1 to 50
Load Picture1(i)
picture1(i).move mleft, mtop
picture1(i).visible=true
next i
Большое спасибо. Разобрался. Очень полезная вещь. Только вот с DragDrop не очень правильно работает. Когда помещаю Picture1(i) на Picture2, то рисунок проваливается насквозь и оказывается на форме, хотя DragDrop на форме не активен. Подскажите, может я что то не так делаю?