laufzeitgenerierte Objekte mit funktion erstellen.
27.05.2015 13:59:09
d9C
ich habe das Netz auf und ab gesucht aber leider nicht gefunden.
Ich möchte einem, zu laufzeit generierten, RadioButton eine funktion ausführen lassen.
For i = begin To intAnz
pZahl = Me.mpWechsel.Pages.Count + 1
With Me.mpWechsel
.Add ("Nr. " & pZahl)
With .Pages("Nr. " & pZahl).Add("Forms.Frame.1")
.Left = 6
.Top = 6
.Height = 120
.Width = 360
.Caption = "Wechsel"
.SpecialEffect = 2
With .Add("Forms.Optionbutton.1")
.Left = 240
.Top = 24
.Visible = True
.Height = 21.85
.Width = 96
.Name = "obWunsch" & pZahl
.Caption = "Wunschtermin"
.GroupName = "Datum" & pZahl
.BackStyle = 0
.Font.Size = 12
End With
With .Add("Forms.Optionbutton.1")
.Left = 240
.Top = 48
.Visible = True
.Height = 21.75
.Width = 80
.Name = "obAsap" & pZahl
.Caption = "ASAP"
.ControlTipText = "As soon as possible = Nächst möglicher Termin(Opt-In)"
.GroupName = "Datum" & pZahl
.BackStyle = 0
.Font.Size = 12
End With
With .Add("Forms.Optionbutton.1")
.Left = 114
.Top = 24
.Visible = True
.Height = 21.85
.Width = 117
.Name = "obKdg" & pZahl
.Caption = "Kündigungstermin"
.GroupName = "Datum" & pZahl
.BackStyle = 0
.Font.Size = 12
End With
With .Controls.Add("Forms.Label.1", Name:="lblEndDat" & pZahl)
.Left = 6
.Top = 36
.Visible = True
.Height = 14.35
.Width = 36
.Font.Size = 12
.Caption = "Datum"
End With
With .Add("Forms.Textbox.1")
.Left = 114
.Top = 48
.Visible = True
.Height = 18
.Width = 114
.Name = "tbEndDat" & pZahl
End With
End With
End With
Die RadioButtons sind, wie man sehen kann in einer grp. Wenn der RadioButton "asap" ausgewählt ist, soll die textbox "tbEndDat" ausgegraut werden. diese werden je nach anzahl in einer anderen Textbox erweitert. ergo: anzahl 10 = 10 Pages in Multipage mit den 10 RadioButtons und Textboxen usw.
wie genau mache ich das?