| Вопрос: Работа с объектами | Добавлено: 19.02.03 23:01 |
Автор вопроса:  Alex_ | ICQ: 202830092 |
 Можно ли программно создать кнопку??? А то прога долго грузится если сразу много добавлять...
|
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа: MAGNUS Вопросов: 12 Ответов: 430 |
Профиль | | #1 | Добавлено: 19.02.03 23:25 |
|
Dim button As CommandButton Развлекайся... |
||
|
Номер ответа: 2 Автор ответа:  Alex_ ICQ: 202830092 Вопросов: 16 Ответов: 49 |
Профиль | | #2 | Добавлено: 19.02.03 23:30 |
|
BIG Thanks... |
||
|
Номер ответа: 3 Автор ответа: MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #3 | Добавлено: 19.02.03 23:43 |
Да пожалуста, только вот ИМХО чтоб еще и реакцию на эти кнопки прикрутить тут тебе помутить придется. Но способов тоже несколько. Один из них заранее подготовьфункции с теми же именами. Должно сработать. Если нет обращайся - придумаем.
|
||
|
Номер ответа: 4 Автор ответа:  ИльяICQ: 251647191 Вопросов: 37 Ответов: 167 |
Web-сайт: Профиль | | #4 | Добавлено: 20.02.03 14:35 |
|
Смотри в библиотеке кодов... Там где-то был код добавления контрола на форму в процессе её выполнения.
|
||
|
Номер ответа: 5 Автор ответа:  Alex_ICQ: 202830092 Вопросов: 16 Ответов: 49 |
Профиль | | #5 | Добавлено: 20.02.03 22:23 |
|
А ВОТ ЕСЛИ У МЕНЯ ЕСТЬ activex например aqua button то как добавить на форму во время выполнения программы??? |
||
|
Номер ответа: 6 Автор ответа: MAGNUSВопросов: 12 Ответов: 430 |
Профиль | | #6 | Добавлено: 20.02.03 22:53 |
|
А тогда еще проще. Процесс тот же, твоя кнопка должна быть у тебя как User Control, так вот обьявляешь dim button as AquaButton set button =NEw AquaButton а далее то же самое, выставляй ей размеры, положение и т.д. Все. ИМХо. |
||
|
Номер ответа: 7 Автор ответа:  AASoftВопросов: 86 Ответов: 920 |
Профиль | | #7 | Добавлено: 21.02.03 05:43 |
|
a examplu mona? a to ne srabatyvaet procedura |
||
|
Номер ответа: 8 Автор ответа:  ГАТВопросов: 2 Ответов: 117 |
Web-сайт: Профиль | | #8 | Добавлено: 21.02.03 06:19 |
|
Можно создать на форме одну кнопку. Например, cmdButtons и свойство индекс установить в 0. Тогда события этой кнопки будут выглядеть так: Private Sub cmdButtons_Click( Index As Integer) ....................... End Sub и т.д. А кнопки можно добавлять кодом Dim i As Long For i = 1 To 10 Load cmdButton(i) cmdButton(i).Top = cmdButton(i-1).Bottom + 50 cmdButton(i).Visible = True Next При этом, новая кнопка в точности скопирует все свойства предыдущей кнопки. Также можно и удалять их, например: Unload cmdButton(5) |
||
|
Номер ответа: 9 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #9 | Добавлено: 21.02.03 08:22 |
|
da ne, tak ya znayu A vot po ihnemu... |
||
Страница: 1 |