主题：如何利用自建的目录树归类筛选

AfterLoad事件

If FileSys.FileExists(ProjectPath & "mytree") Then
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    trv.load(ProjectPath & "mytree")
End If

BeforeClose事件

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Save(ProjectPath & "mytree")