//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub TreeViewItem_Selected(sender As Object, e As RoutedEventArgs)
Dim item As TreeViewItem = TryCast(sender, TreeViewItem)
If item Is e.OriginalSource Then
Console.WriteLine(item.Header)
Console.WriteLine(item.Items.Count)
Else
Console.WriteLine("Parent of selected")
Console.WriteLine(item.Header)
Console.WriteLine(item.Items.Count)
End If
End Sub
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
Dim item As TreeViewItem = TryCast(tvTree.SelectedItem, TreeViewItem)
If item IsNot Nothing Then
MessageBox.Show("Item selected: " & Convert.ToString(item.Header), Title)
Else
MessageBox.Show("No item selected", Title)
End If
End Sub
End Class
End Namespace