1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Tree View (VB 08)

Discussão em 'Programação' iniciada por Tirtid, 3 de Novembro de 2008. (Respostas: 2; Visualizações: 1209)

  1. 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.
     
  2. fLaSh_CF

    fLaSh_CF Banido

    No local pretendido adicionas da seguinte forma (ex: Form_Load):
    Código:
            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:
    Código:
        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.
     
  3. OK. Já percebi. Muito obrigado pela ajuda.
     

Partilhar esta Página