dotNETportal.cz

Začal bych prohledáním relevantních článků ve znalostní bázi, narazil bych na hned první: https://support.microsoft.com/EN-US/kb/3..., ten bych si prostudoval a pak bych se zeptal na to, co by mi nebylo jasné. Takhle bych na to šel já.

Zdravím,

já osobně bych to řešil tak, že bych si tlačítko přidal již při návrhu aplikace a skryl bych ho změnou vlastnosti VISIBLE=False a v případě požadavku toto tlačítko opět zviditelnit, tak mu dát opět True.

Pokud ale trváte na přidávání tlačítka za běhu aplikace, tak musíte vytvořit nový objekt.

Dim novetlacitko As New Button 'založte nový objekt
        With novetlacitko 'nastavte mu vlastnosti
            .Visible = True  'nastavení viditelnosti nového tlačítka
            .Location = New Drawing.Size(10, 20)  'tímto nastavíte umístění tlačítka na formuláři
            .Size = New Drawing.Size(100, 20)   'velikost tlačítka
            .Text = "Nove"  'text který bude na tlačítku zobrazen
        End With
Me.Controls.Add(novetlacitko) 'přidá tlačítko do skupiny Controls a zobrazí je na formuláři
AddHandler novetlacitko.Click, New EventHandler(AddressOf novetlacitko_Click)  'nastaví událost pro kliknutí myší na Vaše nové tlačítko

Vlastností si můžete nastavit kolik budete chtít. Dal jsem jich pár jen jako příklad.

Potom nastavte událost kliknutí na tlačítko

Private Sub novetlacitko_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  MsgBox("BAF", MsgBoxStyle.Information, ":-)")
End Sub

POZOR! na řádek události (Private Sub novetlacitko_Click ...). Je malinko jiný než u klasického objektu !!!

Na tohle nepotřebujete umět anglicky:

'Add controls to the form.
With Me.Controls
    .Add(btnAdd)
    .Add(txtBox)
    .Add(lstBox)
    .Add(chkBox)
    .Add(lblCount)
End With

Ani na to, co radil Pavel Hlávka:

Me.Controls.Add(novetlacitko) 'přidá tlačítko do skupiny Controls a zobrazí je na formuláři

(jde mimochodem o úplně stejný zápis kódu, takže na tom asi něco bude). Stačí to jen vyzkoušet.