using system colors to create gradients : Color « Windows Presentation Foundation « VB.Net






using system colors to create gradients

using system colors to create gradients
     

<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

   
    
    
    
    
  








Related examples in the same category

1.A Semi-Transparent ButtonA Semi-Transparent Button
2.Use RGB valued semi-transparent color to paint EllipseUse RGB valued semi-transparent color to paint Ellipse
3.Use RGB solid color to paint EllipseUse RGB solid color to paint Ellipse
4.Rainbow color Animation by GradientStops[index].offsetRainbow color Animation by GradientStops[index].offset
5.RadialGradient StarRadialGradient Star
6.ColorConverter and SolidColorBrushColorConverter and SolidColorBrush
7.Ellipse with explicit SolidColorBrushEllipse with explicit SolidColorBrush
8.Use System Colors in Your GraphicsUse System Colors in Your Graphics
9.Use RGB color to fill RectangleUse RGB color to fill Rectangle
10.Use Named color to paint RectangleUse Named color to paint Rectangle
11.Create semi-transparent colorCreate semi-transparent color
12.Three stops LinearGradientBrushThree stops LinearGradientBrush
13.Animating Color with ColorAnimationAnimating Color with ColorAnimation
14.From a Hex string using ColorConverterFrom a Hex string using ColorConverter
15.From ScRGB values in the Color structureFrom ScRGB values in the Color structure
16.From sRGB values in the Color strutcureFrom sRGB values in the Color strutcure
17.Using a LinearGradientBrushUsing a LinearGradientBrush
18.Multiple gradient stopsMultiple gradient stops
19.Numeric color valuesNumeric color values
20.From predefined color name in the Colors classFrom predefined color name in the Colors class
21.Using SystemColors in CodeUsing SystemColors in Code