Olá Pessoal
tenho esse código para exibir fotos de Produtos
Private Sub Form_Current()
If Right(Application.CurrentProject.Path & "\Fotos\" & Me.Ficheiro, 1) = "\" Then
Me.Foto.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
Else
Me.Foto.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Ficheiro
End If
End Sub
funciona perfeito mostrando as Fotos , mas eu descobri o servidor na empresa onde mostra as fotos no SIte da empresa
gostaria de apitar
"https://cdn1.staticpanvel.com.br/produtos/15/127191-15.jpg?ims=205x"
o numero 127191 é código do item
gostaria de buscar do site as fotos
tenho esse código para exibir fotos de Produtos
Private Sub Form_Current()
If Right(Application.CurrentProject.Path & "\Fotos\" & Me.Ficheiro, 1) = "\" Then
Me.Foto.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
Else
Me.Foto.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Ficheiro
End If
End Sub
funciona perfeito mostrando as Fotos , mas eu descobri o servidor na empresa onde mostra as fotos no SIte da empresa
gostaria de apitar
"https://cdn1.staticpanvel.com.br/produtos/15/127191-15.jpg?ims=205x"
o numero 127191 é código do item
gostaria de buscar do site as fotos