|
176
|
How can I select an item using on its full part, not only on its icon or caption
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExplorerBar1_Click()
With ExplorerBar1
alert( .ItemFromPoint(-1,-1) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HighlightItemType = 19 ' HighLightItemEnum.exFull Or HighLightItemEnum.exUnion
With .Groups.Add("Group 1")
.AddItem("Item <b>1</b>").CaptionFormat = 1
.AddItem("Item <b>2</b>").CaptionFormat = 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
175
|
How can I change the group's color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BackColorGroup = RGB(255,0,0)
.BackColorGroup2 = .BackColorGroup
.GroupAppearance = 0
With .Groups
.Add "Group 1"
.Add "Group 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
174
|
How can remove the group's appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BackColorGroup = .BackColor
.BackColorGroup2 = .BackColor
.GroupAppearance = 1
With .Groups
.Add "Group 1"
.Add "Group 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
173
|
How can I align the group/item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
With .Groups.Add("Group 1")
.Alignment = 0
.AddItem("Item 1").Alignment = 0
.Expanded = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExplorerBar1_AddGroup(Group)
With ExplorerBar1
With Group
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function ExplorerBar1_AddItem(Item)
With ExplorerBar1
With Item
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Appearance = 0
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
.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
.BackColorGroup = &H2000000
.BackColorGroup2 = .BackColorGroup
.GroupHeight = 40
With .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
.BackgroundExtValue(2,4) = "<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")
.BackgroundExtValue(2,4) = "<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")
.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
.AddItem "Gamla stan"
.AddItem "Vasa Museum"
.AddItem "Stockholm Palace"
.AddItem "Skansen"
.AddItem "Djurgården"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
171
|
Can I specify a different colors for groups using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.BackColorGroup = &H1000000
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = &H100aabb
End With
End Function
</SCRIPT>
</BODY>
|
|
170
|
Can I change the color of the control's border (EBN files)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = 27966412 ' &H1aabbc8 Or AppearanceEnum.exDrop
End With
End Function
</SCRIPT>
</BODY>
|
|
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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
168
|
How can I scroll to the end of the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
167
|
How can I display an item by multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 0
.CaptionFormat = 1
.SingleLine = False
End With
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
166
|
How can I indent an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem("Item 1").Alignment = 0
With .AddItem("Sub Item <b>1</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
End With
With .AddItem("Sub Item <b>2</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
End With
With .AddItem("Sub Item <b>3</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 12
End With
With .AddItem("Sub Sub Item <b>3</b>")
.CaptionFormat = 1
.Alignment = 0
.Indent = 24
End With
With .AddItem("Item 2")
.Alignment = 0
End With
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
165
|
How can I use HTML format to display my item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
164
|
How can I assign a tooltip to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
163
|
How can I show or hide an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Visible = False
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
162
|
How can I align an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 0
End With
With .AddItem("Item 2")
.Image = 2
.ImageAlignment = 2
End With
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
161
|
How can I stop highlighting an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
160
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
With .AddItem("Item 2")
.BackColor = RGB(255,0,0)
.BackColor2 = RGB(255,255,255)
End With
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
159
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
158
|
How can I change the item's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").ForeColor = RGB(255,0,0)
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
157
|
How can I change the visual appearance of the item using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").BackColor = &H1000000
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
156
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").BackColor = RGB(255,0,0)
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
155
|
How can I get the group of the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
154
|
How can I get the index of the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
153
|
How can I draw underlined an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<u>Item</u> 2").CaptionFormat = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
152
|
How can I draw underlined an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Underline = True
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
151
|
How can I draw as strikeout an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<s>Item</s> 2").CaptionFormat = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
150
|
How can I draw as strikeout an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").StrikeOut = True
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
149
|
How can I draw as italic an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<i>Item</i> 2").CaptionFormat = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
148
|
How can I draw as italic an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Italic = True
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
147
|
How can I add a anchor or a hyperlink
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HighlightItemType = 0
.HandCursor = False
With .Groups.Add("Group 1")
.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
146
|
How do I bold an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<b>Item</a> 2").CaptionFormat = 1
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
145
|
How do I bold an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Bold = True
.AddItem "Item 3"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
144
|
How can I align an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 0
.AddItem("Center",2).Alignment = 1
.AddItem("Right",3).Alignment = 2
.AddItem("Middle",1).Alignment = 4
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
143
|
How can I assign some extra data to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
142
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 1
.AddItem("Item 2").Image = 2
.AddItem("Item 3").Image = 3
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
141
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
140
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
139
|
How can I change the item's position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem("Item 3").Position = 0
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
138
|
How can I change the item's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
137
|
How do I add new items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("Group 1").AddItem("Item 1").Bold = True
End With
End Function
</SCRIPT>
</BODY>
|
|
136
|
How do I assign a group to a set in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
135
|
How can I show or hide the expanding or collapsing button
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
134
|
How can I avoid expanding or collapsing a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
133
|
How can I assign a tooltip to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
132
|
How can I display HTML text in the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.GroupHeight = 44
.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 = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
130
|
How can I change the group's background color ( gradient )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.BackColor = RGB(255,0,0)
.BackColor2 = RGB(255,255,255)
End With
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
129
|
How can I access the bounding rectangle of the group's area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
128
|
How can I expand or collapse a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
127
|
How can I specify the height of the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
126
|
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 2
.Expanded = True
End With
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
125
|
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
124
|
How can I change the foreground color for items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.ForeColorList = RGB(255,0,0)
.Expanded = True
End With
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
123
|
How can I change the background color for the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.BackColorList = RGB(255,0,0)
.Expanded = True
End With
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
122
|
How can I change the group's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
121
|
How can I change the group's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
120
|
How can I change the group's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
119
|
How can I change the visual appearance of the group, using EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.GroupAppearance = 1
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = &H1000000
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
118
|
How can I change the group's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = RGB(255,0,0)
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
117
|
How do I get the index of the group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
116
|
How can I underline the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
115
|
How can I underline the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Underline = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
114
|
How can I show the group's name as strikeout
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
113
|
How can I show the group's name as strikeout
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").StrikeOut = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
112
|
How can I draw as italic the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
111
|
How do I draw italic the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Italic = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
110
|
How do I bold the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
109
|
How do I bold the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Bold = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
108
|
How can I align the icon in the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 2
.Alignment = 2
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
107
|
How can I align the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("Group 1").Alignment = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
106
|
How can I align the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("Group 1").Alignment = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
105
|
How can I assign some extra data to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("Group 1").UserData = "your data"
End With
End Function
</SCRIPT>
</BODY>
|
|
104
|
How can I display an icon in the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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 = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
103
|
How can I display an icon in the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
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
End Function
</SCRIPT>
</BODY>
|
|
102
|
How can I access an item by its position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem("Item 3").Position = 0
.ItemByPos(1).Bold = True
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
101
|
How can I change the position of a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add "Group 2"
.Groups.Add("Group 3").Position = 0
End With
End Function
</SCRIPT>
</BODY>
|