Страница: 1 |
АААААА!А!!!А!!!! Помогите! Несколько дней уже мучаюсь, скажите, как добавить на форму новый контрол из кода. Буду очень благодарен вам за помощь
Используй коллекцию Controls Примерно так.... Set Button1=Form.Controls.Add("VB.CommandButton") Button1.Visible=TRUE Кидаешь на форму, например, CommandButton. Ставишь этой кнопке имя: Btn, указываешь индекс: 0, ставь Visible=False. Я тоже такое когда то делал. Глянь Страница: 1 |
Вопрос: Как мне добавить новый контрол на форму из кода???
Добавлено: 19.01.04 14:29
Автор вопроса: chupa-ups
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
alex
Вопросов: 84
Ответов: 453
Профиль | | #1
Добавлено: 19.01.04 15:07
Номер ответа: 2
Автор ответа:
AV
Вопросов: 28
Ответов: 48
Web-сайт:
Профиль | | #2
Добавлено: 21.01.04 19:20
Процедура:
Public Sub AddButton(NewIndex As Long)
Load Btn(NewIndex)
Btn(NewIndex).Caption = "Кнопка № " & NewIndex
Btn(NewIndex).Visible = True
'Устанавливаешь любые свойства для новой кнопки (Left, Top, Width)
End Sub
Использование:
AddButton 1 '1-новый индекс для каждой кнопки
Потом вставляешь в процедуру Btn_Click любой код:
Private Sub Btn_Click(Index As Integer)
MsgBox Btn(1).Caption
End Sub
И так для любых объектов...
Номер ответа: 3
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #3
Добавлено: 22.01.04 02:22
Номер ответа: 4
Автор ответа:
chupa-ups
Вопросов: 1
Ответов: 4
Профиль | | #4
Добавлено: 24.01.04 17:23
Спасибо вам большое!)
Номер ответа: 5
Автор ответа:
chupa-ups
Вопросов: 1
Ответов: 4
Профиль | | #5
Добавлено: 24.01.04 17:26
Спасибо вам большое!)