Добавлять элементы "At Runtime"

@Vitalina · Регистрация: 13.06.2007

Author24 — интернет-сервис помощи студентам

Подскажите, как добавлять элементы на форму в процессе выполнения программы не на основе Control Array?

@sharig · 04.02.2008, 00:56

А чем тебе так не нравится?

Добавить контрол во время выполнения программы
'Добавьте TextBox на форму
'В свойствах textbox измените Index на 0
'Этот пример покажет, как добавить Textboxes во время выполнения программы
'Вы получите новый textbox под именем Text1(1).
'Вместо TextBox, конечно, можно использовать и другие контролы

Private Sub Form_Load()
Load Text1(1)
Text1(1).Left = 400
Text1(1).Top = 400
Text1(1).Visible = True
'Для того, чтобы добавить еще textbox, просто добавьте:
'Load Text1(2)
'Text1(2).Left = 400
'Text1(2).Top = 200
'Text1(2).Visible = True
End Sub

@Vitalina · 04.02.2008, 15:33 **[ТС]**

Способ с Array хорош по своему.
Но я все же нашел способ создания контролов без того, чтобы заведомо на форме размещать различные невидимые элементы управления с начальным индексом.

Вот этот код:
Разместите на форме два меню mnuAdd и mnuRemove

Private WithEvents cmdObject As CommandButton

Private Sub cmdObject_Click()
MsgBox 'This is a dynamically added CommandButton control'
End Sub

Private Sub mnuAdd_Click()
' аналогично другие элементы
Set cmdObject = Controls.Add('VB.CommandButton', 'cmdOne')

With cmdObject
.Caption = 'Dynamic CommandButton'
.Default = True
.Enabled = True
.FontSize = 10
.Height = 600
.Visible = True
.Width = 3000

.Move 1000, 1000
End With

End Sub

Private Sub mnuRemove_Click()
Controls.Remove cmdObject

Set cmdObject = Nothing
End Sub

@Vitalina 0 / 0 / 0 Регистрация: 13.06.2007 Сообщений: 29
		1
	Добавлять элементы "At Runtime" 03.02.2008, 18:30. Показов 529. Ответов 2 Метки нет (Все метки) Подскажите, как добавлять элементы на форму в процессе выполнения программы не на основе Control Array? 0

@sharig 2 / 2 / 1 Регистрация: 30.07.2007 Сообщений: 206
	04.02.2008, 00:56	2
	А чем тебе так не нравится? Добавить контрол во время выполнения программы 'Добавьте TextBox на форму 'В свойствах textbox измените Index на 0 'Этот пример покажет, как добавить Textboxes во время выполнения программы 'Вы получите новый textbox под именем Text1(1). 'Вместо TextBox, конечно, можно использовать и другие контролы Private Sub Form_Load() Load Text1(1) Text1(1).Left = 400 Text1(1).Top = 400 Text1(1).Visible = True 'Для того, чтобы добавить еще textbox, просто добавьте: 'Load Text1(2) 'Text1(2).Left = 400 'Text1(2).Top = 200 'Text1(2).Visible = True End Sub 0

@Vitalina 0 / 0 / 0 Регистрация: 13.06.2007 Сообщений: 29
	04.02.2008, 15:33 [ТС]	3
	Способ с Array хорош по своему. Но я все же нашел способ создания контролов без того, чтобы заведомо на форме размещать различные невидимые элементы управления с начальным индексом. Вот этот код: Разместите на форме два меню mnuAdd и mnuRemove Private WithEvents cmdObject As CommandButton Private Sub cmdObject_Click() MsgBox 'This is a dynamically added CommandButton control' End Sub Private Sub mnuAdd_Click() ' аналогично другие элементы Set cmdObject = Controls.Add('VB.CommandButton', 'cmdOne') With cmdObject .Caption = 'Dynamic CommandButton' .Default = True .Enabled = True .FontSize = 10 .Height = 600 .Visible = True .Width = 3000 .Move 1000, 1000 End With End Sub Private Sub mnuRemove_Click() Controls.Remove cmdObject Set cmdObject = Nothing End Sub 0