Динамический контрол на динамической форме

[Роман-вб]

Форма создаётся дмнамически. Как на ней создать динамически контрол? И как создать контрол на на "обычной форме".
Заране спасибо!

[Ramzes]

при помощи ключевого слова "NEW"

[Dmitriy Solomnikov]

создаешь контрол, утанавливаешь его свойства в нужные состояния и добавляешь на форму через form.Controls.Add(...)

[Ramzes]

Держи пример

[Роман-вб]

Ramzes
Да, спасибо. Помогло. Вот код, если кому надо:

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

Dim cmd As New Button
        With cmd
            .Name = "cmd1"
            .Left = 10
            .Top = 10
            .Width = 100
            .Height = 100
            .Text = "Hello World"
        End With
        ChildForm.Controls.Add(cmd)

[cadhelp]

А как теперь на етом динамическом контроле в динамической форме отловить event, скажем KeyPressDown ?

[Thomas]

AddHandler cmd_KeyPressDown, AddressOf [Naam of Function]

Private Sub [Naam of Function](ByVal sender As System.Object, ByVal e As System.EventArgs)
bla bla
End Sub

[Nord777]

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

AddHandler cmd.KeyPress, AddressOf KeyPressHandler

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

     Private Sub KeyPressHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        'твой код
    End Sub

[cadhelp]

огромное спасибо, убил на поиск етого AddHandler event пол дня
уменя динамически создаются формы-сыны в которых динамически вставляется один контрол RichTextBox, так что он всегда нулевой елемент

Dim ChildForm As New System.Windows.Forms.Form
Dim rText As New RichTextBox

во что получилось с хендлером

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

AddHandler Me.MdiChildren(m_ChildFormNumber).Controls(0).KeyPress, AddressOf [cmd_child_KeyPressDown_event]
m_ChildFormNumber += 1
ChildForm.Show()


ну и ессно сама ф-я хендлер, для фсех сынов одинакова

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

Private Sub cmd_KeyPressDown_event(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        MsgBox("I'm a bad child")
End Sub