如何在子节点上添加程序，实现单击，弹出窗体。

Question

如何在子节点上添加程序，实现单击，弹出窗体。

Answer 1

if treeview.nodes("Key") then form2.show

Answer 2

Private Sub Form_Load()        Dim factory As Node
        Dim person As Node        Set factory = treeview.Nodes.Add(, , "Node", "父节点")
 
        Set person = treeview.Nodes.Add(factory , tvwChild, "Node1" , "运行窗体1")
        Set person = treeview.Nodes.Add(factory , tvwChild, "Node2" , "运行窗体2")    End SubPrivate Sub treeview_NodeClick(ByVal Node As MSComctlLib.Node)    Dim lngAnswer As Long    If CurNode.Key ="" Then Exit Sub    If CurNode.Key = Node1 Then
        lngAnswer =MsgBox "运行窗体1",vbOKCancel
        If lngAnswer=vbOK Then Form1.Show        
    Elseif If CurNode.Key = Node2 Then
        lngAnswer =MsgBox "运行窗体2",vbOKCancel
        If lngAnswer=vbOK Then Form2.Show
    End If   End Sub