VB

在Treeview中，我想点击一个对象就要弹出一个对话框怎么编程；
    Set Nodeindex = TreeView1.Nodes.Add(, , "S", "组装设备")
    Nodeindex.Sorted = True
     TreeView1.Style = 7
    '设置第二级"父"

    Set Nodeindex = TreeView1.Nodes.Add("S", tvwChild, "Y", "印刷设备")
    Nodeindex.Sorted = True
          Set Nodeindex = TreeView1.Nodes.Add("Y", tvwChild, "", "NP-04LP")
          Nodeindex.Sorted = True
          Set Nodeindex = TreeView1.Nodes.Add("Y", tvwChild, "", "SUNEAST-SEM-328")
          Nodeindex.Sorted = True

    Set Nodeindex = TreeView1.Nodes.Add("S", tvwChild, "T", "贴装设备")
    Nodeindex.Sorted = True

          Set Nodeindex = TreeView1.Nodes.Add("T", tvwChild, "", "Juki KE2050CM")
          Nodeindex.Sorted = True

          Set Nodeindex = TreeView1.Nodes.Add("T", tvwChild, "", "Siemens HS-50")
          Nodeindex.Sorted = True

如要点击对象“Siemens HS-50”弹出它相应的对话框
--------------------编程问答-------------------- --------------------编程问答-------------------- 在treeview 的MouseUp/MouseDown 里写就可以了

Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

 If TreeView1.SelectedItem.Text = "Siemens HS-50" Then MsgBox TreeView1.SelectedItem.Text

End Sub

--------------------编程问答--------------------

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

    MsgBox Node.Text

'可以根据Node.Text的内容判断选取了什么

End Sub

补充：VB ,  控件