Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 17 van 17

Onderwerp: kleur toggle button

  1. #1
    Vraag is niet opgelost

    kleur toggle button

    Hallo,

    Is het mogelijk dat je een toggle button zo maakt dat hij rood is als deze niet actief is en groen als deze actief is?

    mvg

    appie

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ja.
    En omdat je geen voorbeeld hebt geplaatst is nu de vraag of je het hebt over een formulier object of een userform object.
    En als het een formulier object is gaat het dan om een ActiveX of een echt formulier object.

    Zo zie je maar weer dat ook bij een simpele vraag toch weer een voorbeeld of meer informatie gewenst is.
    Laatst aangepast door edmoor : 13 februari 2018 om 09:43
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Hopelijk kan je hier wat mee.

    Mvg Appie
    Attached Files Attached Files

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zoiets:
    Code:
    Private Sub ToggleButton1_Click()
        ToggleButton1.BackColor = IIf(ToggleButton1, vbRed, vbGreen)
        Range("Tabel1").Columns.Hidden = ToggleButton1
    End Sub
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Bedankt,

    Helemaal goed zo, ik had bij eigenschappen zitten klungelen maar kreeg het niet voor elkaar. Niet verwacht dat het op deze manier moest.

    Nogmaals bedankt!

  6. #6
    Of, omdat ActiveX controls onbetrouwbaar zijn en een togglebutton verwarring kan geven: Gebruik een knop van de besturingselementen, geef de knop de titel "Verberg F tot K" en hang deze code eraan:

    Code:
    Sub Button3_Click()
        With ActiveSheet.Buttons(Application.Caller)
            If .Caption = "Verberg F tot K" Then
                Range("Tabel1").Columns.Hidden = True
                .Caption = "Toon F tot K"
            Else
                Range("Tabel1").Columns.Hidden = False
                .Caption = "Verberg F tot K"
            End If
        End With
    End Sub
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  7. #7
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Quote Origineel gepost door appie36 Bekijk Bericht
    Helemaal goed zo, ik had bij eigenschappen zitten klungelen maar kreeg het niet voor elkaar. Niet verwacht dat het op deze manier moest.
    Bij de eigenschappen kan je maar 1 achtergrondkleur opgeven en niet per status, wat er ook nog drie kunnen zijn. Dat moet dus in de code.
    Neem ook het voorstel van jkpieterse in overweging. Dat is geen antwoord op je vraag maar wel een betere oplossing voor de gewenste functionaliteit.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  8. #8
    Oke, als ik het dus met een kleur wil doen dan de toggle button. Als ik het met tekst wil doen het idee van pieterse?

    Bedankt voor de snelle reacties

  9. #9
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ook die van jkpieterse kan desgewenst met kleur, maar de tekst op de knop geeft dan al de status aan.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  10. #10
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Het kan ook met het lint:
    Attached Files Attached Files
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  11. #11
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dat is ook een oplossing, maar dan zou ik wel de tekst op de knop aanpassen na iedere actie.
    Kopie van __verberg_snb.xlsm

    Bijbehorende CustomUI:
    PHP Code:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"
              onLoad="snb_RibbonUI_onLoad">
        <ribbon>
            <tabs>
                <tab id="T_00" label="SNB">
                    <group id="G_00">
                        <button id="B_01" 
                         getLabel="getLabel"
                         size="large"
                         imageMso="Refresh"
                         onAction="M_snb"/>
                    </group>
                </tab>
            </tabs>
        </ribbon>
    </customUI>
    Laatst aangepast door edmoor : 13 februari 2018 om 22:08 Reden: CustomUI toegevoegd.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  12. #12
    Die oplossing van snb is wel heel erg mooi, edmoor maakt het nog mooier. Maar ik heb geen idee waar ik die php code moet invullen. Ziet er wel indrukwekkend uit als je zelf het lint kan aanpassen.

  13. #13
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Het is geen PHP code maar XML. Ik heb alleen vanwege de layout hier de PHP tag gebruikt.
    Lees, huiver en leer
    https://www.rondebruin.nl/win/s2/win001.htm
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  14. #14
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  15. #15
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Das ist eine sehr vollständige Seite
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  16. #16
    Dat lijkt me meer wat voor de lange winter avonden om hier in te duiken. Sta er wel van te kijken wat er allemaal mogelijk is.


    Inmiddels heb ik het toch maar met togglebutton gedaan die ik op een UserForm het gezet. Dit werkt bijna naar wens, alleen als je het userform voor de eerste keer opent zijn alle knoppen grijs. Als ik ze aanklik komt de kleur pas voor de dag. Ik ben nog aan het proberen of ik alle ToggleButtons met 1 knop kan resetten of zo.

    Alleen deze vraaag nog als opgelost zetten maar weet niet waar ik dat moet doen.

    Allemaal bedankt voor de bijdrage.

    Mvg
    Appie

  17. #17
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Je kan in de Workbook_Open de togglebuttons een standaard kleur en waarde geven.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  18. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren