Tree Node Problem

[athenso]

I am going to try to make an application for a game called Tibia. Now im building a Quest Helper. When you click a node it loads a text file for that node and projects it into a text doc to the right of the nodes to give the tips.

So heres what i have:

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TreeView1.Nodes.Add("Rook")
        Me.TreeView1.Nodes.Add("Bear Room")
        Me.TreeView1.Nodes.Add("Captn Iglues Treasure")
        Me.TreeView1.Nodes.Add("Combat Knife")
        Me.TreeView1.Nodes.Add("Doublet")
        Me.TreeView1.Nodes.Add("Dragon Corpse")
        Me.TreeView1.Nodes.Add("Goblin Temple")
        Me.TreeView1.Nodes.Add("Katana")
        Me.TreeView1.Nodes.Add("Minotaur")
        Me.TreeView1.Nodes.Add("----------------------------")
        Me.TreeView1.Nodes.Add("Main")

    End Sub

Now i want it so when say Node Bear Room is clicked it loads into RichTextBox1


Any suggestions? I know it should be pretty basic but I am having a brain fart that has lasted 3 days now :s Any help would be greatly appreciated

[si_the_geek]

Welcome to VBForums

Thread moved from the 'CodeBank VB6' forum (which is for you to post working code examples, not questions) to the 'VB.Net' (VB 2002 and later) forum

[dunfiddlin]

Er yeah ... pretty simple ...

RichTextBox1.Text = e.Node.Text

[athenso]

Naw like i want my Bear Room quest to have a text file with a detailed list of how to do that quest. So a text file to load when the Bear Room quest is clicked.

[4x2y]

Add dunfiddlin's code under AfterSelect event

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        RichTextBox1.Text = e.Node.Text
    End Sub

[athenso]

Ik but all that does is prints the words of the node selected. I have a text file named BearRoomQuest.txt I want it so when bear room node is selected that the BearRoomQuest.txt is loaded into the text box

[4x2y]

Ik but all that does is prints the words of the node selected. I have a text file named BearRoomQuest.txt I want it so when bear room node is selected that the BearRoomQuest.txt is loaded into the text box

To do that, you have to save the path to the file with the node while you populate the tree, use Node's Tag property to save the file path, e.g.

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim tvNode As TreeNode
        tvNode = TreeView1.Nodes.Add("Rook")
        tvNode.Tag = "path to Rook.txt"
        tvNode = TreeView1.Nodes.Add("Bear Room")
        tvNode.Tag = "path to Bear Room.txt"
        ' add the rest.
    End Sub

Then in AfterSelect event

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        RichTextBox1.LoadFile(e.Node.Tag)
    End Sub

[athenso]

Well it works but its not recognizing my path. The files are infact in that path.

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tvNode As TreeNode
        tvNode = TreeView1.Nodes.Add("Rook")
        tvNode.Tag.Rook = "D:\Tibia Tool\Quests\ExampleQuest.txt"
        tvNode = TreeView1.Nodes.Add("Bear Room")
        tvNode.Tag.Bear_Room = "D:\Tibia Tool\Quests\ExampleQuest2.txt"
    End Sub

    Private Sub QuitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitToolStripMenuItem.Click
        Me.Close()
        Form1.Close()
    End Sub


    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
        RichTextBox1.LoadFile(e.Node.Tag)



    End Sub

[4x2y]

What is that tvNode.Tag.Bear_Room = "D:\Tibia Tool\Quests\ExampleQuest2.txt"? It should be tvNode.Tag = "D:\Tibia Tool\Quests\ExampleQuest2.txt"

[athenso]

so i removed it and now it says file format is not valid.

[4x2y]

so i removed it and now it says file format is not valid.

Your main problem has been resolved, this is another issue!

The file must contains plain text or RTF text. What the program you have used to create that file? It should be Notepad, Wordpad or similar.

[athenso]

notepad ++ its saved as a .txt

[4x2y]

notepad ++ its saved as a .txt

RichTextBox1.LoadFile expect RTF not plain text, so replace with

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        RichTextBox1.Text = IO.File.ReadAllText(e.Node.Tag)
    End Sub

[athenso]

perfect thank you much appreciated