• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

KLASSEMODLUE optionbutton

Status
Niet open voor verdere reacties.

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
2.155
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.
 

Bijlagen

Code:
If cl_optie = True [COLOR=#ff0000]And cl_optie.TabIndex = 0[/COLOR] Then
 
Of zet ze bij elkaar in dezelfde groep:
Code:
If cl_optie.GroupName = "Oneven" Then
 
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:

Code:
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:

Code:
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
 
Laatst bewerkt:
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.:D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan