还是Treeview的问题。继续讨论~~

[CsdnLamia]

Set nodx = Treeview1.Nodes.Add(, tvwFirst, "A", "测试A")
Set nodx = Treeview1.Nodes.Add("A", tvwChild, "A1", "A")
Set nodx = Treeview1.Nodes.Add("A", tvwChild, "A2", "AA")
Set nodx = Treeview1.Nodes.Add("A", tvwChild, "A3", "AAA")
Set nodx = Treeview1.Nodes.Add(, tvwFirst, "B", "测试B")
Set nodx = Treeview1.Nodes.Add("B", tvwChild, "B1", "B")
Set nodx = Treeview1.Nodes.Add("B", tvwChild, "B2", "BB")

--A
-----A
-----AA
-----AAA
--B
_____B
-----BB






这样一个结构的Treeview. 我怎么判断我所点击的node.text是在"测试A"的目录下面
还是在B的目录下面, 或者就是判断relative是A还是B.

[射天狼]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Not (Node.Parent Is Nothing) Then MsgBox Node.Parent.Text
End Sub

[strongfisher]

判断Node.Parent.Text
if Node.Parent.Text ="A" then
msgbox a
elseif Node.Parent.Text ="B" then

msgbox b
endif

[CsdnLamia]

我已经解决了。

If Node.Parent.Key = "A" Then

msgbox "ok"

end if

[aierong]

利用你的节点关键字

Dim nodx As Node

Private Sub Form_Load()
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "A", "测试A")
Set nodx = TreeView1.Nodes.Add("A", tvwChild, "A1", "A")
Set nodx = TreeView1.Nodes.Add("A", tvwChild, "A2", "AA")
Set nodx = TreeView1.Nodes.Add("A", tvwChild, "A3", "AAA")
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "B", "测试B")
Set nodx = TreeView1.Nodes.Add("B", tvwChild, "B1", "B")
Set nodx = TreeView1.Nodes.Add("B", tvwChild, "B2", "BB")

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Left(Node.Key, 1) = "A" Then MsgBox "a"
If Left(Node.Key, 1) = "B" Then MsgBox "b"

End Sub

[lisong770818]

aierong(pengdali(大力V1.0)的徒弟) ) 完全符合你提的问题。我赞同

[kmzs]

还有啥问题，treeview我玩的不少了，除了和数据库相关的别问我。。。

[yijiansong]

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Left(Node.Key, 1) = "A" Then MsgBox "a"
If Left(Node.Key, 1) = "B" Then MsgBox "b"

End Sub