我如何使TREEVIEW里的某个NODE自动得到焦点，并对此NODE进行CLICK事件？

Question

RT

Answer 1

'刷新员工信息数据
    Dim nodeX As Node
    Set nodeX = frmEmplyee.tvwDept.Nodes(g_strNodeKey)
    Call frmEmplyee.tvwDept_NodeClick(nodeX)用g_strNodeKey记录下要点击的节点

Answer 2

谁知道frmEmplyee.tvwDept_NodeClick(nodeX)这个函数是怎么写的。捣糨糊

Answer 3

'////////////////////////
Private Sub TreeView_NodeClick(ByVal Node As Node)
 TreeView.Nodes(3).Selected = True
end sub

Answer 4

楼上没懂我意思，我是要在程序运行后让用户指定一个NODES。
我有个数据库，TREEVIEW里里面的东西是从表A的NAME列里面读出来的
我现在从TEXT2里面输入字段当我输入a时那么TREEVIEW就会自动把交点跳到a字母打头的第一个NODE上
如果我在TEXT2中输入abc那么TREEVIEW就会自动把交点跳到abc字母打头的第一个NODE上

Answer 5

这是写在text_change事件中，不是treeview_nodeclick事件

Answer 6

Private Sub Text1_Change()
Dim xbel As IntegerSet conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.open allconn
sql = "select name from table where name like '" & Text1.Text & "'&'%' order by name "
rs.open sql, conn, 1, 1
xbel = 0
Do While xbel > -1 And Not rs.EOF
xbel = xbel + 1
If TreeView1.Nodes(xbel).Text = rs("name") Then
TreeView1.Nodes(xbel).Selected = True'CLICK事件需要调用TreeView1_NodeClick或者DblClick事件
xbel = -1
End If
Loop
End Sub

Answer 7

只要把NODES（XBEL）传过去就行了