Vídeo recomendado
https://youtu.be/diWPPPhW-9E

listview retorna valores nas textbox´s [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

listview retorna valores nas textbox´s [RESOLVIDO]

Mensagem por pedro_mexico »

Bom dia forum.
o meu formulario tem uma listeview com uma textbox de pesquisa, digito valor na textbox e ele carrega os valores na listview, e tenho codigo para ao cliclar na listview ele carregar as textbox abaixo para depois fazer modificaçao

eu queria saber se existe algum codigo para uma das textbox´s receber dados concratenados de outras 3 textbox's que foram carregadas da listview.

a minha dificuladade esta em enserir algum codigo dentro deste que tenho que é o que carrega as textbox's

Código: Selecionar todos

Private Sub lsLista_ItemClick(ByVal Item As MSComctlLib.ListItem)
       TxtNumero = lsLista.SelectedItem
       cmbEstado = lsLista.SelectedItem.ListSubItems.Item(1)
       cmbMatricula = lsLista.SelectedItem.ListSubItems.Item(2)
       txtDataInicio = lsLista.SelectedItem.ListSubItems.Item(3)
       end sub
espero que alguem consiga dar uma dica.
Obrigado
Editado pela última vez por pedro_mexico em Sáb Set 28, 2019 10:27 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: listview retorna valores nas textbox´s

Mensagem por srobles »

pedro

Para concatenar valores contidos nos itens / subitens do ListView, experimente o que segue abaixo :

Código: Selecionar todos

Private Sub lsLista_ItemClick(ByVal Item As MSComctlLib.ListItem)
       TxtNumero = lsLista.SelectedItem
       cmbEstado = lsLista.SelectedItem.ListSubItems.Item(1)
       cmbMatricula = lsLista.SelectedItem.ListSubItems.Item(2)
       txtDataInicio = lsLista.SelectedItem.ListSubItems.Item(3)
       
       'controleTextBox = lsLista.SelectedItem.ListSubItems.Item(4) & ", " & lsLista.SelectedItem.ListSubItems.Item(5) & ", " & lsLista.SelectedItem.ListSubItems.Item(6)
End sub
Note que utilizamos o mesmo principio usado para preencher outros controle, porém, adicionamos um vírgula seguida de um espaço, seguido do item desejado.

Esta é apenas uma das diversas maneiras de concatenar itens.


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: listview retorna valores nas textbox´s

Mensagem por pedro_mexico »

Bom dia srobles,

muito obrigado, o código que enviou é perfeito.
Obrigado.

podia so dar uma vista no tópico
,queria relacionar combobox, em que ao selecionar um valor de uma coluna ele iria preencher outras , mas o código que já deram, chega a um valor da coluna e nao recebe os valores correspondentes da coluna ao lado.

Mais uma vez obrigado por a ajuda neste tópico.
bom fim de semana


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder