|
164
|
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 ListBar1_Click()
With ListBar1
alert( .ItemFromPoint(-1,-1) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
163
|
Does your control support subscript or superscript, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group")
.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
162
|
How do I get notified once the user selects or activates a group
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ListBar1_SelectGroup(OldGroup,NewGroup)
With ListBar1
alert( "Current " )
alert( NewGroup )
alert( "Previously " )
alert( OldGroup )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
End With
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
With .Groups.Add("Group 3")
.AddItem "Item 1"
.AddItem "Item 2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
161
|
Can I specify a different colors for groups using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.BackColorGroup = &H1000000
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = &H100aabb
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
160
|
Can I change the color of the control's border (EBN files)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = 27966412 ' &H1aabbc8 Or AppearanceEnum.exDrop
End With
End Function
</SCRIPT>
</BODY>
|
|
159
|
How do I specify the width of the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.HighlightItemType = 0
With .Groups.Add("Group 1")
.ItemWidth = 32
.AddItem 0
.AddItem 1
.AddItem 2
.AddItem 3
.AddItem 4
.AddItem 5
.AddItem 6
.AddItem 7
.AddItem 8
.AddItem 9
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 22,"c:\exontrol\images\pushed.ebn"
.Add 2,"CP:22 0 8 0 -8"
End With
.Background(4) = &H1000000
.Background(5) = &H2000000
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.SelectItem = 1
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(4) = &H1000000
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.SelectItem = 1
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
156
|
How do I select an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.SelectItemType = 2
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.SelectItem = 1
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
155
|
How do I specify how a selected item shows
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.SelectItemType = 2
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
154
|
How do I select or activate a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
153
|
Is there any option to display groups from left to right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Orientation = 1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
152
|
How do I change the foreground color of the selected group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.MarkSelectGroup = True
.SelBackColorGroup = .BackColorGroup
.SelForeColorGroup = RGB(255,0,0)
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
151
|
How do I highlight the selected group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.MarkSelectGroup = True
.SelBackColorGroup = &H1000000
.SelForeColorGroup = RGB(0,0,0)
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.MarkSelectGroup = True
.SelBackColorGroup = &H1000000
.SelForeColorGroup = RGB(0,0,0)
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
149
|
How do I specify the background color for selected group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.MarkSelectGroup = True
.SelBackColorGroup = RGB(255,0,0)
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
148
|
How can I indent an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
147
|
How can I use HTML format to display my item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
146
|
How can I assign a tooltip to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
145
|
How can I show or hide an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Visible = False
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
144
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
143
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
142
|
How can I change the item's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").ForeColor = RGB(255,0,0)
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
141
|
How can I change the visual appearance of the item using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").BackColor = &H1000000
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
140
|
How can I change the item's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").BackColor = RGB(255,0,0)
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
139
|
How can I get the group of the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Group.Bold = True
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
138
|
How can I get the index of the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
137
|
How can I draw underlined an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<u>Item</u> 2").CaptionFormat = 1
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
136
|
How can I draw underlined an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Underline = True
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
135
|
How can I draw as strikeout an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<s>Item</s> 2").CaptionFormat = 1
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
134
|
How can I draw as strikeout an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").StrikeOut = True
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
133
|
How can I draw as italic an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<i>Item</i> 2").CaptionFormat = 1
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
132
|
How can I draw as italic an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Italic = True
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
131
|
How can I add a anchor or a hyperlink
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.HighlightItemType = 0
With .Groups.Add("Group 1")
.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
130
|
How do I bold an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("<b>Item</a> 2").CaptionFormat = 1
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
129
|
How do I bold an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Bold = True
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
128
|
How can I align an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
127
|
How can I assign some extra data to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem("Item 1").UserData = "your data"
.AddItem "Item 2"
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
126
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
125
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
124
|
How can I assign or display an icon for an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
123
|
How can I change the item's position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem("Item 3").Position = 0
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
122
|
How can I change the item's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem("Item 2").Caption = "new caption"
.AddItem "Item 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
121
|
How do I add new items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add("Group 1").AddItem("Item 1").Bold = True
End With
End Function
</SCRIPT>
</BODY>
|
|
120
|
How do I assign a group to a set in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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>
|
|
119
|
How can I assign a tooltip to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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>
|
|
118
|
How can I display HTML text in the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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>
|
|
117
|
How can I change the group's background color ( gradient )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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>
|
|
116
|
How can I specify the height of the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.ItemHeight = 13
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
115
|
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.Picture = ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 2
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
114
|
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.Picture = ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
113
|
How can I change the foreground color for items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.ForeColorList = RGB(255,0,0)
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
112
|
How can I change the background color for the items
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.BackColorList = RGB(255,0,0)
End With
.Groups.Add "Group 3"
.SelectGroup = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
111
|
How can I change the group's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
110
|
How can I change the group's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
109
|
How can I change the group's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
108
|
How can I change the visual appearance of the group, using EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.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>
|
|
107
|
How can I change the group's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = RGB(255,0,0)
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
106
|
How do I get the index of the group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
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>
|
|
105
|
How can I underline the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
104
|
How can I underline the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Underline = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
103
|
How can I show the group's name as strikeout
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
102
|
How can I show the group's name as strikeout
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").StrikeOut = True
.Groups.Add "Group 3"
End With
End Function
</SCRIPT>
</BODY>
|
|
101
|
How can I draw as italic the group's name
<BODY onload="Init()">
<OBJECT CLASSID="clsid:41387A8B-6293-46CE-B9D8-55F49AE0DA60" id="ListBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ListBar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|