Notifications
Clear all

imagem no listview

6 Posts
1 Usuários
0 Reactions
2,095 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá a todos!!!

Como faço para inserir icone no listview?

 
Postado : 17/02/2012 12:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Anderson

Veja se este link pode te ajudar
http://www.microsoftexcel.com.br/index. ... cones.html

Abraço.

 
Postado : 17/02/2012 12:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Como pano de fundo do listview??

 
Postado : 17/02/2012 12:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Patropi o exemplo não carregou os icones mas acho que é por ai mesmo...

Reinaldo inicialmente quero carregar imagens com icones nas linhas mas se for possivel carregar como pano de fundo me enteressa tambem...

Alguma ideia?

 
Postado : 17/02/2012 12:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Vejam se o link abaixo ajuda, tem algumas formas de se lidar com imagem em Listview e treeview :

ListView/Treeview
http://boisgontierjacques.free.fr/pages ... .htm#Photo

Interessante tambem olharem :
Les images et shapes
http://boisgontierjacques.free.fr/pages ... images.htm

Teem varios exemplos.

[]s

 
Postado : 17/02/2012 1:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!!

Veja se t ajuda..

Private Sub UserForm_Initialize()
Dim column_header As ColumnHeader
Dim list_item As ListItem

    ' Cria o Cabeçalho da Coluna.
    Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")
    Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")
    Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")

    Me.ListView1.View = lvwReport

    ListView1.Icons = ImageList1
    ListView1.SmallIcons = ImageList2

    Set list_item = ListView1.ListItems.Add(, , "Algum texto")
    
    With list_item
        .Icon = 1
        .SmallIcon = 1
        .SubItems(1) = "Outros textos"
        .SubItems(2) = Mais texto"
    End With

End Sub
 
Postado : 04/03/2012 2:36 pm