Microsoft.Web.U I.Webcontrol Treeview

[Hutty]

I would like to convert the code below into an asp.net application where I
can run it via the web. It works ok for vb.net, but my goal is to do it
through the browser. I have in a few areas, in particular the
"application.st artuppath" where it's not part of the System.Web.
HttpApplication State. Another area is "trv.Nodes.Add( text_line.Trim( ))"
where value of type string cannot be converted to
Microsoft.web.u i.webcontrol.tr eenode. Also, the "EnsureVisi ble" not
supported it seems. I didn't include the file organization.tx t, but it could
be any file that has tabs denoting the tree structure.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim file_name As String = Application.Sta rtupPath
file_name = file_name.Subst ring(0, file_name.Lengt h - 1)
file_name = file_name.Subst ring(0, file_name.LastI ndexOf("\"))
file_name &= "\organization3 .txt"
LoadTreeViewFro mFile(file_name , TreeView1)
End Sub

' Load a TreeView control from a file that uses tabs
' to show indentation.
Private Sub LoadTreeViewFro mFile(ByVal file_name As String, ByVal trv As
TreeView)
' Get the file's contents.
Dim stream_reader As New StreamReader(fi le_name)
Dim file_contents As String = stream_reader.R eadToEnd()
stream_reader.C lose()

' Remove line feeds.
file_contents = file_contents.R eplace(vbLf, "")

' Break the file into lines.
Const charCR As Char = CChar(vbCr)
Const charTab As Char = CChar(vbTab)
Dim lines() As String = file_contents.S plit(charCR)

' Process the lines.
Dim text_line As String
Dim level As Integer
Dim tree_nodes() As TreeNode
Dim num_nodes As Integer = 0
ReDim tree_nodes(num_ nodes)
Dim cHA As Char
cHA = " "c
trv.Nodes.Clear ()
For i As Integer = 0 To lines.GetUpperB ound(0)
text_line = lines(i)
If text_line.Trim( ).Length > 0 Then
' See how many tabs are at the start of the line.
level = text_line.Lengt h - text_line.TrimS tart(charTab).L ength

' Make room for the new node.
If level > num_nodes Then
num_nodes = level
ReDim Preserve tree_nodes(num_ nodes)
End If

' Add the new node.
If level = 0 Then
tree_nodes(leve l) = trv.Nodes.Add(t ext_line.Trim() )
Else
tree_nodes(leve l) = tree_nodes(leve l -
1).Nodes.Add(te xt_line.Trim())
End If
tree_nodes(leve l).EnsureVisibl e()
End If
Next i

If trv.Nodes.Count > 0 Then trv.Nodes(0).En sureVisible()
End Sub
--
Hutty

[Hutty]

Just following up to see if anyone has any ideas on the solution below.

thanks

"Hutty" wrote:

I would like to convert the code below into an asp.net application where I
can run it via the web. It works ok for vb.net, but my goal is to do it
through the browser. I have in a few areas, in particular the
"application.st artuppath" where it's not part of the System.Web.
HttpApplication State. Another area is "trv.Nodes.Add( text_line.Trim( ))"
where value of type string cannot be converted to
Microsoft.web.u i.webcontrol.tr eenode. Also, the "EnsureVisi ble" not
supported it seems. I didn't include the file organization.tx t, but it could
be any file that has tabs denoting the tree structure.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim file_name As String = Application.Sta rtupPath
file_name = file_name.Subst ring(0, file_name.Lengt h - 1)
file_name = file_name.Subst ring(0, file_name.LastI ndexOf("\"))
file_name &= "\organization3 .txt"
LoadTreeViewFro mFile(file_name , TreeView1)
End Sub

' Load a TreeView control from a file that uses tabs
' to show indentation.
Private Sub LoadTreeViewFro mFile(ByVal file_name As String, ByVal trv As
TreeView)
' Get the file's contents.
Dim stream_reader As New StreamReader(fi le_name)
Dim file_contents As String = stream_reader.R eadToEnd()
stream_reader.C lose()

' Remove line feeds.
file_contents = file_contents.R eplace(vbLf, "")

' Break the file into lines.
Const charCR As Char = CChar(vbCr)
Const charTab As Char = CChar(vbTab)
Dim lines() As String = file_contents.S plit(charCR)

' Process the lines.
Dim text_line As String
Dim level As Integer
Dim tree_nodes() As TreeNode
Dim num_nodes As Integer = 0
ReDim tree_nodes(num_ nodes)
Dim cHA As Char
cHA = " "c
trv.Nodes.Clear ()
For i As Integer = 0 To lines.GetUpperB ound(0)
text_line = lines(i)
If text_line.Trim( ).Length > 0 Then
' See how many tabs are at the start of the line.
level = text_line.Lengt h - text_line.TrimS tart(charTab).L ength

' Make room for the new node.
If level > num_nodes Then
num_nodes = level
ReDim Preserve tree_nodes(num_ nodes)
End If

' Add the new node.
If level = 0 Then
tree_nodes(leve l) = trv.Nodes.Add(t ext_line.Trim() )
Else
tree_nodes(leve l) = tree_nodes(leve l -
1).Nodes.Add(te xt_line.Trim())
End If
tree_nodes(leve l).EnsureVisibl e()
End If
Next i

If trv.Nodes.Count > 0 Then trv.Nodes(0).En sureVisible()
End Sub
--
Hutty