'Beispiel: VB .Net - TreeView - Selektierte Items ausgeben. 1 Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Collections Namespace VBDotNet_TreeView_SelektierteItemsAusgeben_1 Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Private treeView1 As System.Windows.Forms.TreeView Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.treeView1 = New System.Windows.Forms.TreeView Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'treeView1 ' Me.treeView1.CheckBoxes = true Me.treeView1.ImageIndex = -1 Me.treeView1.Location = New System.Drawing.Point(8, 40) Me.treeView1.Name = "treeView1" Me.treeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() _ {New System.Windows.Forms.TreeNode("Node0", _ New System.Windows.Forms.TreeNode() _ {New System.Windows.Forms.TreeNode("Node1"), _ New System.Windows.Forms.TreeNode("Node2"), _ New System.Windows.Forms.TreeNode("Node3"), _ New System.Windows.Forms.TreeNode("Node4")})}) Me.treeView1.SelectedImageIndex = -1 Me.treeView1.Size = New System.Drawing.Size(280, 216) Me.treeView1.TabIndex = 0 ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 24) Me.button1.TabIndex = 1 Me.button1.Text = "&Test..." AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.button1) Me.Controls.Add(Me.treeView1) Me.Name = "MainForm" Me.Text = "Testform <TreeView - Selektierte Items ausgeben. 1>" AddHandler Load, AddressOf Me.MainFormLoad Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) For Each Items As TreeNode In TreeView_GetSelectedNodes(Me.treeView1.Nodes) MessageBox.Show(Items.Text, "Info") Next End Sub Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs) Me.treeView1.ExpandAll Me.treeView1.CheckBoxes = true End Sub Private Function TreeView_GetSelectedNodes(ByVal Nodes As TreeNodeCollection) As ArrayList Dim TList As New ArrayList For Each Items As TreeNode In Nodes If Items.Checked Then TList.Add(Items) TList.AddRange(TreeView_GetSelectedNodes(Items.Nodes)) Next Return TList End Function End Class End Namespace