Например что-бы по нажатию кнопки на форму загружался TextBox
Как программно загрузить контрол на форму?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 7
• Страница 1 из 1
- all
- Начинающий
- Сообщения: 22
- Зарегистрирован: 01.06.2004 (Вт) 18:48
Как программно загрузить контрол на форму?
all » 01.06.2004 (Вт) 18:57
Как программно загрузить контрол на форму?
Например что-бы по нажатию кнопки на форму загружался TextBox
Например что-бы по нажатию кнопки на форму загружался TextBox
- Vellan
- Обычный пользователь
- Сообщения: 90
- Зарегистрирован: 06.05.2002 (Пн) 1:21
- Откуда: Russia
Vellan » 01.06.2004 (Вт) 20:21
Требуется форма с текстбоксом у которого совйство index=0, т.о. создаётся массив контролов. Далее пишем код:
- Код: Выделить всё
Private Sub Form_Load()
Dim CtrlN As Integer
For CtrlN = 1 To 5
Load Text1(CtrlN)
Text1(CtrlN).Top = Text1(CtrlN - 1).Top + 20
Text1(CtrlN).Visible = True
Next
End Sub
- A.A.Z.
- Член-корреспондент академии VBStreets
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
A.A.Z. » 01.06.2004 (Вт) 23:18
- Код: Выделить всё
Private WithEvents Text1 As TextBox
Private Sub Command1_Click()
Set Text1 = Controls.Add("VB.TextBox", "Text1")
Text1.Visible = True
Text1.Left = 100
Text1.Text = "Динамический TextBox"
End Sub
Нет меня больше
Сообщений: 7
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 33