Option ExplicitPrivate Sub Command1_Click() Me.TreeView1.SetFocus Me.TreeView1.Nodes(80).Selected = True'将80换成你需要的数 Me.TreeView1.Nodes(80).EnsureVisibleEnd SubPrivate Sub Form_Load() Dim i As Long For i = 1 To 100 Me.TreeView1.Nodes.Add , , , "line " + CStr(i) Next End Sub .Nodes(80).EnsureVisible
结点获取焦点 Public Sub TreeView_NodeSetFocus(ByRef tvw As TreeView, ByVal vKey As String) tvw.Nodes(vKey).Selected = True End Sub'调用 "r"&txcode.text即是node的Key值 Call TreeView_NodeSetFocus(tvwList, "r" & txtCode.Text) '将焦点定位到新的节点你这样写应该会到位置的
Me.TreeView1.SetFocus
Me.TreeView1.Nodes(80).Selected = True'将80换成你需要的数
Me.TreeView1.Nodes(80).EnsureVisibleEnd SubPrivate Sub Form_Load()
Dim i As Long
For i = 1 To 100
Me.TreeView1.Nodes.Add , , , "line " + CStr(i)
Next
End Sub
.Nodes(80).EnsureVisible
Public Sub TreeView_NodeSetFocus(ByRef tvw As TreeView, ByVal vKey As String)
tvw.Nodes(vKey).Selected = True
End Sub'调用 "r"&txcode.text即是node的Key值
Call TreeView_NodeSetFocus(tvwList, "r" & txtCode.Text) '将焦点定位到新的节点你这样写应该会到位置的