1,451
社区成员
发帖
与我相关
我的任务
分享当选择TreeView的结点时，显示出不同数据
比如：当选择第一个子结点时，msgbox "hello"
当选择第二个子结点时，msgbox "hi"
当选择第二个子结点时，msgbox "hi"
...全文
请发表友善的回复…
发表回复
billyqiao 2003-03-22
- 打赏
- 举报
select case node.text
case "第一个结点"
msgbox "Hello"
case "第二个结点"
msgbox "Hi"
end select
case "第一个结点"
msgbox "Hello"
case "第二个结点"
msgbox "Hi"
end select
northwolves 2003-03-22
- 打赏
- 举报
Private Sub Form_Load()
TreeView1.Nodes.Add , , "r", "root"
TreeView1.Nodes.Add "r", tvwChild, "n1", "node1"
TreeView1.Nodes.Add "r", tvwChild, "n2", "node2"
TreeView1.Nodes.Add "r", tvwChild, "n3", "node3"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
If Node.Parent.Key = "r" Then
If Node.Index = 2 Then MsgBox "hello"
If Node.Index = 3 Then MsgBox "hi"
End If
End Sub
TreeView1.Nodes.Add , , "r", "root"
TreeView1.Nodes.Add "r", tvwChild, "n1", "node1"
TreeView1.Nodes.Add "r", tvwChild, "n2", "node2"
TreeView1.Nodes.Add "r", tvwChild, "n3", "node3"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
If Node.Parent.Key = "r" Then
If Node.Index = 2 Then MsgBox "hello"
If Node.Index = 3 Then MsgBox "hi"
End If
End Sub
CloneCenter 2003-03-22
- 打赏
- 举报
大家都说过了，根据 KEY 来判断了！
smilingchen 2003-03-22
- 打赏
- 举报
想做什么呢?
你想获得treeview中的node的什么属性？
你想获得treeview中的node的什么属性？
Cooly 2003-03-21
- 打赏
- 举报
每个节点都有不同的Key,你判断一下Key就可以了
