EASY QUESTION: Programmatically Open Button Popup

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

I have a commandbar button with a split/dropdown. When the button is clicked, I would like the dropdown menu to appear as if the dropdown arrow was clicked.

Private Sub CommandBarsThread_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
  If Control.Id = 18 Then 
        .....
  End If
End Sub 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
JasonG Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 July 2008 Status: Offline Points: 76	Post Options Post Reply Quote JasonG Report Post Thanks(0) Quote Reply Topic: EASY QUESTION: Programmatically Open Button Popup Posted: 25 July 2008 at 1:37pm
	I have a commandbar button with a split/dropdown. When the button is clicked, I would like the dropdown menu to appear as if the dropdown arrow was clicked. Private Sub CommandBarsThread_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl) If Control.Id = 18 Then ..... End If End Sub
	Product: Xtreme SuitePro (ActiveX) 12.0.1 Platform: Windows Vista/XP Language: Visual Basic 6.0 SP6

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 25 July 2008 at 2:38pm
	Hi, Try this: Control.Execute or CommandBars.FindControl(, ID_FILE).Execute
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option....

JasonG Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 July 2008 Status: Offline Points: 76	Post Options Post Reply Quote JasonG Report Post Thanks(0) Quote Reply Posted: 25 July 2008 at 2:49pm
	I tried that, and that gives me an 'out of stack space' error, because I'm causing an infinite loop.
	Product: Xtreme SuitePro (ActiveX) 12.0.1 Platform: Windows Vista/XP Language: Visual Basic 6.0 SP6

JasonG Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 July 2008 Status: Offline Points: 76	Post Options Post Reply Quote JasonG Report Post Thanks(0) Quote Reply Posted: 25 July 2008 at 3:01pm
	I should probably show how I am creating it as well.. an embedded frame. Dim ControlForm As CommandBarControlCustom Set ThreadBar2 = CommandBarsThread.Add("ThreadBar2", xtpBarRight) Set C = ThreadBar2.Controls.Add(xtpControlSplitButtonPopup, 18, "Move To") C.CommandBar.Controls.DeleteAll Set ControlForm = C.CommandBar.Controls.Add(xtpControlCustom, 666, "Move") ControlForm.Handle = fSendTo.hWnd
	Product: Xtreme SuitePro (ActiveX) 12.0.1 Platform: Windows Vista/XP Language: Visual Basic 6.0 SP6

strider Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 16 April 2008 Location: United States Status: Offline Points: 26	Post Options Post Reply Quote strider Report Post Thanks(0) Quote Reply Posted: 05 November 2008 at 3:41pm
	The split popup control has a commandbar object. The commandbar object has a showpopup method. I used it right in the execute event to force the menu popup to appear: Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl) Dim controlpop As CommandBarPopup If Control.ID = TBID_SplitButton Then Set controlpop = Control controlpop.CommandBar.ShowPopup end if
	ActiveX 13.2.1 Strider