test

1 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 2 3 '*****取得Tree物件***** 4 '利用Session 當Tree已經建立過，不重新建立，直接從Session中取得，加快速度 5 If Session("Tree1") Is Nothing Then 6 'Tree不曾建立過→呼叫建立TreeView程序 7 Call InitTree() '初始化Tree 8 Call BuildTree() '建立Tree內容 9 End If 10 '宣告Tree物件 11 Dim Tree1 As TreeView 12 '從Session中取得Tree物件 13 Tree1 = Session("Tree1") 14 15 '設定Tree的ImageSet 16 Tree1.ImageSet = TreeViewImageSet.XPFileExplorer 17 '置放於PlaceHolder 18 Me.PlaceHolder1.Controls.Add(Tree1) 19 End Sub