Gruppe
Dialog
Problem
Während der Laufzeit soll eine TextBox hinzugefügt und ausgelesen werden.
ClassModule: frmDesigner
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdCreateText_Click()
Dim oTxt As MSForms.TextBox
Set oTxt = Me.Controls.Add("forms.TextBox.1")
With oTxt
.Name = "MeineTextBox"
.Left = 10
.Top = 10
.Text = "Neue TextBox"
End With
End Sub
Private Sub cmdReadText_Click()
MsgBox Me.Controls("MeineTextBox").Text
End Sub
Private Sub UserForm_Click()
End Sub
StandardModule: Modul1
Sub CallForm()
frmDesigner.Show
End Sub