Beispiele für AddControl-Ereignis, Add-Methode
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für