Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

Forumthread: Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

25.03.2025 16:25:08

Dieter(Drummer)

Guten Tag an alle ...

In der Beispieldatei werden Rahmen um die Optionsbutton auf Userform2 gesetzt, die im Code der Userform2, genannt. Das funktioniert.

Ich suche einen Code, der bei Klick auf einen Optionsbutton, nur um diesen einen Rahmen setzt. Ist dieser nicht mehr aktiviert, soll auch kein Rahmen drum sein.

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei:
https://www.herber.de/bbs/user/176416.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

25.03.2025 16:55:15

daniel

Hi
ich würde das so machen:

Erstelle im VBA-Editor von Hand das Label mit dem Rahmen (Label1)
dabei setzt du den BackStyle auf Transparent und die Caption auf blank.
setze auch noch die Eigenschaft Visible = False.

schreibe jetzt folgendes Untermakro ins Modul der Userform.
dieses Makro verschiebt das Label zum angegebenen Optionbutton.

Sub Rahmen_zu_Optionbutten(OpB As Control)

With Label1

    .Visible = True

    .Top = OpB.Top

    .Left = OpB.Left

    .Width = OpB.Width

    .Height = OpB.Height

End With

End Sub

jetzt ist es so, dass ein Optionbutton immer aktiv ist, wenn der angeklickt wurde (abwahl nicht möglich). Daher muss man also das Rahmen-Label immer nur beim anklicken eines Buttons zu diesem verschieben.

verwende hierzu folgenden Code im Click-Event jedes Optionbuttons:

Private Sub OptionButton1_Click()

Rahmen_zu_Optionbutten ActiveControl

End Sub

ob du dann für jeden Optionbutton so ein Klick-Event schreibst oder das über eine Klasse regelst, überlasse ich dir.

Wenn dir Rahmen wieder weg soll solange die Userform offen ist, setze seine Eigenschaft .Visible = False

Gruß Daniel

AW: Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

25.03.2025 17:25:57

Dieter(Drummer)

Hallo Daniel,

Danke für deine Rückmeldung und deine Codes. Ich werde sie mir durcharbeiten.

Herzlichen Dank und Gruß,
Dieter(Drummer)

Im Anhang habe...

25.03.2025 17:07:04

Case

Moin Dieter, :-)

... ich dir ein Beispiel mit einer Klasse erstellt: ;-)
https://www.herber.de/bbs/user/176417.xlsb

Servus
Case

AW: Im Anhang habe...

25.03.2025 17:23:24

Dieter(Drummer)

Moin Case,

danke für deine Rückmeldung und den Code, der perfekt funktioniert.

Danke und Gruß,
Dieter(Drummer)

Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

Forumthread: Klick auf OptionsButton, dann Rahmen um diesen OptionsButton

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread