treeview的问题
tvTreeView.Nodes.Add [父级键值 可选], [加入方式 可选], KEY值, TEXT值, 图片显示[图片的INDEX], 被选中时的图片显示[图片的INDEX]
在实际开发中，许多人不喜欢使用TreeView，主要是由于默认的TreeView是“只读”的，不支持添加、删除、编辑、调整节点位置等操作。本文通过一个TVEdit工程说明如何解决这些问题。
TreeView是最灵活的Windows控件之一，它以分层的形式显示数据，允许用户随意扩展或折叠节点。鉴于实际生活中许多事物有着层次关系，如计算机里的文件夹、人事组织关系、地区从属关系等，TreeView的应用也极其广泛。但在实际开发中，许多人不喜欢使用TreeView，主要是由于默认的TreeView是“只读”的，不支持添加、删除、编辑、调整节点位置等操作。本文将通过一个TVEdit工程说明如何解决这些问题。
TVEdit工程（图一）允许在运行时生成节点数据、编辑节点标签、通过拖放操作改变节点的位置，以及将TreeView的数据保存到XML文件或从XML文件读取。
图一
一、规划键击事件
修改用户界面控件的默认行为不仅要考虑到用户如何通过鼠标访问新的控件功能，而且还要允许用户使用键盘操作。TreeView默认支持下列键击事件：
▲ 上下两个箭头键移动光标（变换当前被选中的节点）。
▲ 左右箭头键除了变换当前被选中的节点之外，兼具扩展/折叠节点功能。
▲ Enter键扩展或折叠节点。
TVEdit工程不改变这些默认的键击行为。但由于TreeView默认的键击事件不允许用户编辑其内容，所以我们要另外添加几个事件：
▲ 按Insert键在当前选中的节点之下插入一个新的节点。如果要添加一个新的根节点，按Ctrl+Insert键。用户按下Insert键之后，控件自动进入编辑状态，再按Enter键可退出编辑状态，控件自动选中父节点，以便用户只需按一下Insert键就可以在同一父节点之下插入新节点。
▲ 按Space键（或鼠标停留较长时间）使当前选中的节点进入编辑状态（也许有的人更乐意用Enter键进入编辑状态，但TreeView控件已经定义了Enter键的默认行为，所以这里不再用它）。
▲ 按Delete键删除当前选中的节点。如果被删除的节点包含子节点，所有子节点也被同时删除。
▲ 用鼠标拖放节点可改变节点在TreeView分层结构中的位置。如果被拖动的节点包含子节点，所有子节点也将被移动。
二、设计事件的句柄
在TVEdit工程中，TreeView控件的KeyDown事件句柄处理所有涉及键击的编辑操作，它用一个Select Case块判断用户按下的键，每一个Case语句对应一个键击事件。
当用户按下Space键，我们调用StartLabelEdit方法将节点转入编辑模式。如果被按下的是Delete键，则调用TreeView.Nodes集合的Remove方法删除当前选中的节点。对于Insert键，则用下面的代码在当前选中的节点下添加一个新节点，使新节点处于编辑模式：
Set currNode = SmartTreeView.Nodes.Add (SmartTreeView.SelectedItem, tvwChild)
currNode.Text = ""
SmartTreeView.StartLabelEdit
如果用户按下了Ctrl+Insert键，通过下面的代码添加一个新的根节点并让它处于编辑状态：
If Shift And vbCtrlMask Then
Set currNode = SmartTreeView.Nodes.Add()
currNode.Selected = True
SmartTreeView.StartLabelEdit
End If
每一个节点必须有一个键——字符串形式的标识符。对于新添加的或编辑过的节点，我们在编辑操作结束时生成一个1到10000000之间的随机数字，加上前缀“K”，以此作为节点的键。由于Rnd()函数不保证随机数字的唯一性，所以我们使用了一个循环，如果第一次生成的键已经被使用，VB会触发一个错误，这时我们继续循环，寻找另外的键。
Dim Repeat As Boolean
Repeat = True
While Repeat
On Error Resume Next
SmartTreeView.SelectedItem.Key = "K" & 1 + Int(Rnd() * 10000000)
If Err.Number = 0 Then Repeat = False
Wend
三、拖放操作
TreeView控件本身不支持内部节点的拖放操作，所以我们要实现OLE拖放事件的句柄。首先必须把控件的OLEDragMode属性设置成ccOLEDragAutomatic，把OLEDropMode属性设置成ccOLEDropManual。当用户开始拖动一个节点，控件触发OLEStartDrag事件：
Private Sub SmartTreeView_OLEStartDrag( _
Data As MSComctlLib.DataObject, _
AllowedEffects As Long)
Data.Clear
If Not Me.SmartTreeView.SelectedItem Is Nothing Then
Data.SetData Me.SmartTreeView.SelectedItem.Key,vbCFText
End If
End Sub
OLEStartDrag事件句柄把Data参数设置成被拖放节点的Key属性，稍后我们可以看到这个值的用处。当用户用鼠标拖着节点移动，VB触发OLEDragOver事件，下面给出了事件句柄的代码。当用户拖着节点经过其他节点时，其他节点不会自动以高亮度颜色显示，所以我们必须将TreeView控件的DropHighlight属性设置到适当的节点，以表明鼠标当前正处在该节点的位置上。鼠标所在位置的节点可通过控件的HitTest方法获知，HitTest方法的参数是指针的坐标。
Private Sub SmartTreeView_OLEDragOver _
(Data As MSComctlLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, x As Single, _
y As Single, State As Integer)
With SmartTreeView
If State = vbLeave Then
Set .DropHighlight = Nothing
Else
.DropHighlight = .HitTest(x, y)
End If
End With
mfX = x
mfY = y
If y > 0 And y < 100 Then
m_iScrollDir = -1
Timer1.Enabled = True
ElseIf y > (SmartTreeView.Height - 200) And _
y < SmartTreeView.Height Then
m_iScrollDir = 1
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
拖着节点经过其他可见的节点不存在什么问题，但要把节点拖到某个当前不在控件可见区域的节点就要复杂一些。为了实现这个功能，当鼠标拖着节点到达TreeView控件的顶部或底部时，我们必须强制TreeView滚动其可见区域。TVEdit工程利用了一个每200ms触发的Timer，以便分析当前鼠标指针所处的位置。如果鼠标拖着节点到达距离TreeView控件顶部或底部100 pixel的位置，控件显示的内容就必须滚动。有关这一技术的详细说明，有兴趣的读者可参见MSDN文章Q177743。
SmartTreeView_OLEDragOver事件句柄有几行代码用来判断是否要滚动控件以及开启Timer，但实际的滚动操作由Timer的事件句柄完成。
当用户拖着节点到达目的地后放开鼠标键，控件触发OLEDragDrop事件，这个事件句柄要提取出被拖动的节点，并把它放在当前高亮度显示的节点之下。前面我们把被拖动节点的Key放入了事件句柄的参数Data对象，现在可以利用这个Key方便地从Notes集合得到被拖动的节点，只要把这个节点的ParentNode属性设置成当前高亮度显示的节点，就完成了移动节点（及其所有子节点）的操作。注意被拖动的节点不能放入它自己的子节点之下，因为这会形成父子节点相互引用的循环引用关系。
Private Sub SmartTreeView_OLEDragDrop( _
Data As MSComctlLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, x As Single, _
y As Single)
Dim strKey As String
Dim thisNode, DragNode As Node
Set oNode = Me.SmartTreeView.HitTest(x, y)
If Data.GetFormat(vbCFText) Then
strKey = Data.GetData(vbCFText)
Set oDragNode = SmartTreeView.Nodes(strKey)
On Error Resume Next
Set oDragNode.Parent = oNode
If Err.Number = 35614 Then
MsgBox "节点不能移动到此位置：不能创建循环引用关系。"
On Error GoTo 0
End If
Set SmartTreeView.DropHighlight = Nothing
End If
End Sub
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
如何用 TreeView
1、属性这里只给大家介绍Treeview控件的几个常用基本属性appearance属性：设置空间是否以3D效果显示
详细的外观设置可以转到此控件的“自定义”页面进行设置checkboxes属性：在树的每一项的旁边，是否显示一个复选框，类似checkbox控件的作用hottracking属性：当鼠标指针经过某个条目时，这些条目是否突出显示，类似网页的超链接效果labeledit属性：决定用户是否能编辑控件中列出的项目，此项如果不想被改变，可将属性值设置为1linestyle属性：设置列出的每项之间的行样式，即，如果为1，则当前项下还有子项的时候，它的前面会显示“+”号，如果值为2，则不显示“+”singlesel属性：设置在树中选择新的条目时，是否展开此条目并收拢前一个条目，即，设置为True时，并且当前选中的条目有子项的时候，会把子项展开，并将原来你选中的条目收拢，这一点很实用。style属性：设置Treeview控件的每个列表的组成方式，比如“图片”+“文本”方式，等等，这样你就可以把Treeview弄得更好看一些。2、用法介绍：一、Treeview控件添加条目和子条目通常使用ADD方法，其语法如下：Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])其中：
relationship 参数是通过关系节点参数与新节点连接的另一个节点；参数可能是以下情况：1-tvwlast 该节点置于所有其他的在relative中被命名的同一级别的节点的后面
2-tvwNext 该节点置于在relative中被命名节点的后面
3-tvwPrevius 该节点置于在relative中被命名的节点的前面
4-tvwChild 该节点成为在relative中被命名的节点的的子节点3、添加图像为节点插入图象可参考语句： Treeview.node(index).image="图片名"
可以参考Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])中的image和selectedimage项注：一般从imagelist控件中指定图象4、触发事件节点条目的单击click事件，将触发NodeClick事件
