我保存了TreeView控件当前选中节点的index值,然后这个树形控件重新构造,我根据index值,使这个节点被选中,如何才能使滚动条滚动到这个被选中的节点呢?

解决方案 »

  1.   

    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
      

  2.   

    结点获取焦点
    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) '将焦点定位到新的节点你这样写应该会到位置的