xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="WpfApplication1.DPClearValue">
Make everything red
Clear local values
//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