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
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