以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 目录树在导航里如何实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24615)
--  作者：ybc76
--  发布时间：2012/10/18 12:10:00
--  [求助] 目录树在导航里如何实现

想在导航栏里加一个目录树，但这行代码不起作用，应该放在哪才有效,应如何设计:

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add("Root1","根节点一")
nd.Nodes.Add("Sub1","子节点一")
nd.Nodes.Add("Sub2","子节点二")
nd = Tr.Nodes.Add("Root2","根节点二")
nd.Nodes.Add("Sub3","子节点三")
nd.Nodes.Add("Sub4","子节点四")
--  作者：lihe60
--  发布时间：2012/10/18 12:11:00
--  
afterload中
--  作者：狐狸爸爸
--  发布时间：2012/10/18 12:40:00
--  

窗口的AfterLoad事件中。