Dim root, node As node
TreeView1.Nodes.Clear
Set root = TreeView1.Nodes.Add()
root.Text = "Good"
Set node = TreeView1.Nodes.Add(1, tvwChild)
node.Text = "Bad"
Set node = TreeView1.Nodes.Add(1, tvwChild)
node.Text = "Bad2"没有+号出现在Good上!
这是什么属性设置才可以出现+呢??请教了~!

解决方案 »

  1.   

    问题一:
    Style 属性(TreeView 控件)
          返回或设置图形类型(图像、文本、+/- 号、直线)以及出现在 TreeView 控件中每一 Node 对象上的文本的类型。语法object.Style [ = number]Style 语法包含下面部分:部分 描述 
    object 对象表达式,其值是“应用于”列表中的一个对象。 
    number 指定图形类型的整数,请参阅“设置值”中的描述。 
    设置值number 的设置值是:设置值 描述 
    0 仅为文本。 
    1 图像和文本。 
    2 +/- 号和文本。 
    3 +/- 号,图像和文本。 
    4 直线和文本。 
    5 直线,图像和文本。 
    6 直线,+/- 号和文本。 
    7 (缺省)直线,+/- 号,图像和文本。 
    说明若 Style 属性设置为包含直线的值,则 LineStyle 属性就确定了直线的外观。如果 Style 属性设置为不含直线的值,则 LineStyle 属性将被忽略。
    问题二:
    LineStyle 属性(TreeView 控件)
          这个属性返回或设置在 Node 对象之间显示的线的样式。语法object.LineStyle [ = number]LineStyle 属性的语法包含下面部分:部分 描述 
    object 对象表达式,其值是“应用于”列表中的一个对象。 
    number 值或常数,它指定线的样式,如设置值所示: 
    设置值number 的设置值是:常数 值 描述 
    tvwTreeLines 0 (缺省)三线。显示在 Node 相邻节点和它们的父 Node 之间的线。 
    tvwRootLines 1 根线。除了显示在 Node 相邻节点和它们的父 Node 之间的线以外,还显示根节点之间的线。 
    说明必须将 Style 属性设置为包括三线的样式。
    ^_^