Drop command bar split button with code : Thank you for that, will give...

Tue, 05 May 2015 11:26:09 +0000

Author: Mr.Den
Subject: 22528
Posted: 05 May 2015 at 11:26am

Thank you for that, will give it a try.

Drop command bar split button with code : Create a toolbar and add the controls...

Sat, 18 Apr 2015 05:38:23 +0000

Author: gibra
Subject: 22528
Posted: 18 April 2015 at 5:38am

Create a toolbar and add the controls as you need:

With CommandBars1
    Set cToolbar = .Add("Toolbar", xtpBarTop)
End With

Dim btnSplit As CommandBarControl
Set btnSplit = AddControl(cToolbar.Controls, xtpControlSplitButtonPopup, ID_16_HELP, "Help", True, "Open help")
With btnSplit
    .CommandBar.Controls.Add xtpControlButton, ID_16_CONTACTUS, "Contact us"
    .CommandBar.Controls.Add xtpControlButton, ID_16_ABOUT, "About"
End With

Later, you simulate the DrowDown behavior:

Private Sub PushButton1_Click()    Dim btn As CommandBarControl
    With CommandBars1
        Set btn = .FindControl(xtpControlSplitButtonPopup, ID_16_HELP, , True)
        If Not btn Is Nothing Then
            btn.SetFocus
            SendKeys "{F4}{Down}"
        End If
    End With
End Sub

Generic AddControl function:

Public Function AddControl(Controls As CommandBarControls, ControlType As XTPControlType, ID As Long, Caption As String, Optional BeginGroup As Boolean = False, Optional DescriptionText As String = "", Optional ButtonStyle As XTPButtonStyle = xtpButtonAutomatic, Optional Category As String = "Controls") As CommandBarControl
    Dim Control As CommandBarControl
    Set Control = Controls.Add(ControlType, ID, Caption)
    
    Control.BeginGroup = BeginGroup
    Control.DescriptionText = DescriptionText
    Control.Style = ButtonStyle
    Control.Category = Category
    
    Set AddControl = Control
    
End Function

Drop command bar split button with code : Is there any way to have a command...

Mon, 02 Feb 2015 10:34:32 +0000

Author: Mr.Den
Subject: 22528
Posted: 02 February 2015 at 10:34am

Is there any way to have a command bar button (xtpControlSplitButtonPopup) drop down or open like the combo control does by setting the '.DroppedState = True' property?

Codejock Developer Community : Drop command bar split button with code

Drop command bar split button with code : Thank you for that, will give...

Drop command bar split button with code : Create a toolbar and add the controls...

Drop command bar split button with code : Is there any way to have a command...