Program with tree and text area

Are you looking to add a node?

Just curious...

IN VB6 you got a control called a treeview that can grow and shrink the branches like explorer's folders, using the + sign.
When a node/branch is selected you get a lot of control over what happens, including the ablility to load a text box.
Start a test project and play with it.

Need More? Let me know.
John

Yep, wanted to add, delete, edit nodes. It's been a while since I used VB
so will just have to get started.

aijohn

   TVW.Nodes.Add , tvwFirst, , "1st node"
    TVW.Nodes.Add 1, tvwChild, , "1st Child"
    TVW.Nodes.Add , tvwFirst, , "2nd Node"
    TVW.Nodes.Add 3, tvwChild, , "1st Child"
    TVW.Nodes.Add 3, tvwChild, , "2nd Child"
    TVW.Nodes.Add 3, tvwChild, , "3rd Child"

that will add nodes, for the child the first thing you do is specify the index of the parent, you can see the parents dont define that, but the childs do, 1 and 3 being the indexes.

TVW.Nodes.Remove 6

that will remove the 3rd child node in the example above

TVW.Nodes(1).Text = "Hey there, im the first node, a parent to only 1 child"

that will change the text of the first index node

TVW.Nodes(1).Bold = True

that will set the first index text to be bold

Will make this a specific question.
I have the tree and the text area.

Would like to click on a tree node and bring up a specific text file in the text area.

AiJOhn,
the tree-view has a click event when the user selects a node.
In the event you can load the textbox with data from anywhere: code, file, database queries.
You are also allowed to change the node text on the fly, in case you want to show that the node has already been used.
HTH
John

Some code please or point me in the right direction

I have Text1 and Treeview1 with some nodes loaded

I want to click on a specific node and show c:\stuff\story.txt in the text area

Here is some code to GUIDE you in the direction you need:

Private Sub Form_Load()
Dim nd As Node
Set nd = TreeView1.Nodes.Add(, , "Root", "Root")
Set nd = TreeView1.Nodes.Add("Root", tvwChild, , "c:\_NavCClt.Log")
End Sub

Private Sub TreeView1_Click()
Dim myString As String
'MsgBox "click" & TreeView1.SelectedItem.Text
If TreeView1.SelectedItem.Text = "Root" Then
   TreeView1.SelectedItem.Expanded = True
End If
If TreeView1.SelectedItem.Text = "c:\_NavCClt.Log" Then
    Open TreeView1.SelectedItem.Text For Input As #1
    Line Input #1, myString
    txtAmount2.Text = myString
    Line Input #1, myString
    txtAmount2.Text = txtAmount2.Text & myString
    Close #1

End If
End Sub


Need More? let me know.
John

Above code creates the node and file is found.
Now how do i get the text file inti the text box, Text1?

aijohn

Modified your code using an example from this site as follows
Both your code and this prints on one line . How do I get the line breaks then I think I
am ready to play with this some more , thanks.

Private Sub TreeView1_Click()

Dim myString As String
'MsgBox "click" & TreeView1.SelectedItem.Text
If TreeView1.SelectedItem.Text = "Root" Then
   TreeView1.SelectedItem.Expanded = True
End If
If TreeView1.SelectedItem.Text = "c:\test_dir\note2.txt" Then
 
Open TreeView1.SelectedItem.Text For Input As #1

Dim strData As String

Do Until EOF(1)
    Line Input #1, strData
Text1.Text = Text1.Text & strData
    'strData now contains the line of data - process as needed
Loop
   
   
   Close #1


End If
End Sub

I did it.

Multiple lines set to true


and

& vbCrLf

Are you finished with this, or are there more questions to be resolved?
John

Your comments have been a great help.  i will give the points and then come back later with more questions.

aijohn