ich bin neu hier und hab ein kleines Problem, bei dem ich nicht weiterkomme. Ich hab hier schon gesucht aber so richtig komme ich nicht weiter.
Ich möchte in einer Userform einen existierenden frame mit optionsbuttons durch einen neuen Frame mit 2 eigenen Optionsbuttons ersetzen. Das soll geschehen, wenn in der Userform ein bestimmer Optionbutton aktiviert wird.
Hier der Code der Prozedur, die das neue Frame erzeugt.
_____
Private Sub frmDiameter_Activate()
Dim ctrl As Control
Dim frmDiameter As Frame
Dim OB2MM As MSForms.OptionButton, OB1_5MM As MSForms.OptionButton
frmFanout.Visible = False 'replace Fanout frame with diameter _
frame for LCD cords
Set frmDiameter = UserFormCA2.Controls.Add("Forms.Frame.1") 'Add diameter frame
With frmDiameter
.Caption = "Diameter"
.Font.Bold = True
.Height = 96
.Width = 108
.Left = 480
.Top = 240
End With
frmDiameter.Visible = True
Set OB2MM = frmDiameter.Controls.Add("Forms.OptionButton.1") 'create _
optionsbutton1
With OB2MM
.Caption = "2 mm"
.Font.Bold = False
.Top = 18
.Left = 12
End With
Set OB1_5MM = frmDiameter.Controls.Add("Forms.OptionButton.1") 'create _
optionsbutton2
With OB1_5MM
.Caption = "1,5 mm"
.Font.Bold = False
.Top = 42
.Left = 12
End With
End Sub
______
Das funktioniert soweit ganz gut. Leider funktionieren meine Ereignis-Prozeduren nicht, die durchlaufen werden sollen,
wenn einer der Optionsbuttons des neuen Frames aktiviert wird. Hier eine davon:
Private Sub OBB2MM_Click()
BreakoutOptionTxt = "2 mm diameter, "
FanoutConstructionCode = "6"
PartnumberText.Text = AssemblyTypeCode & JacketMaterialCode & FiberTypeCode
DescriptionText.Text = AssemblyTypeTxt & JacketMaterialTxt & FiberTypeTxt & ConnSideATxt
Step7.BackColor = &H80FF80
End Sub
_____
Die Prozedur wird nicht angesprungen, habs mit einem Haltepunkt getestet.
Alle Prozeduren wurde in der Userform angelegt
Ich vermute, das ist wieder so ein Klassen, Module oder irgendwas Fehler: da bin ich noch nicht fit.
Bin ein Old school Programmierer, der sich da nach 25 Jahren mal wieder rantraut
Es wäre toll. wenn mir da jemand helfen könnte.
Danke und ein gutes 2021
Gruss
Jürgen