Fill up the ListBox with brush names : Brush « Windows Presentation Foundation « VB.Net Tutorial






<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        x:Class="WpfApplication1.CompileXamlWindow"
        Title="Compile XAML Window" 
        SizeToContent="WidthAndHeight" 
        ResizeMode="CanMinimize">
    <StackPanel>
        <Button HorizontalAlignment="Center" Margin="24" Click="ButtonOnClick">
            Click
        </Button>
        <Ellipse Name="elips" Width="200" Height="100" Margin="24" Stroke="Black"/>
        <ListBox Name="lstbox" Width="150" Height="150" Margin="24" SelectionChanged="ListBoxOnSelection" />
    </StackPanel>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Reflection
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports System.Windows.Media

Namespace WpfApplication1
  Public Partial Class CompileXamlWindow
    Inherits Window

    Public Sub New()
      InitializeComponent()

      For Each prop As PropertyInfo In GetType(Brushes).GetProperties()
        lstbox.Items.Add(prop.Name)
      Next
    End Sub
    Private Sub ButtonOnClick(sender As Object, args As RoutedEventArgs)
      Dim btn As Button = TryCast(sender, Button)
      MessageBox.Show(Convert.ToString(btn.Content) & "' has been clicked.")
    End Sub
    Private Sub ListBoxOnSelection(sender As Object, args As SelectionChangedEventArgs)
      Dim lstbox As ListBox = TryCast(sender, ListBox)
      Dim strItem As String = TryCast(lstbox.SelectedItem, String)
      Dim prop As PropertyInfo = GetType(Brushes).GetProperty(strItem)
      elips.Fill = DirectCast(prop.GetValue(Nothing, Nothing), Brush)
    End Sub
  End Class
End Namespace
WPF Fill Up The List Box With Brush Names








16.64.Brush
16.64.1.Fill = Brushes.RedFill = Brushes.Red
16.64.2.Fill = new SolidColorBrush(Colors.Green)Fill = new SolidColorBrush(Colors.Green)
16.64.3.Fill = new SolidColorBrush(Color.FromRgb(0, 0, 255))Fill = new SolidColorBrush(Color.FromRgb(0, 0, 255))
16.64.4.Fill = new SolidColorBrush(Color.FromArgb(100, 0, 0, 255));Fill = new SolidColorBrush(Color.FromArgb(100, 0, 0, 255));
16.64.5.Using the SolidColorBrush typeUsing the SolidColorBrush type
16.64.6.Using the SolidColorBrush and Color typeUsing the SolidColorBrush and Color type
16.64.7.Describes the brush's color using ARGB values. Each value has a range of 0-255.Describes the brush's color using ARGB values. Each value has a range of 0-255.
16.64.8.Shows the predefined brushes defined by the System.Brushes class.Shows the predefined brushes defined by the System.Brushes class.
16.64.9.Drawing Brush In XAMLDrawing Brush In XAML
16.64.10.Use SolidColorBrush to paint RectangleUse SolidColorBrush to paint Rectangle
16.64.11.Solid brush using type converterSolid brush using type converter
16.64.12.Fill the underline decoration with a solid color brush in VBFill the underline decoration with a solid color brush in VB
16.64.13.Fill the strikethrough decoration with a solid color brush in VBFill the strikethrough decoration with a solid color brush in VB
16.64.14.Colors and BrushesColors and Brushes
16.64.15.Predefined brush in Brushes ClassPredefined brush in Brushes Class
16.64.16.Convert contents of a ListBoxItem to an instance of Thickness by using the BrushConverterConvert contents of a ListBoxItem to an instance of Thickness by using the BrushConverter
16.64.17.Solid Color Brush In Code with predefined brushSolid Color Brush In Code with predefined brush
16.64.18.Solid Color Brush In Code with SolidColorBrushSolid Color Brush In Code with SolidColorBrush
16.64.19.Solid Color Brush In Code with SolidColorBrush and RGB colorSolid Color Brush In Code with SolidColorBrush and RGB color
16.64.20.Fill up the ListBox with brush namesFill up the ListBox with brush names
16.64.21.DrawingBrush with DrawingGroupDrawingBrush with DrawingGroup