Logical Visual Tree Sample : UI Element « Windows Presentation Foundation « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Windows Presentation Foundation » UI ElementScreenshots 
Logical Visual Tree Sample
Logical Visual Tree Sample
       

<Window x:Class="WpfApplication1.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="LogicalVisualTreeSample" Height="300" Width="300">
  <WrapPanel Name="rootPanel">
    <Button>_Click me</Button>
  </WrapPanel>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Diagnostics


Namespace WpfApplication1
  Public Partial Class Window1
    Inherits System.Windows.Window

    Public Sub New()
      InitializeComponent()
      DumpLogicalTree(rootPanel)
    End Sub
    Protected Overrides Sub OnContentRendered(As EventArgs)
      MyBase.OnContentRendered(e)
      DumpVisualTree(rootPanel)
    End Sub

    Private Sub DumpLogicalTree(parent As Object)
      Dim typeName As String = parent.[GetType]().Name
      Dim name As String = Nothing
      Dim doParent As DependencyObject = TryCast(parent, DependencyObject)

      If doParent IsNot Nothing Then
        name = DirectCast(If(doParent.GetValue(FrameworkElement.NameProperty)""), String)
      Else
        name = parent.ToString()
      End If

      Debug.WriteLine(typeName)
      Console.WriteLine(name)
      If doParent Is Nothing Then
        Return
      End If

      For Each child As Object In LogicalTreeHelper.GetChildren(doParent)
        DumpLogicalTree(child)
      Next
    End Sub

    Private Sub DumpVisualTree(parent As DependencyObject)
      Dim typeName As String = parent.[GetType]().Name
      Dim name As String = DirectCast(If(parent.GetValue(FrameworkElement.NameProperty)""), String)

      Debug.WriteLine(typeName)
      Console.WriteLine(name)

      Dim As Integer = 0
      While i <> VisualTreeHelper.GetChildrenCount(parent)
        Dim child As DependencyObject = VisualTreeHelper.GetChild(parent, i)
        DumpVisualTree(child)
        i += 1
      End While
    End Sub

  End Class
End Namespace

   
    
    
    
    
    
    
  
Related examples in the same category
1.Find enclosure componentFind enclosure component
2.Clear locally set values and restore the default values of dependency propertiesClear locally set values and restore the default values of dependency properties
3.PresentationTraceSources.SetTraceLevel(binding,PresentationTraceLevel.High);PresentationTraceSources.SetTraceLevel(binding,PresentationTraceLevel.High);
4.UI Element Mouse Clicked EventsUI Element Mouse Clicked Events
5.Programmatically Extract an Element's Style with DefaultStyleKeyPropertyProgrammatically Extract an Element's Style with DefaultStyleKeyProperty
6.Print Logical TreePrint Logical Tree
7.Print Visual TreePrint Visual Tree
8.About Dialog with Tree WalkingAbout Dialog with Tree Walking
9.Changing graphical elementsChanging graphical elements
10.UIElement CountUIElement Count
11.Use Linq to get control from a containerUse Linq to get control from a container
12.Find inner visual elementFind inner visual element
13.Point Hit Test with VisualTreeHelper.HitTestPoint Hit Test with VisualTreeHelper.HitTest
14.Change the Visibility property of a UIElement.Change the Visibility property of a UIElement.
15.Mixing graphics with Control ElementsMixing graphics with Control Elements
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.