LISTVIEW

RICOCARDOZO 16/05/2011 17:54:04
#374075
Olá boa tarde a todos.
Tenho um form onde tem um listview certo,
Na parte inferior tenho um label e um image.

ao clicar em algum icone do list no label aparece o texto selecionado
mais eu queria que no image apareça o icone selecionado será que dá?

Este é o código que eu estou usando para carregar o texto.

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Principal.Lmsg.Caption = ListView1.SelectedItem
End Sub
RICOCARDOZO 16/05/2011 21:18:55
#374097
é o seguinte, em um listview eu carrego icones e dados :

Set Item = ListView1.ListItems.Add(, , [Ô]Configurações[Ô], 21, 2)
Set Item = ListView1.ListItems.Add(, , [Ô]Resumo Geral[Ô], 23, 2)
Set Item = ListView1.ListItems.Add(, , [Ô]Relatórios[Ô], 23, 2)
Set Item = ListView1.ListItems.Add(, , [Ô]Sair do Sistema[Ô], 22, 2)

Por exemplo
No listview aparece um icone e em baixo escrito configuraçoes .
ao clicar no icone configuraçoes em um objeto image eu queria carregar a imagem que representa este icone.
RICOCARDOZO 22/05/2011 12:09:57
#374688
Eu tenho um imagelist com varios icones.
Dai eu uso o código abaixo para carregar o listview

Private Sub menu_principal()
On Error Resume Next
Dim Item As ListItem
Dim icone As Integer
ListView1.ListItems.Clear
TabelaEspecie
TB_ESPECIE.LockType = adLockOptimistic
TB_ESPECIE.CursorType = adOpenStatic [ô]somente leitura
TB_ESPECIE.CursorLocation = adUseServer

TB_ESPECIE.Open [Ô]SELECT * FROM ESPECIE [Ô], BD_CAIXA
icone = 1
Do While Not TB_ESPECIE.EOF
Set Item = ListView1.ListItems.Add(, , TB_ESPECIE([Ô]descricao[Ô]).Value, icone, 1)
TB_ESPECIE.MoveNext
icone = icone + 1
Loop

FechaTabelaEspecie
End Sub

Dai no clik do list view :
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Principal.Lmsg.Caption = ListView1.SelectedItem [Ô]Aqui aparece o texto ao clicar no list[Ô]
Principal.Image7.Index = ListView1.SelectedItem [Ô]aqui eu queria teria que aparecer o icone só q da erro[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar