Clear locally set values and restore the default values of dependency properties : UI Element « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. UI Element

<StackPanel Name="root"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  x:Class="WpfApplication1.DPClearValue">
    <StackPanel.Resources>
      <Style TargetType="Button">
        <Setter Property="Height" Value="20"/>
        <Setter Property="Width" Value="250"/>
        <Setter Property="HorizontalAlignment" Value="Left"/>
      </Style>
      <Style TargetType="Ellipse">
        <Setter Property="Height" Value="50"/>
        <Setter Property="Width" Value="50"/>
        <Setter Property="Fill" Value="Black"/>
      </Style>
      <Style TargetType="Rectangle">
        <Setter Property="Height" Value="50"/>
        <Setter Property="Width" Value="50"/>
        <Setter Property="Fill" Value="Blue"/>
      </Style>
      <Style TargetType="Polygon">
        <Setter Property="Points" Value="10,60 60,60 60,10"/>
        <Setter Property="Fill" Value="Blue"/>
      </Style>
      <Style x:Key="ShapeStyle" TargetType="Shape">
        <Setter Property="Fill" Value="Red"/>
      </Style>
    </StackPanel.Resources>
  <DockPanel Name="myDockPanel">
    <Ellipse Height="100"  Width="100" Style="{StaticResource ShapeStyle}"/>
    <Rectangle Height="100" Width="100"  Style="{StaticResource ShapeStyle}" />
    <Polygon Points="10,110 110,110 110,10" Style="{StaticResource ShapeStyle}"/>
  </DockPanel>
    <Button Name="RedButton" Click="MakeEverythingRed">Make everything red</Button>
    <Button Name="ClearButton" Click="RestoreDefaultProperties">
  Clear local values
  </Button>

</StackPanel>

//File:Window.xaml.vb


Imports System.Windows
Imports System.Collections
Imports System.Windows.Media
Imports System.Windows.Controls
Imports System.Windows.Shapes

Namespace WpfApplication1
  Public Partial Class DPClearValue
    Private Sub RestoreDefaultProperties(sender As Object, e As RoutedEventArgs)
      Dim uic As UIElementCollection = myDockPanel.Children
      For Each uie As Shape In uic
        Dim locallySetProperties As LocalValueEnumerator = uie.GetLocalValueEnumerator()
        While locallySetProperties.MoveNext()
          Dim propertyToClear As DependencyProperty = DirectCast(locallySetProperties.Current.[Property], DependencyProperty)
          If Not propertyToClear.[ReadOnly] Then
            uie.ClearValue(propertyToClear)
          End If
        End While
      Next
    End Sub
    Private Sub MakeEverythingRed(sender As Object, e As RoutedEventArgs)
      Dim uic As UIElementCollection = myDockPanel.Children
      For Each uie As Shape In uic
        uie.Fill = New SolidColorBrush(Colors.Red)
      Next
    End Sub
  End Class
End Namespace

16.50.UI Element
	16.50.1.	Find enclosure component
	16.50.2.	Clear locally set values and restore the default values of dependency properties
	16.50.3.	PresentationTraceSources.SetTraceLevel(binding,PresentationTraceLevel.High);
	16.50.4.	UI Element Mouse Clicked Events
	16.50.5.	Programmatically Extract an Element's Style with DefaultStyleKeyProperty
	16.50.6.	Print Logical Tree
	16.50.7.	Print Visual Tree
	16.50.8.	About Dialog with Tree Walking
	16.50.9.	Changing graphical elements
	16.50.10.	UIElement Count
	16.50.11.	Use Linq to get control from a container
	16.50.12.	Find inner visual element
	16.50.13.	Logical Visual Tree Sample
	16.50.14.	Point Hit Test with VisualTreeHelper.HitTest
	16.50.15.	Change the Visibility property of a UIElement.
	16.50.16.	Mixing graphics with Control Elements