I changed the code in TestExplorerBar project, frmMediaSearch to the following:
Private Sub initControl()
Dim cBar As cExplorerBar
Dim cItem As cExplorerBarItem
With barSearch
.BackColorStart = vbWindowBackground
.BackColorEnd = vbWindowBackground
.UseExplorerStyle = False
Set cBar = .Bars.Add(, "SEARCH", "Search for all files")
'CHANGE STARTS HERE
'cBar.IsSpecial = True
cBar.TitleBackColorDark = &H8000&
cBar.TitleBackColorLight = &HC000&
cBar.TitleForeColor = vbWhite
'CHANGE ENDS HERE
setOptionColours
End Sub
As a result, the arrow icon of the tips bar is not correct.
Furthermore, would it be feasible to add an 'X' button on the bar so as to hide the bar and the bars below move up??
|