VB6.0

[N15926961487]

在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”弹出它相应的对话框

[dafu2003]

nodeClick 事件里 弹出

[dbcontrols]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    MsgBox Node.Text
'可以根据Node.Text的内容判断选取了什么
End Sub

[simon__sun]

在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

[ld11690]

二楼正解