这是page_load的程序片断:
Try
myconnection.Close()
myconnection.Open()
Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader
'显示根节点
mytree.Nodes.Clear()
While mysqlreader.Read()
Dim tree_root As New TreeNode()
tree_root.ID = mysqlreader.GetString(0)
tree_root.Text = mysqlreader.GetString(1)
tree_root.ImageUrl = Server.MapPath("image\") + mysqlreader.GetString(2)
tree_root.ExpandedImageUrl() = mysqlreader.GetString(3)
mytree.Nodes.Add(tree_root)
End While
Catch ex As Exception
Finally
myconnection.Close()
End Try
Private Sub mytree_SelectedIndexChange(ByVal sender As Object, ByVal e As Microsoft.Web.UI.WebControls.TreeViewSelectEventArgs) Handles mytree.SelectedIndexChange
Label1.Text = e.NewNode
End Sub