WPF VB.Net

  1. Home
  2. VB.Net
  3. WPF
  4. About Dialog with Tree Walking
  x:Class="AboutDialog" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="About WPF Unleashed" SizeToContent="WidthAndHeight"
  Background="OrangeRed">
  
  
    WPF
  
  
  
  
      1
      2
      3
      4
      5
      6
      7
      8
      9
  
  
    Help
    OK
  
  text
  

//File:Window.xaml.vb
Imports System
Imports System.Diagnostics
Imports System.Windows
Imports System.Windows.Media
Public Partial Class AboutDialog
  Inherits Window
  Public Sub New()
    InitializeComponent()
  End Sub
  Protected Overrides Sub OnContentRendered(e As EventArgs)
    MyBase.OnContentRendered(e)
    PrintVisualTree(Me)
  End Sub
  Private Sub PrintVisualTree(obj As DependencyObject)
    Debug.WriteLine(obj)
    For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(obj) - 1
      PrintVisualTree(VisualTreeHelper.GetChild(obj, i))
    Next
  End Sub
End Class