Using SystemColors in Code : Color « Windows Presentation Foundation « VB.Net Tutorial






  1. VB.Net Tutorial
  2. Windows Presentation Foundation
  3. Color
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="SystemColorsAndBrushes_csharp.Window1"
    Title="System Colors" >
   <Window.Resources>
    <Style TargetType="{x:Type Rectangle}">
      <Setter Property="Margin" Value="10,0,10,0"/>
      <Setter Property="HorizontalAlignment" Value="Left"/>
      <Setter Property="Height" Value="20"/>
      <Setter Property="Width" Value="120"/>
      <Setter Property="Stroke" Value="Black"/>
      <Setter Property="StrokeThickness" Value="1"/>
    </Style>
    <Style TargetType="{x:Type TextBlock}">
      <Setter Property="Margin" Value="10,20,10,0"/>
    </Style>
    <Style TargetType="{x:Type Button}">
      <Setter Property="Margin" Value="10,0,10,0"/>
      <Setter Property="HorizontalAlignment" Value="Left"/>
    </Style>
    </Window.Resources>
    <ScrollViewer>

    <Grid>
      <Grid.ColumnDefinitions>
        <ColumnDefinition />
        <ColumnDefinition Width="5" />
        <ColumnDefinition />
      </Grid.ColumnDefinitions>
      <Grid.RowDefinitions>
        <RowDefinition />
      </Grid.RowDefinitions>
      <Rectangle Grid.Column="1" Grid.Row="0" 
        HorizontalAlignment="Stretch" VerticalAlignment="Stretch" Fill="Black"
        RadiusX="10" RadiusY="10" />
    
      <StackPanel Name="systemBrushesPanel" Background="White" Grid.Row="0" Grid.Column="0"/> 
      <StackPanel Name="gradientExamplePanel" Background="White" Grid.Row="0" Grid.Column="2"/>

  </Grid>
  
  </ScrollViewer>
</Window>

//File:Window.xaml.vb

Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Data

Namespace SystemColorsAndBrushes_csharp
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
      Dim t As New System.Windows.Controls.TextBlock()
      t.Text = "ActiveBorder"
      Dim r As New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ActiveBorderBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ActiveCaption"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ActiveCaptionBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ActiveCaptionText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ActiveCaptionTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "AppWorkspace"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.AppWorkspaceBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Control"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlDark"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlDarkBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlDarkDark"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlDarkDarkBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlLight"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlLightBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlLightLight"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlLightLightBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ControlTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Desktop"
      r = New System.Windows.Shapes.Rectangle()

      r.SetResourceReference(System.Windows.Shapes.Shape.FillProperty, System.Windows.SystemColors.DesktopBrushKey)

      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "GradientActiveCaption"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.GradientActiveCaptionBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "GradientInactiveCaption"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.GradientInactiveCaptionBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "GrayText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.GrayTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Highlight"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.HighlightBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "HighlightText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.HighlightTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "HotTrack"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.HotTrackBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "InactiveBorder"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.InactiveBorderBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "InactiveCaption"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.InactiveCaptionBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "InactiveCaptionText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.InactiveCaptionTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Info"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.InfoBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "InfoText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.InfoTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Menu"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.MenuBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "MenuBar"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.MenuBarBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "MenuHighlight"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.MenuHighlightBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "MenuText"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.MenuTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ScrollBar"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.ScrollBarBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Window"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = SystemColors.WindowBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "WindowFrame"
      Dim b As New System.Windows.Controls.Button()
      b.Width = 120
      b.Height = 20
      b.Background = SystemColors.WindowFrameBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(b)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "WindowText"
      b = New System.Windows.Controls.Button()
      b.Width = 120
      b.Height = 20
      b.Background = SystemColors.WindowTextBrush
      systemBrushesPanel.Children.Add(t)
      systemBrushesPanel.Children.Add(b)
    End Sub

  End Class
End Namespace
WPF Using System Colors In Code




16.73.Color
16.73.1.A Semi-Transparent ButtonA Semi-Transparent Button
16.73.2.Use RGB valued semi-transparent color to paint EllipseUse RGB valued semi-transparent color to paint Ellipse
16.73.3.Use RGB solid color to paint EllipseUse RGB solid color to paint Ellipse
16.73.4.Rainbow color Animation by GradientStops[index].offsetRainbow color Animation by GradientStops[index].offset
16.73.5.RadialGradient StarRadialGradient Star
16.73.6.ColorConverter and SolidColorBrushColorConverter and SolidColorBrush
16.73.7.Ellipse with explicit SolidColorBrushEllipse with explicit SolidColorBrush
16.73.8.Use System Colors in Your GraphicsUse System Colors in Your Graphics
16.73.9.Use RGB color to fill RectangleUse RGB color to fill Rectangle
16.73.10.Use Named color to paint RectangleUse Named color to paint Rectangle
16.73.11.Create semi-transparent colorCreate semi-transparent color
16.73.12.Three stops LinearGradientBrushThree stops LinearGradientBrush
16.73.13.Animating Color with ColorAnimationAnimating Color with ColorAnimation
16.73.14.From a Hex string using ColorConverterFrom a Hex string using ColorConverter
16.73.15.From ScRGB values in the Color structureFrom ScRGB values in the Color structure
16.73.16.From sRGB values in the Color strutcureFrom sRGB values in the Color strutcure
16.73.17.Using a LinearGradientBrushUsing a LinearGradientBrush
16.73.18.Multiple gradient stopsMultiple gradient stops
16.73.19.Numeric color valuesNumeric color values
16.73.20.From predefined color name in the Colors classFrom predefined color name in the Colors class
16.73.21.Using SystemColors in CodeUsing SystemColors in Code
16.73.22.using system colors to create gradientsusing system colors to create gradients