?
Solved

Program with tree and text area

Posted on 2003-11-04
15
Medium Priority
?
221 Views
Last Modified: 2010-05-01
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
0
Comment
Question by:aijohn
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 5
  • 2
  • +1
15 Comments
 
LVL 3

Expert Comment

by:NBrownoh
ID: 9681334
Are you looking to add a node?
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
ID: 9681551
Just curious...
0
 
LVL 4

Expert Comment

by:JohnChapin
ID: 9681627
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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:aijohn
ID: 9681755
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
 
LVL 3

Expert Comment

by:NBrownoh
ID: 9681980
   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
 

Author Comment

by:aijohn
ID: 9696500
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
 
LVL 4

Expert Comment

by:JohnChapin
ID: 9696547
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
 

Author Comment

by:aijohn
ID: 9696652
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
 
LVL 4

Expert Comment

by:JohnChapin
ID: 9696849
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
 

Author Comment

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

aijohn
0
 
LVL 4

Accepted Solution

by:
JohnChapin earned 500 total points
ID: 9697078
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
 

Author Comment

by:aijohn
ID: 9697281
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
 

Author Comment

by:aijohn
ID: 9698059
I did it.

Multiple lines set to true


and

& vbCrLf
0
 
LVL 4

Expert Comment

by:JohnChapin
ID: 9701027
Are you finished with this, or are there more questions to be resolved?
John
0
 

Author Comment

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

aijohn
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

801 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question