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

Kleur in wisselknop

Status
Niet open voor verdere reacties.
N

Noord2011

Gebruiker
Lid geworden
28 jan 2009
Berichten
350
Hoe kan ik het kleur van de wisselknop verander bij actieve rood en inactieve groen?
Ik gebruik deze code
PHP: 
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
'ToggleButton1.IndexColor = 4
Sheets("Cover").Select
    ActiveWindow.SelectedSheets.Visible = False
Sheets("Opbouw").Select
Else
    Sheets("Cover").Visible = True
    'ToggleButton1.IndexColor = 3
End If
End Sub

Wat is mijn fout???
Mv/gr
 
Noord25 zei:
Hoe kan ik het kleur van de wisselknop verander bij actieve rood en inactieve groen?
Ik gebruik deze code
PHP: 
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
'ToggleButton1.IndexColor = 4
Sheets("Cover").Select
    ActiveWindow.SelectedSheets.Visible = False
Sheets("Opbouw").Select
Else
    Sheets("Cover").Visible = True
    'ToggleButton1.IndexColor = 3
End If
End Sub

Wat is mijn fout???
Mv/gr
Klik om te vergroten...

Beste Noord25,

Ik weet alleen, dat als er een enkele aanhalingsteken voor de code staat, dat dit als tekst wordt gezien.
Dus dat het niet tot de code behoort maar bv. als geheugensteun voor wat de code doet.
Misschien even weghalen en opnieuw proberen.
'ToggleButton1.IndexColor = 4
en
'ToggleButton1.IndexColor = 3
 
Laatst bewerkt:
Noord25, gelieve Code-tags te gebruiken

Code: 
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = False Then
        ToggleButton1.BackColor = RGB(0, 255, 0)
        Sheets("Cover").Visible = False
    Else
        Sheets("Cover").Visible = True
        ToggleButton1.BackColor = RGB(255, 0, 0)
    End If
End Sub

Mvg

Rudi
 
Als Togglebutton1 waar is dan moet werkblad Cover zichtbaar zijn en als Togglebutton1 niet waar is dan moet werkblad Cover worden verborgen. Dat kan je combineren. De vetgedrukte regel vervangt de 2 Sheets("Cover").Visible regels.
Code: 
Private Sub ToggleButton1_Click()
    If togglebutton1.Value = False Then
        togglebutton1.BackColor = RGB(0, 255, 0)
    Else
        togglebutton1.BackColor = RGB(255, 0, 0)
    End If
[B]    Sheets("Cover").Visible = togglebutton1.Value[/B]
End Sub

Met vriendelijke groet,


Roncancio
 
Doorgeredeneerd op Roncancio:

Code: 
Private Sub ToggleButton1_Click()
  togglebutton1.BackColor = iif(togglebutton,RGB(255, 0, 0),RGB(0, 255, 0))
  Sheets("Cover").Visible = togglebutton1.Value
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan