Carregar imagens em frame vindo de difs arquivos

[rickzale]

Salve!!

Olá a todos... eu estou criando uma pequena aplicação em VBA Excel e chegou num ponto meio crítico: preciso colocar umas imagens para serem exibidas num frame e elas devem vir de diferentes arquivos de imagens. OK? Assim: numa parte o usuario clica no nome da imagem e a mesma aparece num quadro ao lado (ou em qualquer lugar) mostrando o que é aquele nome.

Se alguém souber como fazer isso (e se é possível) porque eu caçei na NET e ainda não encontrei, ficarei grato...

mais informações podem questionar que eu explico mais e melhor ainda (descrevendo mais detalhadamente).

Abraços

Ricardo

[João.Neto]

Crie um formulário com um controle ListBox e um Image e utilize como base o seguinte código:

Private Sub ListBox1_Change()
    If Me.ListBox1.ListIndex >= 0 Then
        Me.Image1.Picture = LoadPicture(Me.ListBox1.Value)
    End If
End Sub


Private Sub UserForm_Initialize()

'Você vai precisar carregar numa matriz bidimensional os dados da imagem
    Dim arrLista(3, 1) As String
    arrLista(0, 0) = "C:\imagem1.bmp"
    arrLista(0, 1) = "Nome da Imagem1 a ser exibida"
    
    arrLista(1, 0) = "C:\imagem2.bmp"
    arrLista(1, 1) = "Nome da Imagem2 a ser exibida"
    
    arrLista(2, 0) = "C:\imagem3.bmp"
    arrLista(2, 1) = "Nome da Imagem3 a ser exibida"
    
    arrLista(3, 0) = "C:\imagem4.bmp"
    arrLista(3, 1) = "Nome da Imagem4 a ser exibida"
    
    Me.ListBox1.ColumnCount = 2
    Me.ListBox1.ColumnWidths = "0;500"
    Me.ListBox1.BoundColumn = 1
    Me.ListBox1.TextColumn = 2
    Me.ListBox1.List = arrLista

End Sub

Editado Maio 10, 2010 por kuroi
Adicionar tag CODE

[rickzale]

Crie um formulário com um controle ListBox e um Image e utilize como base o seguinte código:

Private Sub ListBox1_Change()
    If Me.ListBox1.ListIndex >= 0 Then
        Me.Image1.Picture = LoadPicture(Me.ListBox1.Value)
    End If
End Sub


Private Sub UserForm_Initialize()

'Você vai precisar carregar numa matriz bidimensional os dados da imagem
    Dim arrLista(3, 1) As String
    arrLista(0, 0) = "C:\imagem1.bmp"
    arrLista(0, 1) = "Nome da Imagem1 a ser exibida"
    
    arrLista(1, 0) = "C:\imagem2.bmp"
    arrLista(1, 1) = "Nome da Imagem2 a ser exibida"
    
    arrLista(2, 0) = "C:\imagem3.bmp"
    arrLista(2, 1) = "Nome da Imagem3 a ser exibida"
    
    arrLista(3, 0) = "C:\imagem4.bmp"
    arrLista(3, 1) = "Nome da Imagem4 a ser exibida"
    
    Me.ListBox1.ColumnCount = 2
    Me.ListBox1.ColumnWidths = "0;500"
    Me.ListBox1.BoundColumn = 1
    Me.ListBox1.TextColumn = 2
    Me.ListBox1.List = arrLista

End Sub

Legal! deu certo com algumas imagens e posso fazer isso com, por exemplo, 200 que eu tenho?

valeu

[João.Neto]

opa!!! com certeza ... 200, 2 mil, 2 milhões de imagens, a gosto do freguês... rsrsrsrsrsrs...