Suite Pro - PushButton Styles

Print Page | Close Window

PushButton Styles

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Suite Pro
Forum Description: Topics Related to Codejock Suite Pro
URL: http://forum.codejock.com/forum_posts.asp?TID=23478
Printed Date: 26 April 2024 at 7:04am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: PushButton Styles

Posted By: gibra
Subject: PushButton Styles
Date Posted: 06 November 2017 at 10:06am

How to use the PushButton to display some items when the Style property is set to :
1 - xtpButtonDropDown
2 - xtpButtonDropDownRight
3 - xtpButtonSplitDropDown

How add/select items?

I searched in the Help file but there is no information about this.

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Replies:

Posted By: olebed
Date Posted: 06 November 2017 at 10:40am

Hello gibga,

What do you mean in "some items" ?

Regards,
Oleksandr Lebed

Posted By: gibra
Date Posted: 06 November 2017 at 11:53am

The DropDown event should be used to show a list of entries to choose from.
How do I add, list and select these items?

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Posted By: olebed
Date Posted: 07 November 2017 at 6:36am

You can use our sample for example
Samples\Controls\VB\SuiteControls\frmMain.frm

   Begin VB.Menu mnuPopup       Caption         =   "mnuPopup"
      Visible         =   0   'False
      Begin VB.Menu mnuItem1 
         Caption         =   "Option Item 1"
      End
      Begin VB.Menu mnuItem2 
         Caption         =   "Option Item 2"
      End
      Begin VB.Menu mnuItem3 
         Caption         =   "Option Item 3"
      End
   End   

Private Sub PopupButtonMenu(btn As PushButton)
    If btn.Style = xtpButtonDropDownRight Then

        Me.PopupMenu mnuPopup, , TabControl.Left + pageButtons.Left + btn.Container.Left + _
            btn.Left + btn.Width, TabControl.Top + pageButtons.Top + btn.Container.Top + btn.Top
    Else
        Me.PopupMenu mnuPopup, , TabControl.Left + pageButtons.Left + btn.Container.Left + _
            btn.Left, TabControl.Top + pageButtons.Top + btn.Container.Top + btn.Top + btn.Height
    End If
End Sub

Private Sub btnSettings_DropDown()
    PopupButtonMenu btnSettings
End Sub

so you can just edit popup menu VB.Menu

Posted By: gibra
Date Posted: 07 November 2017 at 4:51pm

your Samples\Controls\VB\SuiteControls\frmMain.frm doesn't work as you said.

When I press the btnSettings, the only thing that happens is that it prints in the Immediate window:

btnSettings_Click
btnSettings_MouseUp
btnSettings_MouseMove
and so on...

but no popup menu is opened.

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8

Posted By: olebed
Date Posted: 08 November 2017 at 4:47am

Posted By: gibra
Date Posted: 08 November 2017 at 6:30am

OK, it's all clear now.
Thank you.

-------------
gibra
CJ SuiteControl v: 13.x to 19.x
Windows 10 64bit
VS2019 - VB6.0 SP6
<a href="http://nuke.vbcorner.net/Home/tabid/36/language/en-US/Default.aspx" rel="nofollow">VS/VB 6.0 Installer v6.8