Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 206
Registrado em: Qua Dez 09, 2015 5:54 pm

listview retorna valores nas textbox´s [RESOLVIDO]

Mensagem por pedro_mexico » Qui Set 26, 2019 8:09 am

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: 758
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: listview retorna valores nas textbox´s

Mensagem por srobles » Sex Set 27, 2019 2:54 pm

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.


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

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

Re: listview retorna valores nas textbox´s

Mensagem por pedro_mexico » Sáb Set 28, 2019 10:26 am

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