Програмное добавление элемента

[Создатель]

Подскажите плиз, как добавить какой нить элемент (допустим button)
прогрмно....
допустим, что при нажатии одной кнопки на форму добавляется другая кнопка

[GSerg]

Кхм-кхм...

Пора обживать и этот раздел форума
Не уходя из всех остальных, ессно

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Me.Controls.Add(New Button)
End Sub

[Создатель]

Ну ладно, это понял....а где указывать все свойства этой кнопки???

[hratch]

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dim x as button=new button
'устанавливаем свойства
x...
  Me.Controls.Add(x)
End Sub


[Создатель]

Пасибки...

[petroff]

Ругается на
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

"end of statement" ???

[iGrok]

Ругается на
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

"end of statement" ???

Вообще-то это код сгенерированный студией при щелчке по кнопке Button1. Самому его писать не надо. Тебя должно интересовать только

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

Me.Controls.Add(New Button)

UPD:
Ну и если ругается на Handles, то скорей всего ты пишешь не на VB.NET, а на VB6. Тогда на будущее тебе сюда: viewforum.php?f=1

А пока лови код:

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

Dim btn1 As CommandButton
    Set btn1 = Me.Controls.Add("VB.CommandButton", "btn1")
   
    btn1.Visible = True
    btn1.Left = 0
    btn1.Top = 0
    btn1.Caption = "button"


Вот только как обрабатывать события у созданных таким образом контролов я не знаю.

[petroff]

Ой! сорри искал через поиск не увидел . Для Vb6?

[iGrok]

Я пока предыдущий пост правил ты уже ответить успел.. )