主题：目录树怎么生成的

帮助文件中的一个例子，怎么都没看懂下拉窗口的目录树是怎么生成的，求给指点一下。

以下是项目的全部代码，能麻烦您帮我指出是哪几句生成了目录树吗？

项目事件

 

AfterOpenProject

 

Tables("表A").Cols("第一列").DropForm  = "窗口1"

 

计划管理

 

表事件

 

窗口表事件

 

窗口与控件事件

 

窗口1_Button1_Click

 

Dim s As String

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Checked Then

        s = s & "," & nd.Text

    End If

Next

e.Form.DropDownBox.Value = s.trim(",")

e.Form.DropDownBox.CloseDropdown

 

窗口1_DropDownOpened

 

Dim s As String  = e.Form.DropDownBox.Value

Dim nms As new List(of String)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

If s > "" Then

    nms.AddRange(s.Split(","))

End If

For Each nd As WinForm.TreeNode In trv.AllNodes

    nd.Checked = nms.Contains(nd.text)

Next

 

自定义函数

 

全局代码

 

菜单事件