Rahmen um OptionButton, aber nicht um Caption des optButton
05.04.2025 17:24:32
Dieter(Drummer)
Bei Klick auf einen OptionButton, wird ein Rahmen um den OptionsButton gemacht.
Bei Klick auf anderen OptionButton wird der Rahmen des vorherigen OptionButton wieder entfernt. Das funktioniert!
Suche eine Möglichkeit, dass der Rahmen um den OptionButton da ist, aber der gepunkteten Rahmen, der sich um Caption bildet, entfernt wird.
Es soll aber der Rahmen um den OptionButton bleiben. Das bedeutet: Rahmen um OptButton ist da und der Punkterahmen um Caption soll weg sein.
Evtl. können ja beide Codes verbunden werden, aber meine Versuche haben nicht funktioniert.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei:
https://www.herber.de/bbs/user/176615.xlsm
Code 1:
'Herber: Case 25.03.2025 16:07:04
Private mobjOptionButtonClass(1 To 6) As clsOptionButton
Private mstrSearchValue As String
'Herber: Case 25.03.2025 16:07:04
Private Sub UserForm_Activate()
Dim ialngIndex As Long
For ialngIndex = LBound(mobjOptionButtonClass) To UBound(mobjOptionButtonClass)
Set mobjOptionButtonClass(ialngIndex) = New clsOptionButton
Set mobjOptionButtonClass(ialngIndex).OptionButton = Controls("OptionButton" & CStr(ialngIndex))
Set mobjOptionButtonClass(ialngIndex).UserForm = Me
Next
'OptionButton1.Value = True
End Sub
'Herber: Case 25.03.2025 16:07:04
Private Sub UserForm_Terminate()
Dim ialngIndex As Long
For ialngIndex = LBound(mobjOptionButtonClass) To UBound(mobjOptionButtonClass)
Set mobjOptionButtonClass(ialngIndex) = Nothing
Next
End Sub
'Herber: Case 25.03.2025 16:07:04
Public Property Let SearchValue(ByVal pvstrSearchValue As String)
mstrSearchValue = pvstrSearchValue
End Property
Code2:
Public Sub CommandButton2_Click()
'Rahmen_loeschen
Dim lblLabel As MSForms.Label
Dim ctrlTMP As Control
Dim lngTMP As Long
For Each ctrlTMP In Me.Controls
If TypeName(ctrlTMP) = "Label" Then
Me.Controls.Remove ctrlTMP.Name
End If
Next ctrlTMP
End SubAnzeige