AJUDA COM LISTVIEW X MULTISELECT X TEXTBOX
Boa noite galera.
Estou aqui com um probleminha acho que simples, mas não estou conseguindo resolver.
Tenho um Form com um ListView e um TextBox. Gostaria de criar um botão que coloque tudo que esta na coluna 2 por exemplo do ListView no TextBox separado por ; !
Alguém tem alguma ideia de como eu consigo fazer isso?
Estou aqui com um probleminha acho que simples, mas não estou conseguindo resolver.
Tenho um Form com um ListView e um TextBox. Gostaria de criar um botão que coloque tudo que esta na coluna 2 por exemplo do ListView no TextBox separado por ; !
Alguém tem alguma ideia de como eu consigo fazer isso?
cria uma variavel pra jogar os valores do list dá um for percorrendo o list e inserindo na variavel com o [txt-color=#e80000];[/txt-color]
Como eu faria isso? Você teria um exemplo? 
dim Str as string
dim a
for a=0 to list.items.count-1
str &=list.items(a).tostring & [Ô];[Ô]
next
dim a
for a=0 to list.items.count-1
str &=list.items(a).tostring & [Ô];[Ô]
next
Ele não mencionou qual vb está usando.
Para vb do post não funciona .ToString.
Para vb do post não funciona .ToString.
Foi mal OMAR2011, tou tão acostuamdo a fazer em vb.net que nem reparei que era VB/VBA kkkk
mas a ideia em si é essa, basta ele adaptar para a linguagem.
mas a ideia em si é essa, basta ele adaptar para a linguagem.
Vou tentar aqui, uso o VB6, vou fazer uns testes
Pessoal, quebrei a cabeça aqui, mas não consegui implementar esse comando no VB6, alguém teria uma forma? 
Desenvolvi aqui um pequeno exemplo pra você. Baixa e testa.
Eai pessoal, estive enrolado não pude postar.
JABA obrigado pelo exemplo, so estou tendo um probleminha com o .OCX que não carrega mas consegui ver os códigos do form, valew mesmo a força! Improvisei usando uns Eventos do proprio ListView e repetindo códigos, assim que terminar vou postar aqui, pode ser útil para outra pessoa também!
JABA obrigado pelo exemplo, so estou tendo um probleminha com o .OCX que não carrega mas consegui ver os códigos do form, valew mesmo a força! Improvisei usando uns Eventos do proprio ListView e repetindo códigos, assim que terminar vou postar aqui, pode ser útil para outra pessoa também!
Pessoal resolvi! Um obrigado a todos que me deram essa força, segue o código que usei:
Private Sub Command1_Click()
For i = 1 To LstContatos.ListItems.Count
If LstContatos.ListItems.Item(i).Selected Then
LstContatos.ListItems.Item(i).Selected = True
txt.Text = txt.Text + LstContatos.SelectedItem.ListSubItems.Item(1) + [Ô];[Ô]
End If
Next i
End Sub
Pode ajudar alguem!
Boa noite galera!
Private Sub Command1_Click()
For i = 1 To LstContatos.ListItems.Count
If LstContatos.ListItems.Item(i).Selected Then
LstContatos.ListItems.Item(i).Selected = True
txt.Text = txt.Text + LstContatos.SelectedItem.ListSubItems.Item(1) + [Ô];[Ô]
End If
Next i
End Sub
Pode ajudar alguem!
Boa noite galera!
Tópico encerrado , respostas não são mais permitidas