176
|
How can I select an item using on its full part, not only on its icon or caption
![](images/explorerbarq176.png)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Explorerbar1_Click(ByVal sender As System.Object) Handles Explorerbar1.Click
With Explorerbar1
Debug.Print( .get_ItemFromPoint(-1,-1) )
End With
End Sub
With Explorerbar1
.HighlightItemType = exontrol.EXPLORERBARLib.HighLightItemEnum.exFull Or exontrol.EXPLORERBARLib.HighLightItemEnum.exUnion
With .Groups.Add("Group 1")
.AddItem("Item <b>1</b>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item <b>2</b>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Expanded = True
End With
End With
|
175
|
How can I change the group's color
With Explorerbar1
.BackColorGroup = Color.FromArgb(255,0,0)
.BackColorGroup2 = .BackColorGroup
.GroupAppearance = exontrol.EXPLORERBARLib.AppearanceEnum.exNone
With .Groups
.Add("Group 1")
.Add("Group 2")
End With
End With
|
174
|
How can remove the group's appearance
With Explorerbar1
.BackColorGroup = .BackColor
.BackColorGroup2 = .BackColor
.GroupAppearance = exontrol.EXPLORERBARLib.AppearanceEnum.exSingle
With .Groups
.Add("Group 1")
.Add("Group 2")
End With
End With
|
173
|
How can I align the group/item
With Explorerbar1
.BeginUpdate()
With .Groups.Add("Group 1")
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.AddItem("Item 1").Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.Expanded = True
End With
.EndUpdate()
End With
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
![](images/explorerbarq172.png)
' AddGroup event - Occurs when a new group is added to collection.
Private Sub Explorerbar1_AddGroup(ByVal sender As System.Object,ByVal Group As exontrol.EXPLORERBARLib.Group) Handles Explorerbar1.AddGroup
With Explorerbar1
With Group
End With
End With
End Sub
' AddItem event - Occurs when a new item is added to a group.
Private Sub Explorerbar1_AddItem(ByVal sender As System.Object,ByVal Item As exontrol.EXPLORERBARLib.Item) Handles Explorerbar1.AddItem
With Explorerbar1
With Item
End With
End With
End Sub
With Explorerbar1
.BeginUpdate()
.Appearance = exontrol.EXPLORERBARLib.AppearanceEnum.exNone
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"CP:1 48 12 -24 0")
.Add(3,"c:\exontrol\images\pushed.ebn")
End With
.set_HTMLPicture("uk","c:\exontrol\images\zipdisk.gif")
.set_HTMLPicture("brazil","c:\exontrol\images\auction.gif")
.set_HTMLPicture("sweden","c:\exontrol\images\colorize.gif")
.BackColorGroup32 = &H2000000
.BackColorGroup2 = .BackColorGroup
.GroupHeight = 40
With .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
.set_BackgroundExtValue(exontrol.EXPLORERBARLib.IndexExtEnum.exIndexExt2,exontrol.EXPLORERBARLib.BackgroundExtPropertyEnum.exTextExt,"<img>uk:44</img>")
.AddItem("London Eye")
.AddItem("Tower of London")
.AddItem("Buckingham Palace")
.AddItem("River Thames")
.AddItem("Stonehenge")
End With
With .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
.set_BackgroundExtValue(exontrol.EXPLORERBARLib.IndexExtEnum.exIndexExt2,exontrol.EXPLORERBARLib.BackgroundExtPropertyEnum.exTextExt,"<img>brazil:44</img>")
.AddItem("Cristo Redentor")
.AddItem("Copacabana")
.AddItem("Ipanema, Rio de Janeiro")
.AddItem("Iguazu Falls")
.AddItem("Sugarloaf Mountain")
.Expanded = True
End With
With .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
.set_BackgroundExtValue(exontrol.EXPLORERBARLib.IndexExtEnum.exIndexExt2,exontrol.EXPLORERBARLib.BackgroundExtPropertyEnum.exTextExt,"<img>sweden:44</img>")
.AddItem("Gamla stan")
.AddItem("Vasa Museum")
.AddItem("Stockholm Palace")
.AddItem("Skansen")
.AddItem("Djurgården")
End With
.EndUpdate()
End With
|
171
|
Can I specify a different colors for groups using your EBN files
![](images/explorerbarq171.png)
With Explorerbar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.BackColorGroup32 = &H1000000
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor32 = &H100aabb
End With
|
170
|
Can I change the color of the control's border (EBN files)
![](images/explorerbarq170.png)
With Explorerbar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Appearance = &H1aabbc8 Or exontrol.EXPLORERBARLib.AppearanceEnum.exDrop
End With
|
169
|
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
With Explorerbar1
.BeginUpdate()
.GroupHeight = 48
With .Groups
.Add("Group 1")
.Add("Group 2")
.Add("Group 3")
.Add("Group 4")
.Add("Group 5")
.Add("Group 6")
.Add("Group 7")
.Add("Group 8")
.Add("Group 9")
.Add("Group 10")
.Add("Group 11")
With .Add("Group 12")
.AddItem(0)
.AddItem(1)
.AddItem(2)
End With
End With
.EnsureVisible(11,2)
.EndUpdate()
End With
|
168
|
How can I scroll to the end of the groups
![](images/explorerbarq168.png)
With Explorerbar1
.BeginUpdate()
.GroupHeight = 48
With .Groups
.Add("Group 1")
.Add("Group 2")
.Add("Group 3")
.Add("Group 4")
.Add("Group 5")
.Add("Group 6")
.Add("Group 7")
.Add("Group 8")
.Add("Group 9")
.Add("Group 10")
.Add("Group 11")
.Add("Group 12")
End With
.EnsureVisible(11)
.EndUpdate()
End With
|
167
|
How can I display an item by multiple lines
![](images/explorerbarq167.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("SingleLine")
With .AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.SingleLine = False
End With
.AddItem("Item 3")
.Expanded = True
End With
End With
|
166
|
How can I indent an item
![](images/explorerbarq166.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1").Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
With .AddItem("Sub Item <b>1</b>")
.CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.Indent = 12
End With
With .AddItem("Sub Item <b>2</b>")
.CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.Indent = 12
End With
With .AddItem("Sub Item <b>3</b>")
.CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.Indent = 12
End With
With .AddItem("Sub Sub Item <b>3</b>")
.CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.Indent = 24
End With
With .AddItem("Item 2")
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
End With
.Expanded = True
End With
End With
|
165
|
How can I use HTML format to display my item
![](images/explorerbarq165.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
164
|
How can I assign a tooltip to an item
![](images/explorerbarq164.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
.AddItem("Item 3")
.Expanded = True
End With
End With
|
163
|
How can I show or hide an item
![](images/explorerbarq163.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Visible = False
.AddItem("Item 3")
.Expanded = True
End With
End With
|
162
|
How can I align an icon for an item
![](images/explorerbarq162.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
With .AddItem("Item 1")
.Image = 1
.ImageAlignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
End With
With .AddItem("Item 2")
.Image = 2
.ImageAlignment = exontrol.EXPLORERBARLib.AlignmentEnum.exRight
End With
.Expanded = True
End With
End With
|
161
|
How can I stop highlighting an item
![](images/explorerbarq161.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2 - no ").AllowHighLight = False
.AddItem("Item 3")
.Expanded = True
End With
End With
|
160
|
How can I change the item's background color
![](images/explorerbarq160.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
With .AddItem("Item 2")
.BackColor = Color.FromArgb(255,0,0)
.BackColor2 = Color.FromArgb(255,255,255)
End With
.AddItem("Item 3")
.Expanded = True
End With
End With
|
159
|
How can I change the item's background color
![](images/explorerbarq159.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
158
|
How can I change the item's foreground color
![](images/explorerbarq158.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").ForeColor = Color.FromArgb(255,0,0)
.AddItem("Item 3")
.Expanded = True
End With
End With
|
157
|
How can I change the visual appearance of the item using your EBN files
![](images/explorerbarq157.png)
With Explorerbar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor32 = &H1000000
.AddItem("Item 3")
.Expanded = True
End With
End With
|
156
|
How can I change the item's background color
![](images/explorerbarq156.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").BackColor = Color.FromArgb(255,0,0)
.AddItem("Item 3")
.Expanded = True
End With
End With
|
155
|
How can I get the group of the item
![](images/explorerbarq155.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Group.Bold = True
.AddItem("Item 3")
.Expanded = True
End With
End With
|
154
|
How can I get the index of the item
![](images/explorerbarq154.png)
With Explorerbar1
With .Groups.Add("Group 1")
With .AddItem("Item 1")
.Caption = .Index
End With
With .AddItem("Item 2")
.Caption = .Index
End With
With .AddItem("Item 3")
.Caption = .Index
End With
.Expanded = True
End With
End With
|
153
|
How can I draw underlined an item
![](images/explorerbarq153.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<u>Item</u> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
152
|
How can I draw underlined an item
![](images/explorerbarq152.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Underline = True
.AddItem("Item 3")
.Expanded = True
End With
End With
|
151
|
How can I draw as strikeout an item
![](images/explorerbarq151.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<s>Item</s> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
150
|
How can I draw as strikeout an item
![](images/explorerbarq150.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").StrikeOut = True
.AddItem("Item 3")
.Expanded = True
End With
End With
|
149
|
How can I draw as italic an item
![](images/explorerbarq149.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<i>Item</i> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
148
|
How can I draw as italic an item
![](images/explorerbarq148.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Italic = True
.AddItem("Item 3")
.Expanded = True
End With
End With
|
147
|
How can I add a anchor or a hyperlink
![](images/explorerbarq147.png)
With Explorerbar1
.HighlightItemType = exontrol.EXPLORERBARLib.HighLightItemEnum.exNoHighlight
.HandCursor = False
With .Groups.Add("Group 1")
.AddItem("Link <a1><b>1</b></a>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Link <a2><b>2</b></a>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Expanded = True
End With
End With
|
146
|
How do I bold an item
![](images/explorerbarq146.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("<b>Item</a> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 3")
.Expanded = True
End With
End With
|
145
|
How do I bold an item
![](images/explorerbarq145.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Bold = True
.AddItem("Item 3")
.Expanded = True
End With
End With
|
144
|
How can I align an item
![](images/explorerbarq144.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
.ItemHeight = 28
.AddItem("Left",1).Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
.AddItem("Center",2).Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exCenter
.AddItem("Right",3).Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exRight
.AddItem("Middle",1).Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exMiddle
.Expanded = True
End With
End With
|
143
|
How can I assign some extra data to an item
![](images/explorerbarq143.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1").UserData = "your data"
.AddItem("Item 2")
.AddItem("Item 3")
.Expanded = True
End With
End With
|
142
|
How can I assign or display an icon for an item
![](images/explorerbarq142.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
.Expanded = True
End With
End With
|
141
|
How can I assign or display an icon for an item
![](images/explorerbarq141.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
.Expanded = True
End With
End With
|
140
|
How can I assign or display an icon for an item
![](images/explorerbarq140.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
.AddItem("Item 1",1)
.AddItem("Item 2",2)
.AddItem("Item 3",3)
.Expanded = True
End With
End With
|
139
|
How can I change the item's position
![](images/explorerbarq139.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3").Position = 0
.Expanded = True
End With
End With
|
138
|
How can I change the item's caption
![](images/explorerbarq138.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2").Caption = "new caption"
.AddItem("Item 3")
.Expanded = True
End With
End With
|
137
|
How do I add new items
![](images/explorerbarq137.png)
With Explorerbar1
.Groups.Add("Group 1").AddItem("Item 1").Bold = True
End With
|
136
|
How do I assign a group to a set in the shortcut bar
![](images/explorerbarq136.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
End With
|
135
|
How can I show or hide the expanding or collapsing button
![](images/explorerbarq135.png)
With Explorerbar1
.Groups.Add("Group 1").AddItem("Item 1")
With .Groups.Add("Group 2, expanding/collapsing button is missing ")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = True
.AllowExpand = False
End With
.Groups.Add("Group 3").AddItem("Item 1")
End With
|
134
|
How can I avoid expanding or collapsing a group
![](images/explorerbarq134.png)
With Explorerbar1
.Groups.Add("Group 1").AddItem("Item 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = True
.AllowExpand = False
End With
.Groups.Add("Group 3").AddItem("Item 1")
End With
|
133
|
How can I assign a tooltip to a group
![](images/explorerbarq133.png)
With Explorerbar1
.ToolTipDelay = 1
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
End With
|
132
|
How can I display HTML text in the group's caption
![](images/explorerbarq132.png)
With Explorerbar1
.GroupHeight = 44
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
![](images/explorerbarq131.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = True
.AllowScroll = False
End With
.Groups.Add("Group 3")
End With
|
130
|
How can I change the group's background color ( gradient )
![](images/explorerbarq130.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.BackColor = Color.FromArgb(255,0,0)
.BackColor2 = Color.FromArgb(255,255,255)
End With
.Groups.Add("Group 3")
End With
|
129
|
How can I access the bounding rectangle of the group's area
![](images/explorerbarq129.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem(.Top)
.AddItem(.Left)
.AddItem(.Width)
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
128
|
How can I expand or collapse a group
![](images/explorerbarq128.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
127
|
How can I specify the height of the items
![](images/explorerbarq127.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ItemHeight = 13
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
126
|
How do I put a picture on the group's background
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = Explorerbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = exontrol.EXPLORERBARLib.PictureDisplayEnum.UpperRight
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
125
|
How do I put a picture on the group's background
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.Picture = Explorerbar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
124
|
How can I change the foreground color for items
![](images/explorerbarq124.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.ForeColorList = Color.FromArgb(255,0,0)
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
123
|
How can I change the background color for the items
![](images/explorerbarq123.png)
With Explorerbar1
.Groups.Add("Group 1")
With .Groups.Add("Group 2")
.AddItem("Item 1")
.AddItem("Item 2")
.BackColorList = Color.FromArgb(255,0,0)
.Expanded = True
End With
.Groups.Add("Group 3")
End With
|
122
|
How can I change the group's foreground color
![](images/explorerbarq122.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Groups.Add("Group 3")
End With
|
121
|
How can I change the group's foreground color
![](images/explorerbarq121.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").ForeColor = Color.FromArgb(255,0,0)
.Groups.Add("Group 3")
End With
|
120
|
How can I change the group's background color
![](images/explorerbarq120.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
.Groups.Add("Group 3")
End With
|
119
|
How can I change the visual appearance of the group, using EBN files
![](images/explorerbarq119.png)
With Explorerbar1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.GroupAppearance = exontrol.EXPLORERBARLib.AppearanceEnum.exSingle
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor32 = &H1000000
.Groups.Add("Group 3")
End With
|
118
|
How can I change the group's background color
![](images/explorerbarq118.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").BackColor = Color.FromArgb(255,0,0)
.Groups.Add("Group 3")
End With
|
117
|
How do I get the index of the group
![](images/explorerbarq117.png)
With Explorerbar1
With .Groups.Add("Group 1")
.Caption = .Index
End With
With .Groups.Add("Group 2")
.Caption = .Index
End With
With .Groups.Add("Group 3")
.Caption = .Index
End With
End With
|
116
|
How can I underline the group's name
![](images/explorerbarq116.png)
With Explorerbar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
115
|
How can I underline the group's name
![](images/explorerbarq115.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Underline = True
.Groups.Add("Group 3")
End With
|
114
|
How can I show the group's name as strikeout
![](images/explorerbarq114.png)
With Explorerbar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
113
|
How can I show the group's name as strikeout
![](images/explorerbarq113.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").StrikeOut = True
.Groups.Add("Group 3")
End With
|
112
|
How can I draw as italic the group's name
![](images/explorerbarq112.png)
With Explorerbar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
111
|
How do I draw italic the group's name
![](images/explorerbarq111.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Italic = True
.Groups.Add("Group 3")
End With
|
110
|
How do I bold the group's name
![](images/explorerbarq110.png)
With Explorerbar1
.Groups.Add("<b>Group</b> 1").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
109
|
How do I bold the group's name
![](images/explorerbarq109.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2").Bold = True
.Groups.Add("Group 3")
End With
|
108
|
How can I align the icon in the group's caption
![](images/explorerbarq108.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Groups.Add("Group 1")
.Image = 1
.ImageAlignment = exontrol.EXPLORERBARLib.AlignmentEnum.exRight
.Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exRight
End With
End With
|
107
|
How can I align the group's name
![](images/explorerbarq107.png)
With Explorerbar1
.Groups.Add("Group 1").Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exRight
End With
|
106
|
How can I align the group's name
![](images/explorerbarq106.png)
With Explorerbar1
.Groups.Add("Group 1").Alignment = exontrol.EXPLORERBARLib.AlignmentEnum.exLeft
End With
|
105
|
How can I assign some extra data to a group
![](images/explorerbarq105.png)
With Explorerbar1
.Groups.Add("Group 1").UserData = "your data"
End With
|
104
|
How can I display an icon in the group's caption
![](images/explorerbarq104.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = exontrol.EXPLORERBARLib.CaptionFormatEnum.exHTML
End With
|
103
|
How can I display an icon in the group's caption
![](images/explorerbarq103.png)
With Explorerbar1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Groups.Add("Group 1").Image = 1
End With
|
102
|
How can I access an item by its position
![](images/explorerbarq102.png)
With Explorerbar1
With .Groups.Add("Group 1")
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3").Position = 0
.get_ItemByPos(1).Bold = True
.Expanded = True
End With
End With
|
101
|
How can I change the position of a group
![](images/explorerbarq101.png)
With Explorerbar1
.Groups.Add("Group 1")
.Groups.Add("Group 2")
.Groups.Add("Group 3").Position = 0
End With
|