System Active Title Bar Color1 and Color2

[Jeff]

Is it possible to find out what the Active Title Bar's color 1 and color2 is for the system
If you go to the display properties and click advanced, andother window pops up allowing you to change the Active Title Bar color1 and color2, which creates the gradient effect

What to know if it was possible to find out the 2 colors in vb.net

[Armin Zingler]

"Jeff" <an*******@discussions.microsoft.com> schrieb

Is it possible to find out what the Active Title Bar's color 1 and
color2 is for the system? If you go to the display properties and
click advanced, andother window pops up allowing you to change the
Active Title Bar color1 and color2, which creates the gradient
effect.

What to know if it was possible to find out the 2 colors in
vb.net?

http://msdn.microsoft.com/library/en...etsyscolor.asp

(COLOR_ACTIVECAPTION and COLOR_GRADIENTACTIVECAPTION)

System.Drawing.SystemColors returns other system colors, unfortunately not
the above ones.
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Armin Zingler]

"Armin Zingler" <az*******@freenet.de> schrieb

http://msdn.microsoft.com/library/en...etsyscolor.asp

(COLOR_ACTIVECAPTION and COLOR_GRADIENTACTIVECAPTION)

If you own VS.NET (or at least a license *g*), you find the constant values
here:
Microsoft Visual Studio .NET 2003\Vc7\PlatformSDK\Include

......
COLOR_ACTIVECAPTION = 2
COLOR_GRADIENTACTIVECAPTION = 27
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Jeff]

How do I get that code to run for vb.net

Thank
Jef

----- Armin Zingler wrote: ----

"Armin Zingler" <az*******@freenet.de> schrie

http://msdn.microsoft.com/library/en...getsyscolor.as

(COLOR_ACTIVECAPTION and COLOR_GRADIENTACTIVECAPTION

If you own VS.NET (or at least a license *g*), you find the constant value
here
Microsoft Visual Studio .NET 2003\Vc7\PlatformSDK\Includ

.....
COLOR_ACTIVECAPTION =
COLOR_GRADIENTACTIVECAPTION = 2
--
Armi

How to quote and why
http://www.plig.net/nnq/nquote.htm
http://www.netmeister.org/news/learn2quote.htm

[Armin Zingler]

"Jeff" <an*******@discussions.microsoft.com> schrieb

How do I get that code to run for vb.net?

Which code? Call the GetSyscolor function. It's described in the supplied
link.
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Armin Zingler]

"Jeff" <an*******@discussions.microsoft.com> schrieb

The supplied link is in c# and where do I find the function
GetSysColor?

Private COLOR_ACTIVECAPTION As Integer = 2
Private COLOR_GRADIENTACTIVECAPTION As Integer = 27

Public Declare Function GetSysColor Lib "user32" _
Alias "GetSysColor" (ByVal nIndex As Integer) As Integer

'....

Dim rgb As Integer
Dim col2 As Color

rgb = GetSysColor(COLOR_GRADIENTACTIVECAPTION)
col2 = Color.FromArgb( _
&HFF, rgb And &HFF, (rgb \ &H100) And &HFF, _
(rgb \ &H10000) And &HFF _
)
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html