1. How do I put a picture on the control's background
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
|
2. How do I put a picture on the control's left top corner
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = UpperLeft
End With
|
3. How do I put a picture on the control's right top corner
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = UpperRight
End With
|
4. How do I put a picture on the control's center top side
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = UpperCenter
End With
|
5. How do I put a picture on the control's center left bottom side
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = LowerLeft
End With
|
6. How do I put a picture on the control's center right bottom side
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = LowerRight
End With
|
7. How do I resize/stretch a picture on the control's background
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = Stretch
End With
|
8. How do I put a picture on the center of the control
| Visual Basic |
|---|
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = MiddleCenter
End With
|
9. How do I remove the control's border
| Visual Basic |
|---|
With ExplorerBar1 .Appearance = exNone End With |
10. How do I change the control's border, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Appearance = 16777216 End With |
11. How do I change the control's background color
| Visual Basic |
|---|
With ExplorerBar1 .BackColor = 13158600 End With |
12. How do I change the control's foreground color
| Visual Basic |
|---|
With ExplorerBar1
.ForeColor = 255
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
End With
|
13. How can I change the control's font
| Visual Basic |
|---|
With ExplorerBar1 .Font.Name = "Tahoma" .Groups.Add "Group 1" End With |
14. How do I change the control's foreground color
| Visual Basic |
|---|
With ExplorerBar1
.ForeColor = 16711680
.ForeColorGroup = 255
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add "Group 2"
End With
|
15. How do I change the background color for the groups
| Visual Basic |
|---|
With ExplorerBar1 .BackColorGroup = 255 .Groups.Add "Group 1" End With |
16. How do I change the background color for the groups
| Visual Basic |
|---|
With ExplorerBar1 .BackColorGroup = 255 .BackColorGroup2 = 255 .Groups.Add "Group 1" End With |
17. How do I change the visual appearance of the groups, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .BackColorGroup = 16777216 .Groups.Add "Group 1" .Groups.Add "Group 2" End With |
18. How do I change the visual appearance of the groups
| Visual Basic |
|---|
With ExplorerBar1 .GroupAppearance = exSingle .Groups.Add "Group 1" .Groups.Add "Group 2" End With |
19. How do I specify the height of the groups
| Visual Basic |
|---|
With ExplorerBar1 .GroupHeight = 40 .Groups.Add "Group 1" .Groups.Add "Group 2" End With |
20. How do I display 32x32 icons
| Visual Basic |
|---|
With ExplorerBar1
.SmallIcons = False
.GroupHeight = 36
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group 1").Image = 1
End With
|
21. How do I display icons
| Visual Basic |
|---|
With ExplorerBar1
.SmallIcons = True
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group 1").Image = 1
End With
|
22. How do I decrease the delay to scroll a group
| Visual Basic |
|---|
With ExplorerBar1
.DelayScroll = 0
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
With .Groups.Add("Group 2")
.AddItem "Item 2"
.Expanded = True
End With
End With
|
23. Is there any function to avoid painting the control while adding multiple items and groups
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
24. How do I specify the way the control highlight the items in the group
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.HighlightItemType = exNoHighlight
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
25. How do I specify to highlight the items in the group, when the cursor hovers the item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exCaption
With .Groups.Add("Group 1")
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
26. How do I specify to highlight the items in the group, when the cursor hovers the item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exIcon
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
27. How do I specify to highlight the items in the group, when the cursor hovers the item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exUnion
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
28. How do I specify to highlight the items in the group, when the cursor hovers the item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exHyperLink
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
31. How do I specify width or the height of the control's borders
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Appearance = exNone
.BorderWidth = 0
.BorderHeight = 0
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exHyperLink
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
32. How do I remove the control's borders
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Appearance = exNone
.BorderWidth = 0
.BorderHeight = 0
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exHyperLink
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
33. How can I expand or collapse a group when I click only its right icon
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.ExpandOnClick = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exHyperLink
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
34. How do I specify the color to highlight the item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HyperLinkColor = 255
.HighlightItemType = exHyperLink
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
35. Is there any option to stop using the hand shape cursor, when the cursor hovers an item
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.HandCursor = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = exNoHighlight
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
36. How do I hide the icons in the right side of the group, the expand / collapse buttons
| Visual Basic |
|---|
With ExplorerBar1
.BeginUpdate
.DisplayExpandIcon = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
37. How do I enable or disable the control
| Visual Basic |
|---|
With ExplorerBar1
.Enabled = False
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
End With
|
38. How can I change the expand / collapse buttons
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ExpandIcon(True) = 1
.ExpandIcon(False) = 2
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
|
39. How do I specify the distance between two groups
| Visual Basic |
|---|
With ExplorerBar1
.BorderGroupHeight = 0
.Groups.Add "Group 1"
.Groups.Add("Group 2").AddItem "Item 2"
End With
|
40. How can I show a tooltip when the item exceeds its area, so ... are displayed
| Visual Basic |
|---|
With ExplorerBar1
.AllowTooltip = True
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "This isa very long text that should break the control in several pieces"
End With
End With
|
41. How can I hide a tooltip when the item exceeds its area, so ... are displayed
| Visual Basic |
|---|
With ExplorerBar1
.AllowTooltip = False
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "This isa very long text that should break the control in several pieces"
End With
End With
|
42. How do I call your x-script language
| Visual Basic |
|---|
With ExplorerBar1 .Template = "BackColor = RGB(255,0,0)" End With |
43. How do I call your x-script language
| Visual Basic |
|---|
With ExplorerBar1
With .ExecuteTemplate("Groups.Add(`Group 1`)")
.AddItem "Item 1"
.Expanded = True
End With
End With
|
44. How do I show the tooltip quicker
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
|
45. How do I disable showing the tooltip for all control
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 0
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
|
46. Can I change the font for the tooltip
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
With .ToolTipFont
.Name = "Tahoma"
.Size = 14
End With
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
|
47. Can I change the font for the tooltip
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back t" & _
"o the normal font"
End With
|
48. Can I change the foreground color for the tooltip
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
End With
|
49. Can I change the forecolor for the tooltip
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(exToolTipForeColor) = 255
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
|
50. Does the tooltip support HTML format
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgco" & _
"lor>"
End With
|
51. Can I change the background color for the tooltip
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(exToolTipBackColor) = 255
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
|
52. Can I change the default border of the tooltip, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(exToolTipAppearance) = 16777216
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
|
53. How do I let the tooltip being displayed longer
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipPopDelay = 10000
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
|
54. I've seen that the width of the tooltip is variable. Can I make it larger
| Visual Basic |
|---|
With ExplorerBar1
.ToolTipWidth = 328
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
|
55. How can show or hide the focus rectangle
| Visual Basic |
|---|
With ExplorerBar1
.ShowFocusRect = False
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "Item 1"
End With
End With
|
56. How do I force refreshing the control
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "Item 1"
End With
.Refresh
End With
|
57. How can I add several pictures to a group
| Visual Basic |
|---|
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = exHTML
End With
|
58. How can I add several pictures to a group
| Visual Basic |
|---|
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
With .Groups.Add("<img>pic1</img> text <img>pic2</img>")
.CaptionFormat = exHTML
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
|
59. How can I add several pictures and icons to a group
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = exHTML
End With
|
60. How can I add several pictures to a group
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
With .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = exHTML
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
|
61. How can I add several pictures to an item
| Visual Basic |
|---|
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = exHTML
.Expanded = True
End With
End With
|
62. How can I add several pictures and icons to an item
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = exHTML
End With
.Expanded = True
End With
End With
|
63. How can I add several pictures and icons to an item
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = exHTML
End With
.Expanded = True
End With
End With
|
64. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
| Visual Basic |
|---|
With ExplorerBar1
.HighlightItemType = exNoHighlight
.HandCursor = False
.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
With .Groups.Add("Group 1")
.AddItem("Item <a1><b>1</b></a>").CaptionFormat = exHTML
.Expanded = True
End With
End With
|
65. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
| Visual Basic |
|---|
With ExplorerBar1
.HighlightItemType = exNoHighlight
.HandCursor = False
.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = exHTML
End With
|
66. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
| Visual Basic |
|---|
With ExplorerBar1
.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.HighlightItemType = exNoHighlight
.HandCursor = False
With .Groups.Add("Group 1")
.AddItem("Item <a1><b>1</b></a>").CaptionFormat = exHTML
.Expanded = True
End With
End With
|
67. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
| Visual Basic |
|---|
With ExplorerBar1
.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.HighlightItemType = exNoHighlight
.HandCursor = False
.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = exHTML
End With
|
68. How do I access the groups collection
| Visual Basic |
|---|
With ExplorerBar1 .Groups.Add "Group 1" End With |
69. How do I show or hide the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutCount = 1
End With
|
70. How do I select a shortcut
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutCount = 1
.SelectShortcut = "Set <img>2</img>"
End With
|
71. How do I specify the height of the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutCount = 1
.ShortcutBarHeight = 16
End With
|
72. How can I enable or disable resizing the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutCount = 1
.AllowResizeShortcutBar = False
End With
|
73. How do I change the icon for the expanding or collapsing the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutImage = 3
End With
|
74. How can I programmatically change expand or collapse the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ExpandShortcutCount = 1
End With
|
75. How do I change the background color in the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarBackColor = 255
End With
|
76. How can I change the visual appearance of the shortcut bar, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarBackColor = 16777216
End With
|
77. How do I change the selection background color in the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarSelBackColor = 255
End With
|
78. How can I change the visual appearance of the shortcut bar, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarSelBackColor = 16777216
End With
|
79. How do I change the selection background color in the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarSelCaptionBackColor = 255
.ExpandShortcutCount = 1
End With
|
80. How can I change the visual appearance of the shortcut bar, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutBarSelCaptionBackColor = 16777216
.ExpandShortcutCount = 1
End With
|
81. How do I change the background color of the separator between groups and the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutResizeBackColor = 255
.ExpandShortcutCount = 1
End With
|
82. How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutResizeBackColor = 16777216
.ExpandShortcutCount = 1
End With
|
83. How can I change the visual appearance of the shortcut bar, using EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+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>"
.ShortcutResizeBackColor = 33554432
.ShortcutBarSelCaptionBackColor = 16777216
.ShortcutBarSelBackColor = 16777216
.BackColorGroup = 16777216
End With
|
84. How can I display pictures instead icons, in the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set 1"
.Groups.Add("Group 2").Shortcut = "Set 1"
.Groups.Add("Group 3").Shortcut = "Set 2"
.Groups.Add("Group 4").Shortcut = "Set 2"
.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.ShortcutBarHeight = 44
End With
|
85. How can I display pictures with a custom size, instead icons, in the shortcut bar
| Visual Basic |
|---|
With ExplorerBar1
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set 1"
.Groups.Add("Group 2").Shortcut = "Set 1"
.Groups.Add("Group 3").Shortcut = "Set 2"
.Groups.Add("Group 4").Shortcut = "Set 2"
.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.ShortcutPictureWidth = 32
.ShortcutPictureHeight = 32
.ShortcutBarHeight = 32
End With
|
86. How do I count the number of groups
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" .Add .Count End With End With |
87. How can I add a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
|
88. How can I remove a group
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" .Remove 1 End With End With |
89. How can I clear the groups collection
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" .Clear End With End With |
90. How can I access a group
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" .Item(1).Bold = True End With End With |
91. How can I access a group by position
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" .ItemByPos(1).Bold = True End With End With |
92. How can I get the groups as they are listed
| Visual Basic |
|---|
With ExplorerBar1 With .Groups .Add "Group 1" .Add "Group 2" .Add "Group 3" End With End With |
93. How can I add a new item to a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
End With
|
94. How can I add a new item to a group
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("Group 1").AddItem "Item 1"
End With
|
95. How can I add a new item to a group
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Groups.Add("Group 1")
.AddItem "Item 1",1
.Expanded = True
End With
End With
|
96. How can I remove an item, from a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.RemoveItem 1
.Expanded = True
End With
End With
|
97. How can I remove all items, from a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Clear
.Expanded = True
End With
End With
|
98. How can I access an item in a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Item(1).Bold = True
.Expanded = True
End With
End With
|
99. How can I get the number or count of items in a group
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.AddItem .Count
.Expanded = True
End With
End With
|
100. How can I change the group's caption
| Visual Basic |
|---|
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Caption = "new caption"
.Expanded = True
End With
End With
|
101. How can I change the position of a group
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add "Group 2"
.Groups.Add("Group 3").Position = 0
End With
|
102. How can I access an item by its position
| Visual Basic |
|---|
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
|
103. How can I display an icon in the group's caption
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group 1").Image = 1
End With
|
104. How can I display an icon in the group's caption
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = exHTML
End With
|
105. How can I assign some extra data to a group
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("Group 1").UserData = "your data"
End With
|
106. How can I align the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("Group 1").Alignment = exLeft
End With
|
107. How can I align the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("Group 1").Alignment = exRight
End With
|
108. How can I align the icon in the group's caption
| Visual Basic |
|---|
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Groups.Add("Group 1")
.Image = 1
.ImageAlignment = exRight
.Alignment = exRight
End With
End With
|
109. How do I bold the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Bold = True
.Groups.Add "Group 3"
End With
|
110. How do I bold the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("<b>Group</b> 1").CaptionFormat = exHTML
End With
|
111. How do I draw italic the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Italic = True
.Groups.Add "Group 3"
End With
|
112. How can I draw as italic the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("<i>Group</i> 1").CaptionFormat = exHTML
End With
|
113. How can I show the group's name as strikeout
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").StrikeOut = True
.Groups.Add "Group 3"
End With
|
114. How can I show the group's name as strikeout
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("<s>Group</s> 1").CaptionFormat = exHTML
End With
|
115. How can I underline the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").Underline = True
.Groups.Add "Group 3"
End With
|
116. How can I underline the group's name
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add("<u>Group</u> 1").CaptionFormat = exHTML
End With
|
117. How do I get the index of the group
| Visual Basic |
|---|
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
|
118. How can I change the group's background color
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = 255
.Groups.Add "Group 3"
End With
|
119. How can I change the visual appearance of the group, using EBN files
| Visual Basic |
|---|
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.GroupAppearance = exSingle
.Groups.Add "Group 1"
.Groups.Add("Group 2").BackColor = 16777216
.Groups.Add "Group 3"
End With
|
120. How can I change the group's background color
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = exHTML
.Groups.Add "Group 3"
End With
|
121. How can I change the group's foreground color
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("Group 2").ForeColor = 255
.Groups.Add "Group 3"
End With
|
122. How can I change the group's foreground color
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = exHTML
.Groups.Add "Group 3"
End With
|
123. How can I change the background color for the items
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.BackColorList = 255
.Expanded = True
End With
.Groups.Add "Group 3"
End With
|
124. How can I change the foreground color for items
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.AddItem "Item 1"
.AddItem "Item 2"
.ForeColorList = 255
.Expanded = True
End With
.Groups.Add "Group 3"
End With
|
125. How do I put a picture on the group's background
| Visual Basic |
|---|
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
|
126. How do I put a picture on the group's background
| Visual Basic |
|---|
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 = UpperRight
.Expanded = True
End With
.Groups.Add "Group 3"
End With
|
127. How can I specify the height of the items
| Visual Basic |
|---|
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
|
128. How can I expand or collapse a group
| Visual Basic |
|---|
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
|
129. How can I access the bounding rectangle of the group's area
| Visual Basic |
|---|
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
|
130. How can I change the group's background color ( gradient )
| Visual Basic |
|---|
With ExplorerBar1
.Groups.Add "Group 1"
With .Groups.Add("Group 2")
.BackColor = 255
.BackColor2 = 16777215
End With
.Groups.Add "Group 3"
End With
|
131. How can I disable scrolling the group's list when it is expanded or collapsed
| Visual Basic |
|---|
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
|
132.