using system colors to create gradients : 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 = "System Color Gradient Examples"
      t.HorizontalAlignment = System.Windows.HorizontalAlignment.Left
      t.FontWeight = System.Windows.FontWeights.Bold
      gradientExamplePanel.Children.Add(t)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlDark to ControlLight"
      Dim r As New System.Windows.Shapes.Rectangle()
      r.Fill = New System.Windows.Media.RadialGradientBrush(System.Windows.SystemColors.ControlDarkColor, System.Windows.SystemColors.ControlLightColor)
      gradientExamplePanel.Children.Add(t)
      gradientExamplePanel.Children.Add(r)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "ControlDarkDark to ControlLightLight"
      r = New System.Windows.Shapes.Rectangle()
      r.Fill = New System.Windows.Media.LinearGradientBrush(System.Windows.SystemColors.ControlDarkDarkColor, System.Windows.SystemColors.ControlLightLightColor, 45)
      gradientExamplePanel.Children.Add(t)
      gradientExamplePanel.Children.Add(r)

      ' Try it out on a button.
      t = New System.Windows.Controls.TextBlock()
      t.Text = "Desktop to AppWorkspace"
      Dim b As New System.Windows.Controls.Button()
      b.Width = 120
      b.Height = 20
      b.Background = New System.Windows.Media.RadialGradientBrush(System.Windows.SystemColors.DesktopColor, System.Windows.SystemColors.AppWorkspaceColor)
      gradientExamplePanel.Children.Add(t)
      gradientExamplePanel.Children.Add(b)

      t = New System.Windows.Controls.TextBlock()
      t.Text = "Desktop to Control"
      b = New System.Windows.Controls.Button()
      b.Width = 120
      b.Height = 20
      b.Background = New System.Windows.Media.RadialGradientBrush(System.Windows.SystemColors.DesktopColor, System.Windows.SystemColors.ControlColor)
      gradientExamplePanel.Children.Add(t)

      gradientExamplePanel.Children.Add(b)
    End Sub

  End Class
End Namespace

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