Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
示例
在窗口中插入一个目录树、一个按钮,将按钮的Click事件代码设为:
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","子节点四")
运行时单击按钮,会生成目录树: