VBA - Carregando Imagem via ListBox

 Algumas vezes queremos listar imagens em nossos projetos

Para realizar este processo, precisamos dos 3 itens abaixo:

1 textbox, 1 listbox, 1 imagem.

Private Sub CMD2_Click()
On Error Resume Next
    IMG1.Picture = ""
    T1.Value = T1.Value + 1
    If T1.Value > L1.ListCount - 1 Then T1.Value = 1
    L1.Selected(T1.Value) = True

    R2.Caption = "Cod: " & L1.Column(1)
    R3.Caption = "Nome: " & L1.Column(2)
    R4.Caption = "c:\IMAGENS\" & L1.Column(0)
    IMG1.Picture = "c:\IMAGENS\" & L1.Column(0)
End Sub

Private Sub CMD3_Click()
On Error Resume Next
    IMG1.Picture = ""
    T1.Value = T1.Value - 1
    If T1.Value < 1 Then T1.Value = L1.ListCount - 1
    L1.Selected(T1.Value) = True

    R2.Caption = "Cod: " & L1.Column(1)
    R3.Caption = "Nome: " & L1.Column(2)
    R4.Caption = "c:\IMAGENS\" & L1.Column(0)
    IMG1.Picture = "c:\IMAGENS\" & L1.Column(0)
  
End Sub

E temos um resultado simples e bem mais elegante.

#VBA #Imagem #ListBox #qbexcel
Comentários