Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Change border

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"         xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"         x:Class="AboutDialog" MouseRightButtonDown="AboutDialog_MouseRightButtonDown"         Title="About WPF Unleashed" SizeToContent="WidthAndHeight"         Background="OrangeRed">   <StackPanel>     <Label FontWeight="Bold" FontSize="20" Foreground="White">       WPF     </Label>     <Label>License</Label>     <Label>Installed Dll:</Label>     <ListBox>       <ListBoxItem>1</ListBoxItem>       <ListBoxItem>2</ListBoxItem>       <ListBoxItem>3</ListBoxItem>       <ListBoxItem>4</ListBoxItem>       <ListBoxItem>5</ListBoxItem>       <ListBoxItem>6</ListBoxItem>       <ListBoxItem>7</ListBoxItem>       <ListBoxItem>8</ListBoxItem>       <ListBoxItem>9</ListBoxItem>            </ListBox>     <StackPanel Orientation="Horizontal" HorizontalAlignment="Center">       <Button MinWidth="75" Margin="10">Help</Button>       <Button MinWidth="75" Margin="10">OK</Button>     </StackPanel>     <StatusBar>test</StatusBar>   </StackPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Controls Public Partial Class AboutDialog   Inherits Window   Public Sub New()     InitializeComponent()   End Sub   Private Sub AboutDialog_MouseRightButtonDown(sender As Object, e As MouseButtonEventArgs)     Console.WriteLine("Source = " & e.Source.[GetType]().Name)     Console.WriteLine("OriginalSource = " & e.OriginalSource.[GetType]().Name & " @ " & e.Timestamp)     Dim source As Control = TryCast(e.Source, Control)     If source.BorderThickness <> New Thickness(5) Then       source.BorderThickness = New Thickness(5)       source.BorderBrush = Brushes.Black     Else       source.BorderThickness = New Thickness(0)     End If   End Sub End Class