• 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.

UserForm met CheckBoxes en Kleurencodes

Status
Niet open voor verdere reacties.
Z

Zerty

Gebruiker
Lid geworden
12 mei 2015
Berichten
110
Hallo,
Ik probeer in een UserForm om 4 Checkboxen elk een kleur weer te laten geven.
Maar dat lukt alleen als er telkens op CheckBox1 geklikt wordt.
Het lijkt iets eenvoudigs maar toch kom ik er niet uit.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
UserForm1.TextBox10.BackColor = RGB(255, 0, 0)
ElseIf CheckBox2.Value = True Then
UserForm1.TextBox10.BackColor = RGB(255, 255, 0)
ElseIf CheckBox3.Value = True Then
UserForm1.TextBox10.BackColor = RGB(0, 0, 255)
ElseIf CheckBox4.Value = True Then
UserForm1.TextBox10.BackColor = RGB(0, 255, 0)
Else: UserForm1.TextBox10.BackColor = RGB(255, 255, 255)
End If
End Sub
 

Bijlagen

Uiteraard gebeurt dat alleen als er op CheckBox1 wordt geklikt omdat daar die code in staat. Test dit eens:
Bekijk bijlage Kleurencodes.xlsm

De checkboxes zijn eruit en heb ik vervangen door option buttons.
Je mooie knopje heb ik er even uit gehaald omdat het document anders te groot werd om hier te plaatsen.
Dan kan je uiteraard makkelijk terug zetten.
 
Laatst bewerkt:
Sowieso erg ongelukkige werkwijze, want je kunt meerdere selectievakjes aanzetten. En wat moet er dan? Gebruik een Frame met Radiobuttons:

Code: 
Function Kleurtje()
       
    If OptionButton1.Value = True Then
        UserForm1.TextBox10.BackColor = RGB(255, 0, 0)
    ElseIf OptionButton2.Value = True Then
        UserForm1.TextBox10.BackColor = RGB(255, 255, 0)
    ElseIf OptionButton3.Value = True Then
        UserForm1.TextBox10.BackColor = RGB(0, 0, 255)
    ElseIf OptionButton4.Value = True Then
        UserForm1.TextBox10.BackColor = RGB(0, 255, 0)
    Else
        UserForm1.TextBox10.BackColor = RGB(255, 255, 255)
    End If

End Function

Code: 
Private Sub OptionButton1_Click()
    Kleurtje
End Sub

Code: 
Private Sub OptionButton2_Click()
    Kleurtje
End Sub

Code: 
Private Sub OptionButton3_Click()
    Kleurtje
End Sub

Code: 
Private Sub OptionButton4_Click()
    Kleurtje
End Sub
 
Twee zielen, 1 gedachte, andere uitvoering ;)
 
Dank je wel, op deze manier lukt het goed.
Ik had echter het idee opgevat, eens de Checkboxen hun functie doen, om er mee te mixen.
Ik bedoel om dan met de code te gaan rekenen en zo te ontdekken hoe ze aan al die verschillende onregelmatige getallen komen.

Het lijkt misschien absurd, maar er zal waarschijnlijk een logische redenering achter zitten.
En het zou ook leuk zijn om daarmee te experimenteren.

En inderdaad, ik had mij al afgevraagd waarom dat bestandje zo groot was, dat knoppeke deed het hem.

Mvg,

Zerty.
 
Zoals je ziet hebben CheckBoxes een andere functie dan OptionButtons. Welke je het beste kan gebruiken is afhankelijk uiteraard van wat je wil doen. In dit geval waren OptionButtons de beste oplossing. Merk ook op dat ze in de eigenschappen alle 4 dezelfde groepnaam hebben.
 
Waarom een keuze uit miljoenen kleuren, terwijl de 56 kleuren van de colorindex meestal voldoende zijn? Die zijn ook gemakkelijker te onthouden.
 
zelf een formule maken om van color naar rgb (en omgekeerd) te komen is niet zo moeilijk,
maar hoe je kleuren mengt daar ben ik wel benieuwd naar.
 
Het gaat niet om de hoeveelheid kleuren, maar hoe ze aan de MS Access-code komen van al die kleuren.

Ik kan mij moeilijk voorstellen dat er ergens iemand op een stoelke zit kleuren te bekijken,
en dan daar een nummer aan geeft die nog niet bestaat, want twee dezelfde nummers, dà kan niet.

Ja, sorry hoor, ieder heeft zo z'n trekjes, en die van mij zijn nieuwsgierigheid, op een gezonde wijze ;-)

Zerty.
 
Prachtig, dank je wel.
Naar Word kopiëren en vertalen (m'n Engels is niet zo schitterend), en dan...
dan post ik het wel als er iets uit de bus komt.

Nog een vraagje, bij Worksheet.nl mocht men afgewerkte projecten insturen om te delen met de Forum-leden, kan dat bij Helpmij.nl ook?

Nogmaals wel bedankt voor deze tip,

Zerty.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan