Как создать объект на форме из кода ?

[das]

Как создать объект на форме из кода ?
Помогите, не знаю как это зделать, хотя очень надо для написания одной программы

[_Мика_]

Созданшь объект, который тебе надо создать, сатвишь left=-10000 ставиш index=0

Код: Выделить всё

Private Sub Form_Load()
Load <<объект>>(1)
<<объект>>(1).Visible = True
<<объект>>(1).Top = 1
<<объект>>(1).Left = 1
End Sub


[Gfif21]

Ну left=-10000 совсем не обязательно, достаточно сделать <Control>(0).Visible=False.
А автору топика советую почитать вот это - http://www.vbstreets.ru/VB/Articles/65514.aspx

[KDima]

Код: Выделить всё

Private WithEvents NewButton As CommandButton

Private Sub NewButton_Click()
кнопку
MsgBox "Вы нажали на новую кнопку"
End Sub

Private Sub Form_Click()
Set NewButton = Controls.Add("VB.CommandButton", "NewButton") NewButton.Visible = True
NewButton.Height = 1000
NewButton.Width = 1000
NewButton.Top = 0
NewButton.Left = 0
NewButton.Caption = "Нажми на меня!!!!"
End Sub

[GM]

Можна так же юзать универсальний контрол VBControlExtender.

[das]

Спасибо всем!!!
Вы мне очень помогли, особенно статья!!!

[KDima]

Gfif21

Непонял...
Эта пага провалялась в таскбаре 2 часа пока я ответил!!! Ужас...