1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
strongfisher 2003-09-24
- 打赏
- 举报
nodx.EnsureVisible
yunfeng007 2003-09-24
- 打赏
- 举报
在 Collapse 事件中重新展开节点
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Child.EnsureVisible
End Sub
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Child.EnsureVisible
End Sub
守城小轩 2003-09-24
- 打赏
- 举报
我在学习Treeview写过一个例子你要可以给你!
守城小轩 2003-09-24
- 打赏
- 举报
展开所有接点
nodx.EnsureVisible
nodx.EnsureVisible
James0001 2003-09-24
- 打赏
- 举报
在 Collapse 事件中重新展开节点。
qinyonlhm 2003-09-24
- 打赏
- 举报
如果是显示每一层的话用。
TreeView1.nodes(1).Expanded=true
就可以了。
如果想显示特定的一个节点下
用TreeView1.nodes("该节点的健值").Expanded=true就可以了
TreeView1.nodes(1).Expanded=true
就可以了。
如果想显示特定的一个节点下
用TreeView1.nodes("该节点的健值").Expanded=true就可以了
northwolves 2003-09-23
- 打赏
- 举报
Private Sub Form_Load()
For i = 65 To 90
TreeView1.Nodes.Add , , Chr(i), Chr(i)
TreeView1.Nodes(i - 64).Expanded = True
Next
For i = 65 To 90
For j = 1 To 10
TreeView1.Nodes.Add Chr(i), 4, Chr(i) & j, Chr(i) & j
Next
Next
End Sub
For i = 65 To 90
TreeView1.Nodes.Add , , Chr(i), Chr(i)
TreeView1.Nodes(i - 64).Expanded = True
Next
For i = 65 To 90
For j = 1 To 10
TreeView1.Nodes.Add Chr(i), 4, Chr(i) & j, Chr(i) & j
Next
Next
End Sub
