Solved

Program with tree and text area

Posted on 2003-11-04
15
218 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
  • 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
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!

 

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 125 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

Technology Partners: 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

Suggested Solutions

Title # Comments Views Activity
JSON Response and request in VB6 application 11 784
How to set the row selection as it was prior leaving the datagrid in vb6 3 55
vbModal 12 65
backup program with robocopy 6 69
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…

685 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