checkbox ribbon

[glda19]

Hi
Wat ik zou willen is als er geen status van de checkbox is in het register staat of er staat een waarde en die is waar dan zou er een vinkje moet zichtbaar zijn.

Maar dit gebeurt niet.

Wat doe ik fout

Al vast bedankt voor de help

 

[glda19]

Pas ik de Checkbox1_getPressed zo aan dan wel maar niet zoals ik het programma.
die Msgbo is enkel om te zien of de code word uitgevoerd

 Sub Checkbox1_getPressed(control As IRibbonControl, ByRef returnedval)
   Dim test As Boolean
    test = GetSetting("RibbonTestGlenn", "checkbox", "NR1", True)
        returnedval = test
       MsgBox "checkbox glenn is nu: " '& returnedval

 

[Haije]

Kun je een nieuwe poging doen om uit te leggen wat je bedoelt?

 

[glda19]

wil de status van de checkbox opslaan in het register en dan uitlezen bij herstarten en dan het vinkje al dan niet zichtbaar zetten of niet

 

[jkpieterse]

SaveSetting slaat standaard een string op, dus je moet bij GetSetting converteren naar het juiste type:

'Callback for checkBox getPressed
Sub Checkbox1_getPressed(control As IRibbonControl, ByRef returnedVal)
  returnedVal = CBool(GetSetting("RibbonTestGlenn", "checkbox", "NR1", True))
End Sub

 

[glda19]

hoe de ik het voorbeeld werkt niet
graag dit aanpassen

 

[jkpieterse]

hoe de ik het voorbeeld werkt niet
graag dit aanpassen

Ehm, wat?

 

[glda19]

Heb nog een vraag je
Een vriend heeft een voorbeeld gemaakt
Zijn uit leg is het volgende
Returnedval is een variant (subtype string) gezien niet explicit aangegeven. Geen bool
Dit wordt in het register geschreven als reg_sz(string) op plaats Computer\HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Verlofkalender\checkboxState
In het Nederlands wordt dit dus ook waar en onwaar geschreven en niet true of false terwijl als je het omzet naar bool dan staat er wel true/false

Sub cbClicked(control As IRibbonControl, pressed As Boolean)
  MsgBox "checkbox is nu: " & pressed
  SaveSetting "RibbonTest", "checkbox", "NR1", pressed
End Sub

'Callback for checkBox getPressed
Sub IsCBToggled(control As IRibbonControl, ByRef returnedVal)
  returnedVal = GetSetting("RibbonTest", "checkbox", "NR1", True)
End Sub

Als ik het goed begrijpt zou er ook al werk je met een nerderlandse versie maar zou je in het register een true /false schrijven daar het zegt pressed as boolean.
Maar ik zie er waar of onwaar staan geen true of false.

In mijn voorbeeld zelfde toe gepast.

Wat schrijven we weg in het register een boolean of een string zoja een boolean wat zou er moeten staan ?
Hoe een boolean opslaan in het register

Is bovenstaande code de correcte code.

jkpieterse sorry was te snel met vorige post.
Uw oplossing niet goed gelezen.

 

[jkpieterse]

Zie #5

 

[glda19]

In # 5 dat ik een string weg schrijf
Maar volgens de code is pressed een boolean.
Wat zou er dan in het register moeten staan ?

 cbClicked(control As IRibbonControl, pressed As Boolean)
  MsgBox "checkbox is nu: " & pressed
  SaveSetting "RibbonTest", "checkbox", "NR1", pressed
End Sub

'Callback for checkBox getPressed
Sub IsCBToggled(control As IRibbonControl, ByRef returnedVal)
  returnedVal = GetSetting("RibbonTest", "checkbox", "NR1", True)
End Sub

 

[jkpieterse]

In #5 laat ik zien hoe je van die string weer een boolean maakt, met cbool dus. Dat is alles wat je nodig hebt.