Tree View (VB 08)

[Tirtid]

Boas,
Precisava de ajuda numa coisa. Queria criar uma coisa em VB 08 usando tree view. E queria que quando clicasse num node ou child aparecesse um de terminado texto numa caixa de texto ao lado. Como acontece no registo.
Como faço isso? Quando tento seleccionar um child ou node para adicionar uma função ele selecciona toda a tree.

 

[fLaSh_CF]

No local pretendido adicionas da seguinte forma (ex: Form_Load):

        Dim oNode As TreeNode

        oNode = trvMain.Nodes.Add("Item 1")
        oNode.Tag = "Meu texto........"

        oNode = trvMain.Nodes.Add("Item 2")
        oNode.Tag = "Meu texto........"

        oNode = trvMain.Nodes.Add("Item 3")
        oNode.Tag = "Meu texto........"

Se reparares cada Node tem o texto armazenado na sua TAG..
Só precisas capturar o evento NodeMouseClick:

    Private Sub trvMain_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles trvMain.NodeMouseClick
        If e.Node.Tag IsNot Nothing Then
            TextBox1.Text = e.Node.Tag.ToString
        End If
    End Sub

Compr.

 

[Tirtid]

OK. Já percebi. Muito obrigado pela ajuda.