2020-12-14

TreeView的基本操作

TreeView的基本操作
1.增加顶节点
2.增加分节点
3.删除所选节点
4.预防错误的发生
5.补充说明：
6.添加弹出式菜单(有点难)
7.改变背景颜色(调用 API 函数)

1.增加顶节点
TreeView1.Nodes.Add , tvwLast, , "顶节点 " '注：基本的语法看Cmctl198.CHM这里就不说了

2.增加分节点
TreeView1.Nodes.Add 1, tvwChild, , "分节点 " '1表示一个已经存在的Node对象的索引号，这就是指在索引号为1的Node对象下新建一个分节点，可用下列语句取得你所点击的Node对象的索引号 ：
Private Sub TreeView1_Click() ‘点击TreeView时发生
index = TreeView1.SelectedItem.index
End Sub
下面这句就是在你任意点击的Node对象下建立一个分节点
TreeView1.Nodes.Add index, tvwChild, , "分节点 "

3.删除节点
TreeView1.Nodes.Remove index '删除你所点击的Node对象

4.预防错误的发生
（1）没有任何Node对象了，你仍然再删除节点，解决方法如下：
On Error GoTo err
TreeView1.Nodes.Remove index '删除节点
err:
Exit Sub
（2）没有任何Node对象时，你建立分节点，解决方法如下：
On Error GoTo err
TreeView1.Nodes.Add index, tvwChild, , "分节点 " '增加顶节点
Exit Sub
err:
TreeView1.Nodes.Add , tvwLast, , "顶节点 " '增加顶节点

5.补充说明：
如要显示图像，请加载ImageList控件与TreeView邦定，然后使用如下语句：
TreeView1.Nodes.Add , tvwLast, , "顶节点 ",1 '这里的1就是ImageList控件的图像索引
最好把TreeView的Style属性设置为7，LineStylen属性设置为1会比较好看些。

Hi，如果你把上面的都搞清楚了，就可以学习一下下面的小技巧(有点难度哟)

6.增加右键弹出式菜单
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim nod As Node

If Button = vbRightButton Then '检测鼠标的点击

Set nod = TreeView1.HitTest(x, y) '返回你所点击的Node对象的坐标

On Error GoTo EmptyNode

nod.Selected = True ’ 设置你所点击的Node对象被选中

On Error GoTo 0

’ < <下面是你的自定义菜单> >

Me.PopupMenu mnuPopUp

EmptyNode:

On Error GoTo 0

End If

End Sub

好了好了，看来你的基本操作都差不多会了，现在就来个难的(没有注释)，请向下接着看：

7.调用 API 函数改变 TreeView 的背景色
首先声明 API 函数
Private Declare Function SendMessage Lib "User32 " Alias "SendMessageA " (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Declare Function GetWindowLong Lib "User32 " Alias "GetWindowLongA " (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "User32 " Alias "SetWindowLongA " (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = -16&
Private Const TVM_SETBKCOLOR = 4381&
Private Const TVM_GETBKCOLOR = 4383&
Private Const TVS_HASLINES = 2&

下面就是改变背景色的代码
Dim lngStyle As Long
Call SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))
'改变背景到红色

lngStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)
Call SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES)
Call SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle)

结合数据库填充TreeView的实例

Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "公安派出所")
cn.Open pstr
sql = "select  distinct 工作类型  from 警员人事信息 "
rs.Open sql, cn, adOpenStatic, adLockReadOnly
For i = 1 To rs.RecordCount
  If Not IsNumeric(rs!工作类型) Then
      Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C" & CStr(i), rs!工作类型)
  End If
  rs.MoveNext
Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
nodX.EnsureVisible