xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="ThicknessConverter_Csharp.Window1"
Title="ThicknessConverter Sample">
ThicknessConverter Sample
Set the BorderBrush Property:
Red
Green
Blue
Yellow
Orange
Purple
Silver
Pink
Maroon
Brown
Black
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Media
Namespace ThicknessConverter_Csharp
Public Partial Class Window1
Inherits Window
Public Sub changeColor(sender As Object, args As SelectionChangedEventArgs)
Dim li2 As ListBoxItem = TryCast(TryCast(sender, ListBox).SelectedItem, ListBoxItem)
Dim myBrushConverter As New BrushConverter()
border1.BorderBrush = DirectCast(myBrushConverter.ConvertFromString(DirectCast(li2.Content, String)), Brush)
bColor.Text = "Border.Borderbrush =" & li2.Content.ToString()
End Sub
End Class
End Namespace