Dynamisch erzeugte Steuerelemente ansprechen
15.04.2003 14:09:11
Bastello
Ich hatte etwas weiter unten gefragt, wie ich über VBA Code Steuerelemente einfügen kann. Folgende Lösung funktioniert einwandfrei:
Option Explicit
Dim myFrame As Frame
Dim myCtl As Control
Private Sub CommandButton1_Click()
Set myFrame = UserForm1.Controls.Add("Forms.Frame.1")
With myFrame
.Top = 20
.Left = 12
.Height = 90
.Width = 186
.Caption = "Ein neuer Frame"
End With
End Sub
Private Sub CommandButton2_Click()
Set myCtl = myFrame.Controls.Add("Forms.OptionButton.1", "Option1", True)
With myCtl
.Top = 20
.Left = 20
.Height = 20
.Width = 100
.Caption = "Hallo"
End With
End Sub
Leider weiss ich jetzt nicht, wie ich den erzeugten OptionButton ansprechen kann. Kann mir jemand helfen ?