如何通过代码展开treeView控件的节点。

Question

随便在我写的代码里COPY了一段，原理就是这样的了，如下：
 Set nod = lstProduct.Nodes.Add(Node.Key, tvwChild, , rs!strcompany)
        
        nod.EnsureVisibl

Answer 1

MSDN:
 
Expanded 属性
      这个属性返回或设置一个值，该值确定在 TreeView 控件中的 Node 对象当前是被展开的还是被折叠的。语法object.Expanded[= boolean]Expanded 属性的语法包含下面部分：t部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
boolean 布尔表达式，其值指定该节点是被展开的还是被折叠的。 
boolean 的设置值是：设置值 描述 
True 该 Node 当前被展开。 
False 该 Node 当前被折叠。 
说明可以使用 Expanded 属性编程展开 Node 对象。以下代码与双击第一个 Node 的作用相同：TreeView1.Nodes(1).Expanded = True在 Node 对象被展开时，Expand 事件发生。如果一个 Node 对象没有子节点，则该属性值被忽略。

Answer 2

展开某个节点
TView1.Nodes("n").Expanded = True

Answer 3

就是设置节点的Expanded属性，true则展开节点的子节点，false则折叠节点的子节点。