Imports System.IO |
Imports System.Collections.Generic |
Imports System.Xml |
Imports System.Net |
Imports Telerik.Web.UI |
Imports System.Xml.Linq |
Imports System.Xml.XPath |
Imports System.Linq |
Imports System.ServiceModel |
|
Partial Class Repro |
Inherits System.Web.UI.Page |
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
If treeFolders.Nodes.Count = 0 Then |
|
tabStrip.Tabs.Add(New RadTab("Montreal", "100")) |
tabStrip.Tabs.Add(New RadTab("Quebec", "200")) |
|
If tabStrip.SelectedIndex = -1 Then |
tabStrip.SelectedIndex = 0 |
End If |
|
FillTreeRootNodes() |
End If |
End Sub |
|
Protected Sub treeFolders_NodeExpand(ByVal sender As Object, ByVal e As RadTreeNodeEventArgs) |
e.Node.Nodes.Add(New RadTreeNode(tabStrip.SelectedTab.Text)) |
End Sub |
|
|
Private Sub FillTreeRootNodes() |
|
Dim xProject = New XElement("Node", _ |
New XAttribute("Text", "ST0001 - Project 1"), _ |
New XAttribute("Value", "ST0001"), _ |
New XAttribute("ImageURL", "~/Images/iconSmall_Folder.jpg"), _ |
New XAttribute("Expanded", "true"), _ |
New XAttribute("Project", "true") _ |
) |
|
Dim xTree = New XElement("Tree", xProject) |
|
Dim xSub = New XElement("Node", _ |
New XAttribute("Text", "001 - Sub 1"), _ |
New XAttribute("Value", "001"), _ |
New XAttribute("ImageURL", "~/Images/iconSmall_Folder.jpg"), _ |
New XAttribute("Expanded", "False"), _ |
New XAttribute("ExpandMode", "ServerSideCallBack"), _ |
New XAttribute("SubProject", "true") _ |
) |
xProject.Add(xSub) |
|
xSub = New XElement("Node", _ |
New XAttribute("Text", "002 - Sub 2"), _ |
New XAttribute("Value", "002"), _ |
New XAttribute("ImageURL", "~/Images/iconSmall_Folder.jpg"), _ |
New XAttribute("Expanded", "False"), _ |
New XAttribute("ExpandMode", "ServerSideCallBack"), _ |
New XAttribute("SubProject", "true") _ |
) |
xProject.Add(xSub) |
|
|
Dim test = xTree.ToString() |
|
treeFolders.LoadXmlString(test) |
|
End Sub |
|
End Class |
|
|