Um dia era pra mostrar coisas sobre o excel, hoje é para compartilhar meus poucos conhecimentos, com os interessados!

segunda-feira, 12 de março de 2018

VBA - Carregando Imagem via ListBox



Principais utilizados
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:\MPVIVI\IMAGENS\" & L1.Column(0)
    IMG1.Picture = "c:\MPVIVI\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:\MPVIVI\IMAGENS\" & L1.Column(0)
    IMG1.Picture = "c:\MPVIVI\IMAGENS\" & L1.Column(0)
  
End Sub