Informações Do List

[Bob Esponja]

Olá pessoal! Td beleza ?!

Como não tem nenhum tópico relacionado a isso, vou postar aqui....

Eu tenho uma list (list1) e uma textbox (text1), e gostaria que ao clicar em um dos itens da list, na minha textbox aparecesse este item, e conforme eu mudasse os itens na list, mudasse também o text da textbox.

Acho q enrolei um pouco voces, mas este pequeno código (q esta errado), vai fazer voces entenderem a grosso modo:

Private Sub List1_Click()
Set txtnome_busca.Text = List1.Text
End Sub

Entenderam?

Abraço a todos!

[William Rodrigues]

Brother...

estou sem VB aqui....Fiz um teste em VBA e deu certo

Teste aí e vê no que te ajuda

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "William"
.AddItem "Wellington"
.AddItem "Marília"
.AddItem "Edgar"
End With
End Sub

PS: Mude o evento de Initialize para Load

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Text
End Sub

PS: estou com problemas aqui e não estou conseguindo ver o seu código. Deve ser um problema no site...sei lá

Abraços,

William Rodrigues

[Bob Esponja]

Fala ae William..... obrigado ai pela força brother.... eu fiz de outro jeito... ficou assim:

Private Sub List1_Click()
If List1.ListIndex = -1 Then
    txtnome_busca.Text = ""
Else
txtnome_busca.Text = List1.List(List1.ListIndex)
End If
End Sub

muito obrigado ai pela ajuda!!!

Vlw!!

[Graymalkin]

Olá pessoal! Td beleza ?!

Como não tem nenhum tópico relacionado a isso, vou postar aqui....

Eu tenho uma list (list1) e uma textbox (text1), e gostaria que ao clicar em um dos itens da list, na minha textbox aparecesse este item, e conforme eu mudasse os itens na list, mudasse também o text da textbox.

Acho q enrolei um pouco voces, mas este pequeno código (q esta errado), vai fazer voces entenderem a grosso modo:

Private Sub List1_Click()
Set txtnome_busca.Text = List1.Text
End Sub

Entenderam? Abraço a todos!

Só para esclarecer: só se usa Set para criar referências a objetos. No caso, a propriedade Text não é um objeto, por isso não se pode usar Set. Para ter uma idéia melhor você pode fazer o seguinte:

    Set k = Text1
    k.Text = "teste"

Repare que "k" para a referenciar "Text1", portanto tudo que acontecer com "k" acontece também com "Text1".

Abraços,

Graymalkin

[William Rodrigues]

Fala ae William..... obrigado ai pela força brother.... eu fiz de outro jeito...

Beleza...

Desculpa peço eu...

Já faz um bom tempo que eu não mexo com o VB (minha máquina tá com problema e ainda não tive tempo de arrumar) e sempre esqueço de trazer para instalar aqui no trampo !

Mas, vou instalar essa semana e assim poderei ajudar melhor à todos !

O importante é que você conseguiu fazer

PS: Boa definição Graymalkin

Abraços,

William Rodrigues