Freigeben über

Beispiele für AddControl-Ereignis, Add-Methode

  • Artikel

Im folgenden Beispiel wird die Add-Methode verwendet, um einem Formular zur Laufzeit ein Steuerelement hinzuzufügen, und das AddControl-Ereignis wird als Bestätigung verwendet, dass das Steuerelement hinzugefügt wurde.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".
  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
Dim Mycmd as Control 
Private Sub CommandButton1_Click() 
 
 Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible) 
 Mycmd.Left = 18 
 Mycmd.Top = 150 
 Mycmd.Width = 175 
 Mycmd.Height = 20 
 Mycmd.Caption = "This is fun." & Mycmd.Name 
 
End Sub 
 
Private Sub UserForm_AddControl(ByVal Control As _ 
 MSForms.Control) 
 Label1.Caption = "Control was Added." 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.