关于treeview的问题

Question

Set treeview1.DropHighlight = Nothing

Answer 1

Public Sub loadData()
Dim rs As New Recordset
Dim i As Longtvw.Nodes.Clear
tvw.Nodes.Add , , "ALL", "所有数据", 1rs.Open "select * from 数据表", con
Do While Not rs.EOF
    tvwN.Nodes.Add "ALL", tvwChild, "K" & rs!id, rs!name, 2
    rs.MoveNext
Loop
rs.CloseSet treeview1.DropHighlight = Nothing  '高亮度显示去掉End Sub

Answer 2

ste treeview1.selecteditem=nothing

Answer 3

对不起，前面粘贴粗心了，修改如下：Public Sub loadData()
Dim rs As New Recordset
Dim i As Longtvw.Nodes.Clear
tvw.Nodes.Add , , "ALL", "所有数据", 1rs.Open "select * from 数据表", con
Do While Not rs.EOF
    tvw.Nodes.Add "ALL", tvwChild, "K" & rs!id, rs!name, 2
    rs.MoveNext
Loop
rs.CloseSet tvw.DropHighlight = Nothing  '将高亮度显示去掉End Sub