以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  treeview定位  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170069)

--  作者:yxl2012
--  发布时间:2021/7/10 22:48:00
--  treeview定位
  请教老师,打开界面后,想treeview展开默认定位到最后一个节点。当添加记录后,刷新treeview也能定位到最后一个节点,即该记录节点。
--  作者:chnfo
--  发布时间:2021/7/11 14:40:00
--  
Dim trv As WinForm.TreeView 
trv.ExpandAll
Dim lstnd As new List(of WinForm.TreeNode
For Each nd As WinForm.TreeNode In trv.AllNodes
    lstnd.Add(nd)
Next

trv.SelectedNode = lstnd(lstnd.Count - 1)

--  作者:有点蓝
--  发布时间:2021/7/11 21:28:00
--  
Dim trv As WinForm.TreeView = e.Form.controls("TreeView1")
trv.ExpandAll
Dim nd As WinForm.TreeNode
nd = trv.Nodes(trv.Nodes.Count - 1)
Do While nd.Nodes.Count > 0
    nd = nd.Nodes(nd.Nodes.Count - 1)
Loop
trv.SelectedNode = nd
nd.EnsureVisible