Children 属性 这个属性返回包含在 Node 对象中的各子 Node 对象的个数。语法object.Childrenobject 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。说明在执行一个影响子节点的操作之前,可用 Children 属性检查 Node 对象是否有子节点。例如,以下代码在检索第一个 Node 的 Text 属性之前,使用 Child 属性检查子节点的存在。Private Sub TreeView1_NodeClick(ByVal Node As Node) If Node.Children > 0 Then MsgBox Node.Child.Text End If End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) if Node.Root.Text="根节点显示文本" then msgbox "是父节点" else msgbox "是子节点" end if End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) if Node.Root.Text="根节点显示文本" then msgbox "是父节点" else msgbox "是子节点" end if End Sub
zyl910(910:分儿,我又来了!) 是正解
如果是判断叶节点的话, 判断Node.Children = 0就可以了
估计楼主的意思是判断某个数结点是否是最终结点吧,即节点是否还有子节点 可以用children属性 if treeview.nodes(i).children>0 then '有子节点 else '无子节点 endif
Children 属性
这个属性返回包含在 Node 对象中的各子 Node 对象的个数。语法object.Childrenobject 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。说明在执行一个影响子节点的操作之前,可用 Children 属性检查 Node 对象是否有子节点。例如,以下代码在检索第一个 Node 的 Text 属性之前,使用 Child 属性检查子节点的存在。Private Sub TreeView1_NodeClick(ByVal Node As Node)
If Node.Children > 0 Then
MsgBox Node.Child.Text
End If
End Sub
if Node.Root.Text="根节点显示文本" then
msgbox "是父节点"
else
msgbox "是子节点"
end if
End Sub
if Node.Root.Text="根节点显示文本" then
msgbox "是父节点"
else
msgbox "是子节点"
end if
End Sub
判断Node.Children = 0就可以了
可以用children属性
if treeview.nodes(i).children>0 then
'有子节点
else
'无子节点
endif