Program with tree and text area

Just getting started. Want a program with tree, capability of adding items, on left and text area on
right to associate with tree item selected.

right now looking for tips on getting started to create tree and associated text areas to be saved.


any past questions or online articles would be helpful

aijohn
aijohnAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

NBrownohCommented:
Are you looking to add a node?
0
Richie_SimonettiIT OperationsCommented:
Just curious...
0
JohnChapinCommented:
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
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

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

aijohn
0
NBrownohCommented:
   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
0
aijohnAuthor Commented:
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.
0
JohnChapinCommented:
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
0
aijohnAuthor Commented:
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
0
JohnChapinCommented:
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
0
aijohnAuthor Commented:
Above code creates the node and file is found.
Now how do i get the text file inti the text box, Text1?

aijohn
0
JohnChapinCommented:
this part fills a txt box:
   Open TreeView1.SelectedItem.Text For Input As #1
   Line Input #1, myString
   Text1.Text = myString
   Line Input #1, myString
   Text1.Text = Text1.Text & myString
   Close #1

Hope This Helps
John
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
aijohnAuthor Commented:
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
0
aijohnAuthor Commented:
I did it.

Multiple lines set to true


and

& vbCrLf
0
JohnChapinCommented:
Are you finished with this, or are there more questions to be resolved?
John
0
aijohnAuthor Commented:
Your comments have been a great help.  i will give the points and then come back later with more questions.

aijohn
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.