Capturar um item da listBox

[Gabrielnv]

Tenho Uma listbox e queria selecionar um dos itens, colocar algum texto em uma textbox e quando der um ok ele mudar o valor do item selecionado

alguém sabe como fazer isso??

obrigado

[Gabrielnv]

AEE CONSEGUI :)

[Adriano.Wanderley]

posta a solução ae, pra gente ver!

[Gabrielnv]

esta aqui, eu estava usando para visualisar as layers de um desenho Autocad e ele mostra na list box1 ai quando coloco um texto na textbox1 e clico no botão troca, ele muda o nome da layer no desenho, na listbox1 e mostra na listbox 2 o nome antigo e o novo

;Botão troca

Private Sub Troca_Click()

;declarando variaveis

Dim camadas As AcadLayers

Dim camada As AcadLayer

Dim variavel As String

; e aqui é responsavel por pegar o conteudo selecionado e guardar em camada

Set camada = ThisDrawing.Layers(ListBox1.Text)

;aqui é colocando em variavel o texto da Textbox2 que sera o novo nome

Variavel = TextBox2

;aqui a layer recebe o nome da variavel

camada.Name = variavel

;e aqui imprimimos na listbox2 o nome antigo e o novo

ListBox2.AddItem ListBox1.Text & " --> " & selecionado

;esta parte é responsavel primeiro por zerar a listbox1 e em seguida listar os layers do desenho aberto

Dim AllLayers As Object

Dim Layer As Object

Set AllLayers = ThisDrawing.Layers

ListBox1.Clear

For Each Layer In AllLayers

ListBox1.AddItem Layer.Name

Next

End Sub

não sei se esta tudo certo pois comecei a programar em vba a menos de uma semana, mais ta aeee :D

[Gabrielnv]

alguém saberia colocar tratamento de erros neste meu código????

[Gabrielnv]

já consegui tambem xD