scrollbar color

[archer]

some weeks back i found in the forum a thread where someone wanted to have the scrollbar of a treeview in another color. as this was not possible his was gaven the advice to replace the scrollbar of the treeview with a custom scrollbar and change its' color.
well i don't need it for a treeview but anyways i cannot find a scrollbar with a 'color' property. (there are two kinds of scrollbars - the standard one and the FlatScrollBar but neither of them has a color or backcolor property)
any idea?
thx

[Mc Brain]

Create one yourself with two pictureboxes (one -the cursor- moving inside the other)

[MerrionComputin]

When a VB form has a standard scrollbar on it, whenever that scrollbar needs to be redrawn the first thing it does is send a WM_CTLCOLORSCROLLBAR message to the parent form. If you subclass that form you can alter the colour used.

[archer]

Originally posted by MerrionComputin
When a VB form has a standard scrollbar on it, whenever that scrollbar needs to be redrawn the first thing it does is send a WM_CTLCOLORSCROLLBAR message to the parent form. If you subclass that form you can alter the colour used.

can you give me an example how?
(or give me an advice where i could find it?)
thx

[Mc Brain]

I would think hard if you should subclass the form to get it working. You should probably use a "custom scrollbar"

[Mc Brain]

http://www.vbforums.com/showthread.p...COLORSCROLLBAR

[MerrionComputin]

Example of purple scrollbars, using the EventVB.dll:

Option Explicit
 
Dim WithEvents vbLink As EventVB.APIFunctions
Dim WithEvents vbWnd As EventVB.ApiWindow
 
Dim colScrollbars As EventVB.ApiColour
 
Private Sub Form_Load()
 
Set vbLink = New APIFunctions
 
'\\ Decide what colour to use for the scrollbars
Set colScrollbars = New ApiColour
With colScrollbars
    .Red = 100 '\\ Out of 255
    .Green = 0
    .Blue = 100
End With
 
Set vbWnd = New ApiWindow
vbWnd.hWnd = Me.hWnd
 
vbLink.SubclassedWindows.Add vbWnd
 
End Sub
 
Private Sub vbWnd_ControlColour(ByVal ControlType As EventVB.StandardControlTypes, ByVal DeviceContext As EventVB.ApiDeviceContext, ByVal ControlWindow As EventVB.ApiWindow, ColourBrush As EventVB.ApiLogBrush)
 
If ControlType = Control_Scrollbar Then
    Set ColourBrush.Colour = colScrollbars
End If
 
End Sub

Or if you don't want to include a dll, do a search on MSDN for WM_CTLCOLORSCROLLBAR for how it works....

Hope this helps,
Duncan

[archer]

it still doesn't make the whole scrollbar coloured. is it possible or should i stick to the two pictureboxes and a custom made scrollbar?

[MerrionComputin]

There doesn't seem to be a scrollbar forecolor property nor API call equivalent.