Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " Public Sub New() MyBase.New() ' この呼び出しは Windows フォーム デザイナで必要です。 InitializeComponent() ' InitializeComponent() 呼び出しの後に初期化を追加します。 End Sub ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。 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 ' Windows フォーム デザイナで必要です。 Private components As System.ComponentModel.IContainer ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。 'Windows フォーム デザイナを使って変更してください。 ' コード エディタを使って変更しないでください。 Friend WithEvents treeView1 As System.Windows.Forms.TreeView Private Sub InitializeComponent() Me.TreeView1 = New System.Windows.Forms.TreeView Me.SuspendLayout() ' 'treeView1 ' Me.TreeView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TreeView1.ImageIndex = -1 Me.TreeView1.Location = New System.Drawing.Point(16, 16) Me.TreeView1.Name = "treeView1" Me.TreeView1.SelectedImageIndex = -1 Me.TreeView1.Size = New System.Drawing.Size(264, 224) Me.TreeView1.TabIndex = 0 ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.TreeView1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RefreshTreeView() End Sub ' TreeViewコントロールのデータを更新します。 Private Sub RefreshTreeView() treeView1.Nodes.Clear() Dim treeNodeFruits As New TreeNode("果物") Dim treeNodeVegetables As New TreeNode("野菜") Dim treeNodeSubFolder() As TreeNode = {treeNodeFruits, treeNodeVegetables} ' 下位階層に対してまとめて項目(ノード)を追加 Dim treeNodeFood As New TreeNode("食べ物", treeNodeSubFolder) Dim treeNodeDrink As New TreeNode("飲み物") Dim treeNodeRoot() As TreeNode = {treeNodeFood, treeNodeDrink} ' 最上位階層に対してまとめて項目(ノード)を追加 treeView1.Nodes.AddRange(treeNodeRoot) treeView1.TopNode.Expand() End Sub Private counter As Integer = 0 ' TreeViewコントロールに項目を1つだけ追加します。 Private Sub treeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeView1.AfterSelect If counter > 0 Then Dim treeNodeNew As New TreeNode("追加" + counter.ToString()) e.Node.Nodes.Add(treeNodeNew) End If counter = counter + 1 End Sub End Class