Consulting

Results 1 to 16 of 16

Thread: RibbonX - Setting pressed state of Checkbox control at runtime

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #5
    VBAX Sage
    Joined
    Apr 2007
    Location
    United States
    Posts
    8,887
    Location
    Try this menu version and see if it's closer

    No images or anything and all it does is check/uncheck


    Option Explicit
    
    Dim B1 As Boolean, B2 As Boolean, B3 As Boolean, B4 As Boolean
    Dim oRibbon As IRibbonUI
    
    
    'Callback for customUI.onLoad
    Sub OnRibbonLoad(ribbon As IRibbonUI)
        
        Set oRibbon = ribbon
        
        B1 = True
        B2 = False
        B3 = False
        B4 = False
        oRibbon.Invalidate
    End Sub
    
    
    
    'Callback for  onAction
    Sub OnAction(control As IRibbonControl, pressed As Boolean)
        B1 = False
        B2 = False
        B3 = False
        B4 = False
        
        Select Case control.ID
            Case "MenuToggleButton1"
                B1 = True
            Case "MenuToggleButton2"
                B2 = True
            Case "MenuToggleButton3"
                B3 = True
            Case "MenuToggleButton4"
                B4 = True
        End Select
        
        oRibbon.Invalidate
        
    End Sub
    
    
    
    'Callback for getPressed
    Sub GetPressed(control As IRibbonControl, ByRef returnedVal)
        Select Case control.ID
            Case "MenuToggleButton1"
                returnedVal = B1
            Case "MenuToggleButton2"
                returnedVal = B2
            Case "MenuToggleButton3"
                returnedVal = B3
            Case "MenuToggleButton4"
                returnedVal = B4
        End Select
    End Sub
    
    
    Attached Files Attached Files
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •