Private Sub ItemChosen(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.DoubleClick
Dim N As TreeNode = CType(sender, Windows.Forms.TreeView).SelectedNode
If N.GetNodeCount(False) = 0 Then
Dim S As String = N.Text
If S.Length = 1 Then S = S.Insert(0, "0")
S = N.Parent.Parent.Text & ":" & S
MessageBox.Show("You have selected: " & S)
If S = "Node0:Node5" Then
msgbox(aaaa)
End If
End If
end sub
Public Class TreeViewEx
Inherits System.Windows.Forms.TreeView
Private Sub TreeViewEx_AfterSelect( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.TreeViewEventArgs _
) Handles MyBase.AfterSelect
If e.Node.IsExpanded() Then
e.Node.Collapse()
Else
e.Node.Expand()
End If
End Sub