Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Tree Node selection event

Imports System.Windows.Forms public class SplitterControl    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         InitializeComponent()     End Sub     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)         If disposing Then             If Not (components Is Nothing) Then                 components.Dispose()             End If         End If         MyBase.Dispose(disposing)     End Sub     Private components As System.ComponentModel.IContainer     Friend WithEvents Splitter1 As System.Windows.Forms.Splitter     Friend WithEvents TreeView1 As System.Windows.Forms.TreeView     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList     Friend WithEvents Splitter2 As System.Windows.Forms.Splitter     Friend WithEvents Panel1 As System.Windows.Forms.Panel     Friend WithEvents Label1 As System.Windows.Forms.Label     Friend WithEvents Splitter3 As System.Windows.Forms.Splitter     Friend WithEvents ListView1 As System.Windows.Forms.ListView     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()         Me.components = New System.ComponentModel.Container         Me.Splitter1 = New System.Windows.Forms.Splitter         Me.TreeView1 = New System.Windows.Forms.TreeView         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)         Me.Splitter2 = New System.Windows.Forms.Splitter         Me.Panel1 = New System.Windows.Forms.Panel         Me.Label1 = New System.Windows.Forms.Label         Me.Splitter3 = New System.Windows.Forms.Splitter         Me.ListView1 = New System.Windows.Forms.ListView         Me.Panel1.SuspendLayout()         Me.SuspendLayout()         '         'Splitter1         '         Me.Splitter1.Location = New System.Drawing.Point(0, 0)         Me.Splitter1.Name = "Splitter1"         Me.Splitter1.Size = New System.Drawing.Size(3, 266)         Me.Splitter1.TabIndex = 0         Me.Splitter1.TabStop = False         '         'TreeView1         '         Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left         Me.TreeView1.Location = New System.Drawing.Point(3, 0)         Me.TreeView1.Name = "TreeView1"         Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("A", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Visual Basic"), New System.Windows.Forms.TreeNode("Visual C++"), New System.Windows.Forms.TreeNode("Delphi"), New System.Windows.Forms.TreeNode("Java")}), New System.Windows.Forms.TreeNode("B", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("1"), New System.Windows.Forms.TreeNode("2"), New System.Windows.Forms.TreeNode("3"), New System.Windows.Forms.TreeNode("4")})})         Me.TreeView1.Size = New System.Drawing.Size(101, 266)         Me.TreeView1.TabIndex = 1         '         'Splitter2         '         Me.Splitter2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D         Me.Splitter2.Location = New System.Drawing.Point(104, 0)         Me.Splitter2.Name = "Splitter2"         Me.Splitter2.Size = New System.Drawing.Size(8, 266)         Me.Splitter2.TabIndex = 2         Me.Splitter2.TabStop = False         '         'Panel1         '         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D         Me.Panel1.Controls.Add(Me.ListView1)         Me.Panel1.Controls.Add(Me.Splitter3)         Me.Panel1.Controls.Add(Me.Label1)         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top         Me.Panel1.Location = New System.Drawing.Point(112, 0)         Me.Panel1.Name = "Panel1"         Me.Panel1.Size = New System.Drawing.Size(248, 264)         Me.Panel1.TabIndex = 3         '         'Label1         '         Me.Label1.Dock = System.Windows.Forms.DockStyle.Top         Me.Label1.Location = New System.Drawing.Point(0, 0)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(244, 32)         Me.Label1.TabIndex = 0         Me.Label1.Text = "Label1"         '         'Splitter3         '         Me.Splitter3.Dock = System.Windows.Forms.DockStyle.Top         Me.Splitter3.Location = New System.Drawing.Point(0, 32)         Me.Splitter3.Name = "Splitter3"         Me.Splitter3.Size = New System.Drawing.Size(244, 8)         Me.Splitter3.TabIndex = 1         Me.Splitter3.TabStop = False         '         'ListView1         '         Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill         Me.ListView1.Location = New System.Drawing.Point(0, 40)         Me.ListView1.Name = "ListView1"         Me.ListView1.Size = New System.Drawing.Size(244, 220)         Me.ListView1.TabIndex = 2         '         'Form1         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(360, 266)         Me.Controls.Add(Me.Panel1)         Me.Controls.Add(Me.Splitter2)         Me.Controls.Add(Me.TreeView1)         Me.Controls.Add(Me.Splitter1)         Me.Panel1.ResumeLayout(False)         Me.ResumeLayout(False)     End Sub     Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect         Dim childnum, index, i As Int32         childnum = TreeView1.SelectedNode.GetNodeCount(False)         index = TreeView1.SelectedNode.Index         index = index + 1         ListView1.Items.Clear()         For i = 0 To childnum - 1             ListView1.Items.Add(index.ToString + "." + i.ToString, 1)         Next         Label1.Text = TreeView1.SelectedNode.FullPath     End Sub End Class