Load from a textfile

web development India freelance website designer

' Load a TreeView control from a file that uses tabs to show indentation.

Private Sub LoadTreeViewFromFile(ByVal file_name As String, ByVal trv As TreeView)
Dim fnum As Integer
Dim text_line As String
Dim level As Integer
Dim tree_nodes() As Node
Dim num_nodes As Integer
fnum = FreeFile
Open file_name For Input As fnum
TreeView1.Nodes.Clear
Do While Not EOF(fnum)
' Get a line.
Line Input #fnum, text_line
' Find the level of indentation.
level = 1
Do While Left$(text_line, 1) = vbTab
level = level + 1
text_line = Mid$(text_line, 2)
Loop
' Make room for the new node.
If level > num_nodes Then
num_nodes = level
ReDim Preserve tree_nodes(1 To num_nodes)
End If
' Add the new node.
If level = 1 Then
Set tree_nodes(level) = TreeView1.Nodes.Add(, , , text_line)
Else
Set tree_nodes(level) = TreeView1.Nodes.Add(tree_nodes(level - 1), tvwChild, , text_line)
tree_nodes(level).EnsureVisible
End If
Loop
Close fnum'''
End Sub

Private Sub Command1_Click()
LoadTreeViewFromFile Text1.Text, TreeView1
End Sub

Private Sub Form_Load()
Dim file_name As String
file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "test.txt"
Text1.Text = file_name
End Sub

Private Sub Form_Resize()
Dim hgt As Single
hgt = ScaleHeight - TreeView1.Top
If hgt < 120 Then hgt = 120
TreeView1.Move 0, TreeView1.Top, ScaleWidth, hgt
End Sub

1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593

Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design