KLASSEMODLUE optionbutton

[AD1957]

Op advies van @SNB ben ik me gaan verdiepen in de werking van klassemodules.
Ik heb er nu een waarbij de optionbutton rood kleurt en de caption wijzigd.

Is het mogelijk om deze code alleen te laten werken op de oneven optionbuttons.

 

[HSV]

If cl_optie = True [COLOR=#ff0000]And cl_optie.TabIndex = 0[/COLOR] Then

 

[edmoor]

Of zet ze bij elkaar in dezelfde groep:

If cl_optie.GroupName = "Oneven" Then

 

[snb]

Het is niet voor-de-hand-liggend voor ja/nee, waar/onwaar keuzerondjes te gebruiken. Vinkvakken zijn daarvoor geschikter (want inherent boolean)


In de klassemodule:

Public WithEvents cl_optie As MSForms.OptionButton
Private Sub cl_optie_change()
    cl_optie.BackColor = IIf(cl_optie, vbWhite, vbRed)
    cl_optie.Caption = Format(cl_optie, "yes/no")
End Sub

In het Userform:

Public verzameling As New Collection

Private Sub UserForm_Initialize()
  For Each ctl In Controls
    If TypeName(ctl) = "OptionButton" And Val(Mid(ctl.Caption, 13)) Mod 2 = 1 Then
      verzameling.Add New InvoerControleOptionButton
      Set verzameling(verzameling.Count).cl_optie = ctl
    End If
  Next
End Sub

 

[AD1957]

Heren bedankt:thumb: ga verder met oefenen.

Het is niet voor-de-hand-liggen voor ja/nee, waar/onwaar keuzerondhes te gebruiken. Vinkvakken zijn daarvoor geschikter (want inherent boolean)

Daar was ik ook al achter gekomen, wilde de vraag toch eens voorleggen en met die toppers hier op dit Forum is overal een oplossing voor.