• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

glicose

Retornar parametros: com um treeview e com um listview

4 mensagens neste tópico

Boas, é o seguinte:

Eu tenho um treeview de Modelos

O que eu preciso é que quando selecione um item do treeview chamar uma função passando o parametro do item selecionado

E tbm tenho um listview que também chama uma função passando um parametro

Como faço em cada caso?

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

No evento AfterSelect utilizas o e.Node.Text para o node seleccionado. Depois é só chamares a função usando essa informação.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tenho um problema ao preencher o treeview:

''Uso a função:

Public Function SelectModelo() As List(Of Modelo)

{
''que faz conexão usando a query:

oQuery = "SELECT NOME, LANGUAGE, GERACAO, ARQUIVO FROM MODELOS"

''prenchendo uma lista:
Dim lstRet As New List(Of Modelo)

''e retornando:
Return lstRet
}

Preencho o treeview assim:

_lstMod = _conn.SelectModelo()

For i As Integer = 0 To _lstMod.Count - 1

                TvwModelo.Nodes.Add(_lstMod(i).Geracao).Nodes.Add(_lstMod(i).Nome)

            Next

No caso é uma lista de modelos de tratores e caminhões, que está aperecendo assim na treeview

- Leves >

              BH65

- Medios >

              M76

- Leves>

              BM20

eu queria que ficasse assim

- Leves >

              BH65

              BM20

- Medios >

              M76

Alguém poderia me ajudar???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Resolvi, pra que tiver um problema semelhante , está aí a dica

Private _lstMod As List(Of Modelo)

For i = 0 To _lstMod.Count - 1

            If (_lstMod(i).Linha = geracao) Then
                Dim node1 As TreeNode = New TreeNode(_lstMod(i).Geração)
                Dim achouigual As Boolean = False

                For Each node As TreeNode In TvwModelo.Nodes

                    If node.Text = _lstMod(i).Geração Then

                        achouigual = True
                        Exit For
                    End If

                Next

                If achouigual = False Then
                    TvwModelo.Nodes.Add(node1)
                End If

                For j As Integer = 0 To _lstMod.Count - 1
                    If _lstMod(j).Linha = geracao Then
                        If _lstMod(j).Geração = node1.Text Then
                            Dim nodenome As TreeNode = New TreeNode(_lstMod(j).Nome)
                            nodenome.Tag = New Modelo(_lstMod(j).Nome, _lstMod(j).Geração, _lstMod(j).Linha, _lstMod(j).Arquivo)
                            node1.Nodes.Add(nodenome)
                        End If
                    End If
                Next

            End If

        Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora