The eXRibbon component, similar with the Microsoft Office's "Fluent User Interface", or Ribbon, allows you to display graphical control elements in the form of a set of toolbars placed on several tabs. The eXRibbon component is written from scratch, uses EBN technology to let the user changes its visual appearance using skins, and requires no dependencies to Microsoft Office, Microsoft Ribbon API, or any other third party library. The major difference between our ribbon implementation and others, is that you can display and use built-editors ( like sliders, spin, progress, ... ) anywhere on the control.

(all)
(all)

194:

How can I display the drop down panel to a specified location only

With Exribbon1
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
With .Items
With .Add("Popup",2,100)
.ShowPopupArrow = False
.ShowPopupAlign = exontrol.EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown
.ShowPopupOffset = "0:screen,0:screen"
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
.Refresh()
End With

193:

How can I displays the drop down bellow the control, rather than item itself

With Exribbon1
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
With .Items
With .Add("Popup <b>1",2,100)
.ShowPopupArrow = False
.ShowPopupAlign = exontrol.EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown
.ShowPopupOffset = "0,0:control"
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
With .Add("Popup <b>2",2,200)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
End With
End With
End With
.Refresh()
End With

192:

How can I change the visual appearance of the progress bar

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(&H104,&H1000000)
With .Items
With .Add("Progress")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
.EditWidth = -128
.EditValue = 25
End With
End With
.Refresh()
End With

191:

How can I change the progress's color

With Exribbon1
.set_Background(&H104,Color.FromArgb(255,0,0))
With .Items
With .Add("Progress")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
.EditWidth = -128
.EditValue = 25
End With
End With
.Refresh()
End With

190:

I am using the Item.Visible property on False to hide the item, but the editor is still visible

' CheckItem event - Occurs when the user checks the item.
Private Sub Exribbon1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.CheckItem
With Exribbon1
With .Items.Item(1000)
.Visible = True
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
End With
.Refresh()
End With
End Sub
' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Exribbon1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.UncheckItem
With Exribbon1
With .Items.Item(1000)
.Visible = False
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemDisableEdit
End With
.Refresh()
End With
End Sub
With Exribbon1
With .Items
With .Add("",2)
With .Items
.Add("Visible")
With .Add("")
.Check = True
.Checked = True
End With
With .Add("Item 2",,1000)
.ItemHeight = 18
.Caption = "Percent"
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
.EditValue = 50
.Visible = True
End With
.Add("Visible")
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
End With
.Refresh()
End With

189:

How can I change the color of a disabled item

With Exribbon1
With .Items
With .Add("Disabled",2,0)
.ForeColor = Color.FromArgb(255,0,0)
.Items.Add("")
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.ShowPopupArrow = False
End With
.Add("Disabled").Enabled = False
End With
.Refresh()
End With

With Exribbon1
With .Items
.Add("Item 1").ID = 1000
.Add("Item 2").ID = 1001
End With
.Item(1000).Bold = True
.Refresh()
End With

179:

Can I change the cursor where it hovers the item

With Exribbon1
.Cursor = "exCross"
With .Items
.Add("Item 1")
.Add("Item 2").Cursor = "exNoDrop"
End With
.Refresh()
End With

178:

I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

With Exribbon1
.AllowToggleRadio = True
With .Items
With .Add("Radio 1",,1000)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.Radio = True
.RadioGroup = 100
End With
End With
.Refresh()
End With

177:

Is it possible to display the item's identifiers

With Exribbon1
.Debug = True
With .Items
.Add("Item 1").ID = 10001
.Add("Item 2").ID = 10002
End With
.Refresh()
End With

176:

How do I disable showing the tooltip for all control (method 2)

With Exribbon1
.AllowToolTip = False
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

175:

How can I lock the control, so no events occur, but no shown in gray as Enabled do

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "SelectItem should not be fired while locked" )
End With
End Sub
With Exribbon1
.Locked = True
With .Items
.Add("Disabled").Enabled = False
.Add("Item 2")
.Add("Item 3")
End With
.Refresh()
End With

174:

How can I disable the control

With Exribbon1
.Enabled = False
With .Items
.Add("Disabled").Enabled = False
.Add("Item 2")
.Add("Item 3")
End With
.Refresh()
End With

173:

How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)

How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.LocalAppearance = &H1000000
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
End With
End With
End With
End With
.Refresh()
End With

170:

How can I specify a different border for drop down portion of the select buttons/combobox

With Exribbon1
.LocalAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
End With
End With
End With
End With
.Refresh()
End With

With Exribbon1
.Appearance = exontrol.EXRIBBONLib.AppearanceEnum.FlatBorder
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
With .Add("Check 1")
.Checked = True
.Check = True
End With
With .Add("Check 2")
.Check = True
End With
End With
.Refresh()
End With

167:

Is it possible to change the item's background color when check/uncheck the item

With Exribbon1
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight
With .Items
.Padding = "4,4,4,4"
With .Add("Check 1")
.Checked = True
.Check = True
End With
With .Add("Check 2")
.Check = True
End With
End With
.Refresh()
End With

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
.Add(3,"c:\exontrol\images\hot.ebn")
End With
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,&H1000000)
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,&H1000000)
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,&H2000000)
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,&H3000000)
.set_Background(exontrol.EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSolid,Color.FromArgb(255,0,0))
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Vertical",2)
.Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
End With
End With
.Add("").CaptionWidth = 12
With .Add("Vertical",2)
.Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.Add("Item 4")
.Add("Item 5")
End With
End With
End With
End With
End With
.Refresh()
End With

How can I change the visual appearance of the drop down of the control (normal.2)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.PopupFlatImageWidth = 0
With .Items
With .Add("Popup",2).Items
.Add("Item 1").Check = True
.Add("Item 2").Check = True
.Add("Item 3").Check = True
.PopupAppearance = &H1000000
End With
End With
.Refresh()
End With

161:

How can I change the visual appearance of the drop down of the control (normal.1)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.PopupFlatAppearance = False
With .Items
With .Add("Popup",2).Items
.Add("Item 1").Check = True
.Add("Item 2").Check = True
.Add("Item 3").Check = True
.PopupAppearance = &H1000000
End With
End With
.Refresh()
End With

160:

How can I change the visual appearance of the drop down of the control (flat)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.PopupFlatBackColor32 = &H2000000
.set_Background(exontrol.EXRIBBONLib.BackgroundPartEnum.exMenuFlatLineColor,.PopupFlatBackColor)
With .Items
With .Add("Popup",2).Items
.Add("Item 1").Check = True
.Add("Item 2").Check = True
.Add("Item 3").Check = True
.PopupAppearance = &H1000000
End With
End With
.Refresh()
End With

159:

How can I change the visual appearance of the flat portion of the drop down of the control

How can I change the visual appearance of the radio-buttons to be displayed in the ribbon control (ebn)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exRadioButtonState0,&H1000000)
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exRadioButtonState1,&H2000000)
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Radio 1",,1000)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.Radio = True
.RadioGroup = 100
End With
.Item(1000).Checked = True
End With
End With
End With
.Refresh()
End With

157:

How can I change the visual appearance of the check-boxes to be displayed in the ribbon control (ebn)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exCheckBoxState0,&H1000000)
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exCheckBoxState1,&H2000000)
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Check 1")
.Check = True
.Checked = True
End With
.Add("Check 2").Check = True
End With
End With
End With
.Refresh()
End With

156:

How can I change the visual appearance of the tooltips to be displayed in the ribbon control (ebn)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.ToolTipDelay = 1
.set_Background32(exontrol.EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
.set_Background(exontrol.EXRIBBONLib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(255,0,0))
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

155:

Is it possible to change the visual appearance of the buttons to be displayed in the ribbon control (ebn)

With Exribbon1
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
.set_Background32(&H2,&H1000000)
.set_Background32(&H3,&H2000000)
.set_Background(exontrol.EXRIBBONLib.BackgroundPartEnum.exMenuSeparatorSelectButton,Color.FromArgb(255,0,0))
.set_Background(exontrol.EXRIBBONLib.BackgroundPartEnum.exMenuSeparatorSelectButtonBottom,Color.FromArgb(0,0,255))
With .Items
.Padding = "4,4,4,4"
.Add("Button").ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButton
With .Add("")
.Enabled = False
.ItemHeight = 4
End With
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
With .Add("")
.Enabled = False
.ItemHeight = 4
End With
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
.Refresh()
End With

154:

I've seen that the width of the tooltip is variable. Can I make it larger

With Exribbon1
.ToolTipWidth = 328
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

153:

How do I disable showing the tooltip for all control (method 1)

With Exribbon1
.ToolTipDelay = 0
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

152:

How do I let the tooltip being displayed longer

With Exribbon1
.ToolTipPopDelay = 10000
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

151:

How do I show the tooltip quicker

With Exribbon1
.ToolTipDelay = 1
With .Items
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
.Add("Item").Tooltip = "this is a bit of text to be shown when cursor hovers it"
End With
.Refresh()
End With

150:

How can I get the version of the control I am running

With Exribbon1
Debug.Print( .Version )
End With

149:

How can I align the picture on the control's background

With Exribbon1
.Picture = Exribbon1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
.PictureDisplay = exontrol.EXRIBBONLib.PictureDisplayEnum.UpperRight
With .Items
.Add("Item")
.Add("Item")
End With
.Refresh()
End With

148:

Is it possible to place a picture on the control's background

With Exribbon1
.Picture = Exribbon1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
With .Items
.Add("Item")
.Add("Item")
End With
.Refresh()
End With

147:

How can I display the item using a different font/size

With Exribbon1
With .Items
.Add("").Caption = "<font ;14>This is a bit of text"
.Add("<font ;6>This is a bit of text")
.Add("").Caption = "<font Times New Roman;22>This is a bit of text</font>. Default"
End With
.Refresh()
End With

146:

How can I use the Event event, available for /COM version

' Event event - Notifies the application once the control fires an event.
Private Sub Exribbon1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exribbon1.Event
With Exribbon1
Debug.Print( "Event" )
Debug.Print( .get_EventParam(-2) )
End With
End Sub
With Exribbon1
With .Items
.Add("Check").Check = True
With .Add("Slider")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditWidth = 128
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
End With
.Refresh()
End With

145:

Is it possible to get notified once the user edits the field, or change the slider value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( "EditChange event on Itm object" )
End With
End Sub
With Exribbon1
With .Items
With .Add("Item")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditWidth = 128
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditValue = 25
End With
End With
.Refresh()
End With

144:

How do I get notified once I uncheck an item

' UncheckItem event - Occurs when the user unchecks the item.
Private Sub Exribbon1_UncheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.UncheckItem
With Exribbon1
Debug.Print( "UncheckItem event on Itm object" )
End With
End Sub
With Exribbon1
With .Items
.Add("Item").Check = True
.Add("Item").Check = True
End With
.Refresh()
End With

143:

How do I get notified once I check an item

' CheckItem event - Occurs when the user checks the item.
Private Sub Exribbon1_CheckItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.CheckItem
With Exribbon1
Debug.Print( "CheckItem event on Itm object" )
End With
End Sub
With Exribbon1
With .Items
.Add("Item").Check = True
.Add("Item").Check = True
End With
.Refresh()
End With

142:

How do I get notified once I click/select an item

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "SelectItem event on Itm object" )
End With
End Sub
With Exribbon1
With .Items
.Add("Item")
.Add("Item")
End With
.Refresh()
End With

141:

Does your control support padding for items

With Exribbon1
.PopupFlatAppearance = False
With .Items
.Padding = "2,12,2,2"
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.BackColor = Color.FromArgb(255,255,255)
.BackgroundExt = "root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])"
End With
.Refresh()
End With

140:

How can I display the drop down popup to a different position ( method 2 )

With Exribbon1
With .Items
With .Add("Popup",2,100)
.ShowPopupAlign = exontrol.EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown
.ShowPopupArrow = False
.ShowPopupOffset = "-12,-48"
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.RaisedBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
.Refresh()
End With

139:

How can I display the drop down popup to a different position ( method 1 )

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Popup 1",2,100)
.ShowPopupAlign = exontrol.EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown
.ShowPopupArrow = False
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.RaisedBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
With .Add("Popup 2",2,200)
.ShowPopupAt = 100
.ShowPopupArrow = False
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.RaisedBorder
.Add("Item 4")
.Add("Item 5")
.Add("Item 6")
End With
End With
End With
End With
End With
.Refresh()
End With

138:

Is it possible to show the popup bellow to the item, rather than on the right side

With Exribbon1
With .Items
With .Add("Popup",2)
.ShowPopupAlign = exontrol.EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown
.ShowPopupArrow = False
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.FlatBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

137:

How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.HotBackColor32 = &H1000000
.Padding = "4,8,4,8"
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

136:

How can I change the background color for items, when cursor hovers it (hot)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.HotBackColor = Color.FromArgb(255,0,0)
.Padding = "0,8,0,8"
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

135:

How can I change the visual appearance for items (EBN)

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.BackColor32 = &H1000000
.Padding = "4,8,4,8"
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

134:

How can I change the background color for items

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.BackColor = Color.FromArgb(255,0,0)
.Padding = "0,8,0,8"
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

133:

Is it possible to hide the popup's arrow

With Exribbon1
With .Items
With .Add("Popup",2)
.ShowPopupArrow = False
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)"
End With
.Refresh()
End With

132:

How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

With Exribbon1
.PopupFlatImageWidth = 0
With .Items
With .Add("Popup",2).Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
.Refresh()
End With

131:

How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

With Exribbon1
.PopupFlatAppearance = False
With .Items
With .Add("Popup",2).Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
.Refresh()
End With

130:

How can I arrange the drop down item from left to right, rather than top to bottom

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "Clicked" )
End With
End Sub
With Exribbon1
.PopupFlatAppearance = False
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
End With
.Add("").ToString = "Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))"
End With
.Refresh()
End With

129:

How can I add a drop down button / combobox (method 2)

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "Clicked" )
End With
End Sub
With Exribbon1
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Refresh()
End With

128:

How can I add a drop down button / combobox (method 1)

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "Clicked" )
End With
End Sub
With Exribbon1
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Refresh()
End With

127:

I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "Clicked" )
End With
End Sub
With Exribbon1
With .Items
With .Add("Button",2)
.ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize
With .Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
End With
.Refresh()
End With

126:

How can I add a button (push button)

' SelectItem event - Occurs when the user selects the item.
Private Sub Exribbon1_SelectItem(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.SelectItem
With Exribbon1
Debug.Print( "Clicked" )
End With
End Sub
With Exribbon1
With .Items
.Add("Button").ShowAsButton = exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize Or exontrol.EXRIBBONLib.ShowAsButtonEnum.exShowAsButton
.Add("").ToString = "Button[button=0x03]"
End With
.Refresh()
End With

125:

How can I display grouping items with no frame arround

With Exribbon1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("A").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.Add("BC").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.Add("D").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
End With
End With
.Add("").ToString = "Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
End With
.Refresh()
End With

124:

How can I display grouping items of the same size/width/height

With Exribbon1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("A").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.Add("BC").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.Add("D").Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
End With
End With
.Add("").ToString = "Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])"
End With
.Refresh()
End With

123:

Is it possible to display a ticker frame arround grouping items

With Exribbon1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Refresh()
End With

122:

How do I display items horizontally arranged

With Exribbon1
With .Items
With .Add("Horizontal Group",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Add("").ToString = "Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])"
End With
.Refresh()
End With

121:

Is it possible to expand an item when it is clicked (tree,group,vertical)

Is it possible to expand an item when it is clicked (tree,group,vertical)

With Exribbon1
With .Items
With .Add("Expand",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.Check = True
.ShowPopupOnChecked = True
With .Items
.Padding = "22,0,0,0"
.Add("Radio 1").Radio = True
.Add("Radio 2").Radio = True
With .Add("Radio 3")
.Radio = True
.Checked = True
End With
End With
.Checked = True
End With
End With
.Refresh()
End With

119:

Is it possible to expand an item when it is clicked (group)

With Exribbon1
With .Items
With .Add("Expand",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.ItemHeight = 24
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
End With
.Refresh()
End With

118:

Is it possible to extend an item when it is clicked

With Exribbon1
With .Items
With .Add("Expand",2)
.Check = True
.ShowPopupOnChecked = True
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
End With
.Refresh()
End With

117:

Does your control implement padding for item

With Exribbon1
With .Items
.BackColor = Color.FromArgb(250,250,250)
.Add("Item").Padding = "4,4,4,4"
.Add("").ToString = "Item[pad=4,4,4,4]"
End With
.Refresh()
End With

116:

How can I add an empty item for a horizontal group

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.ItemHeight = 12
With .Items.Add("")
.Enabled = False
.ItemHeight = 8
.CaptionWidth = 8
End With
End With
.Add("Item 2")
End With
End With
End With
.Refresh()
End With

115:

How can I add an empty/separator item

With Exribbon1
With .Items
.Add("Item")
With .Add("")
.Enabled = False
.ItemHeight = 2
.CaptionWidth = 8
.BackColor = Color.FromArgb(240,240,240)
End With
.Add("Item")
End With
.Refresh()
End With

114:

How can I add an empty/frame item

With Exribbon1
With .Items
.Add("Item 1")
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupCenter Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.ItemHeight = 12
With .Items.Add("")
.Enabled = False
.ItemHeight = 8
.CaptionWidth = 8
End With
End With
.Add("Item 2")
End With
.Refresh()
End With

113:

How can I specify the height of the item

With Exribbon1
With .Items
.BackColor = Color.FromArgb(250,250,250)
.Add("Item").ItemHeight = 64
.Add("").ToString = "Item[height=64]"
End With
.Refresh()
End With

112:

How can I specify the width of the item

With Exribbon1
With .Items
.BackColor = Color.FromArgb(250,250,250)
.Add("Item").CaptionWidth = 128
.Add("").ToString = "Item[captionwidth=128]"
End With
.Refresh()
End With

111:

How do I align the item

With Exribbon1
With .Items
.BackColor = Color.FromArgb(250,250,250)
.Add("Item")
With .Add("Item")
.Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.CaptionWidth = 128
End With
With .Add("Item")
.Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exRight
.CaptionWidth = 128
End With
.Add("").ToString = "Item[align=1]"
End With
.Refresh()
End With

110:

How can I underline the item

With Exribbon1
With .Items
.Add("Item").Underline = True
.Add("<u>Item</u>")
.Add("").ToString = "Item[und]"
End With
.Refresh()
End With

109:

How can I show the item as strikeout

With Exribbon1
With .Items
.Add("Item").Strikeout = True
.Add("<s>Item</s>")
.Add("").ToString = "Item[stk]"
End With
.Refresh()
End With

108:

How can I show the item in italics

With Exribbon1
With .Items
.Add("Item").Italic = True
.Add("<i>Item</i>")
.Add("").ToString = "Item[itl]"
End With
.Refresh()
End With

107:

How can I show the item in bold

With Exribbon1
With .Items
.Add("Item").Bold = True
.Add("<b>Item</b>")
.Add("").ToString = "Item[bld]"
End With
.Refresh()
End With

106:

How can I show the item as disabled but still be able to select or use it

With Exribbon1
With .Items
.Add("Item").ShowAsDisabled = True
.Add("").ToString = "Item[showdis=1]"
End With
.Refresh()
End With

105:

How can I enable or disable an item

With Exribbon1
With .Items
.Add("Item").Enabled = False
.Add("").ToString = "Item[dis]"
End With
.Refresh()
End With

The popup is displayed using a fade/light-up effect. Is it possible to prevent that

With Exribbon1
.ShowPopupEffect = exontrol.EXRIBBONLib.ShowPopupEffectEnum.exShowPopupDirect
With .Items
With .Add("Popup",2).Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
.Refresh()
End With

95:

How can I show semi-transparent popups

With Exribbon1
.PopupVisibility = 50
With .Items
With .Add("Popup",2).Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
.Refresh()
End With

94:

How can I change the popup's border

With Exribbon1
With .Items
With .Add("Popup",2).Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
End With
End With
.Refresh()
End With

93:

How can I show a horizontal separator/line between groups (method 3,EBN color)

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
With .Add("")
.Enabled = False
.BackColor32 = &H1000000
.ItemHeight = 8
.CaptionWidth = 128
End With
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
End With
End With
End With
.Refresh()
End With

92:

How can I show a horizontal separator/line between groups (method 2,solid color)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
With .Add("")
.Enabled = False
.BackColor = Color.FromArgb(128,128,128)
.ItemHeight = 8
.CaptionWidth = 128
End With
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
End With
End With
End With
.Refresh()
End With

91:

How can I show a horizontal separator/line between groups (method 1,pattern)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.Enabled = False
.ItemHeight = 8
.CaptionWidth = 128
End With
.BackgroundExt = "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
End With
End With
With .Add("")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = -128
.EditValue = 25
End With
End With
End With
End With
.Refresh()
End With

90:

How can I show a vertical separator/line between groups (method 3,EBN color)

How can I show a vertical separator/line between groups (method 2,solid color)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.ItemHeight = 128
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditVertical Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = 32
.EditValue = 25
End With
With .Add("")
.Enabled = False
.BackColor = Color.FromArgb(128,128,128)
.ItemHeight = 96
.CaptionWidth = 8
End With
With .Add("")
.ItemHeight = 128
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditVertical Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = 32
.EditValue = 25
End With
End With
End With
End With
.Refresh()
End With

88:

How can I show a vertical separator/line between groups (method 1,pattern)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.ItemHeight = 128
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditVertical Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = 32
.EditValue = 25
End With
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("")
.Enabled = False
.ItemHeight = 96
.CaptionWidth = 8
End With
.BackgroundExt = "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
End With
End With
With .Add("")
.ItemHeight = 128
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditVertical Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditSlider
.EditBorder = exontrol.EXRIBBONLib.EditBorderEnum.exEditBorderNone
.EditWidth = 32
.EditValue = 25
End With
End With
End With
End With
.Refresh()
End With

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.BackColor = Color.FromArgb(255,255,255)
.Padding = "0,0,0,8"
.BackgroundExt = "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
End With
.Refresh()
End With

With Exribbon1
.ToString = "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
End With

75:

How can I disable an editor (method 1)

With Exribbon1
With .Items
With .Add("Disabled")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditText
.EditWidth = -128
.EditValue = "text-box"
.Enabled = False
End With
End With
.Refresh()
End With

74:

How can I lock an editor (method 2)

With Exribbon1
.ToString = "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
End With

73:

How can I lock an editor (method 1)

With Exribbon1
With .Items
With .Add("Locked")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditReadOnly Or exontrol.EXRIBBONLib.AllowEditEnum.exItemEditText
.EditWidth = -128
.EditValue = "disabled text-box"
End With
End With
.Refresh()
End With

72:

How can I assign a font field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
With .Items
With .Add("Font")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditFont
.EditWidth = -128
.EditValue = "Tahoma"
End With
End With
.Refresh()
End With

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
With .Items
With .Add("ScrollBar")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditScrollBar
.EditWidth = -128
.EditValue = "25"
End With
End With
.Refresh()
End With

How can I hide the tooltip beging shown when I change the slider/scroll/progress value

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
With .Items
With .Add("Progress")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
.EditWidth = -128
.EditValue = 25
.set_EditOption(exontrol.EXRIBBONLib.EditOptionEnum.exEditChangeToolTip,"")
End With
End With
.Refresh()
End With

64:

How can I assign a progress field to the item (method 2)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
With .Items
With .Add("Progress")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditProgress
.EditWidth = -128
.EditValue = 25
End With
End With
.Refresh()
End With

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
With .Items
With .Add("Mask")
.AllowEdit = exontrol.EXRIBBONLib.AllowEditEnum.exItemEditText
.EditValue = "this is a text"
.EditWidth = -128
End With
End With
.Refresh()
End With

45:

How can I assign an edit / text-box to the item (method 1)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Exribbon1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXRIBBONLib.Item) Handles Exribbon1.EditChange
With Exribbon1
Debug.Print( Itm )
End With
End Sub
With Exribbon1
.ToString = "Text-Box[edit=this is a text][editwidth=-128]"
End With

How can I add check-buttons to items, without showing the check-box (method 2)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Check 1")
.Check = True
.Checked = True
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
End With
With .Add("Check 2")
.Check = True
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
End With
With .Add("Check 3")
.Check = True
.Checked = True
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
End With
End With
End With
End With
.Refresh()
End With

42:

How can I add check-buttons to items, without showing the check-box (method 1)

With Exribbon1
.ToString = "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
End With

41:

How can I add radio buttons to items, without showing the radio-buttons (method 2)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Radio 1",,1000)
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight
.Radio = True
.RadioGroup = 100
End With
.Item(1000).Checked = True
End With
End With
End With
.Refresh()
End With

40:

How can I add radio buttons to items, without showing the radio-buttons (method 1)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Check 1")
.Check = True
.Checked = True
End With
.Add("Check 2").Check = True
End With
End With
End With
.Refresh()
End With

38:

How can I add check-buttons to items (method 1)

With Exribbon1
.ToString = "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
End With

37:

How can I add radio buttons to items (method 2)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Radio 1",,1000)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1001)
.Radio = True
.RadioGroup = 100
End With
With .Add("Radio 2",,1003)
.Radio = True
.RadioGroup = 100
End With
.Item(1000).Checked = True
End With
End With
End With
.Refresh()
End With

36:

How can I add radio buttons to items (method 1)

With Exribbon1
.ToString = "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
End With

With Exribbon1
With .Items
.Add("No highlight").Enabled = False
.Add("Item 2")
.Add("Item 3")
End With
.Refresh()
End With

31:

How do I prevent highlighting the item (method 2.a)

With Exribbon1
With .Items
With .Add("No highlight",2)
.Items.Add("")
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
.ShowPopupArrow = False
End With
.Add("Item 2")
.Add("Item 3")
End With
.Refresh()
End With

How can I change the visual appearance (EBN) of the floating popups (method 2, applies to single popup)

With Exribbon1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Items
With .Add("Popup",2).Items
.PopupAppearance = &H1000000
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Refresh()
End With

15:

How can I change the visual appearance (EBN) of the floating popups (method 1, applies to all)

How can I change the visual appearance of the floating popups (method 2, applies to single popup)

With Exribbon1
With .Items
With .Add("Popup",2).Items
.PopupAppearance = exontrol.EXRIBBONLib.AppearanceEnum.ShadowBorder
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
End With
.Refresh()
End With

13:

How can I change the visual appearance of the floating popups (method 1, applies to all)

With Exribbon1
With .Items
With .Add("",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
With .Add("Horizontal",2)
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Sub-Item <b>A</b>")
.Add("Sub-Item <b>B</b>")
.Add("Sub-Item <b>C</b>")
End With
End With
.Add("").CaptionWidth = 16
With .Add("Vertical",2)
.Alignment = exontrol.EXRIBBONLib.AlignmentEnum.exCenter
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
With .Items
.Add("Sub-Item <b>A</b>")
.Add("Sub-Item <b>B</b>")
.Add("Sub-Item <b>C</b>")
End With
End With
.Add("").CaptionWidth = 16
With .Add("Popup",2)
With .Items
.Add("Sub-Item <b>A</b>")
.Add("Sub-Item <b>B</b>")
.Add("Sub-Item <b>C</b>")
End With
End With
End With
End With
End With
.Refresh()
End With

How can I arrange some items vertically, and some horizontally (method 2)

With Exribbon1
With .Items
With .Add("",2)
With .Items
.Add("1")
.Add("2")
.Add("3")
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
With .Add("",2)
With .Items
.Add("4")
.Add("5")
.Add("6")
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
With .Add("",2)
With .Items
.Add("7")
.Add("8")
.Add("9")
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
End With
.Refresh()
End With

7:

How can I arrange some items vertically, and some horizontally (method 1)

With Exribbon1
.Items.ToString = "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
.Refresh()
End With

6:

How can I assign multiple-lines to an item (method 2)

With Exribbon1
With .Items
With .Add("",2)
With .Items
.Add("Item 1").Caption = "Item <br><c><b>1"
.Add("Item 2").Caption = "Item <br><c><b>2"
.Add("Item 3").Caption = "Item <br><c><b>3"
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
End With
.Refresh()
End With

How can I add new items arranged horizontally to the ribbon control (method 2)

With Exribbon1
With .Items
With .Add("",2)
With .Items
.Add("Item 1")
.Add("Item 2")
.Add("Item 3")
End With
.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup
End With
End With
.Refresh()
End With

3:

How can I add new items arranged horizontally to the ribbon control (method 1)