Notifications
Clear all

imagem no listview

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

Olá a todos!!!

Como faço para inserir icone no listview?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/02/2012 12:17 pm
Fernando Fernandes
(@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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Como pano de fundo do listview??

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/02/2012 12:32 pm
Fernando Fernandes
(@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?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/02/2012 12:58 pm
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/02/2012 1:37 pm
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/03/2012 2:36 pm