System Active Title Bar Color1 and Color2

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Jeff said:
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?
Click to expand...

http://msdn.microsoft.com/library/en-us/sysinfo/base/getsyscolor.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
 
How do I get that code to run for vb.net

Thank
Jef

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

Armin Zingler said:
http://msdn.microsoft.com/library/en-us/sysinfo/base/getsyscolor.as
Click to expand...


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
 
Jeff said:
The supplied link is in c# and where do I find the function
GetSysColor?
Click to expand...

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
 
Back
Top