以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]树节点定位  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169836)

--  作者:chnfo
--  发布时间:2021/7/2 18:47:00
--  [求助]树节点定位
窗口中有一个树,生成树以后,准备定位到第一个节点。在命令窗口执行代码

Dim trv1 As WinForm.TreeView = Forms("XX").Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv1.SelectedNode
If trv1.AllNodes.Count > 0 Then
trv1.SelectedNode = trv1.Nodes(0)  \'这个是定位到了第一个节点,但滚动条并没有滚动到顶上。 
End If

[此贴子已经被作者于2021/7/2 18:53:05编辑过]

--  作者:有点蓝
--  发布时间:2021/7/3 8:56:00
--  
参考:http://www.foxtable.com/webhelp/topics/0914.htm