[Resolvido]Em formulário apresentar imagem do tipo .gif .jpg ou .png

Olá a todo o fórum

queria apresentar em formulário, imagem em vários formatos gif jpg ou png

com a ajuda do marcelo adaptei este código, mas o mesmo só apresenta a imagem se for do tipo gif

pretendo que apresente a imagem se for do tipo gif jpg ou png

poderá ser simples mas como não tenho grandes conhecimentos em VB, devo ter errado em algum lado, se puderem dar uma dica agradeço

Private Sub NomePaís_AfterUpdate()
Me.NomeConti = Me.NomePaís.Column(2)
If Dir(Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif") <> "" Then
       
       BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif"
   Else
       BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\SemImagem.gif"
   End If
   
   Me.Refresh

José Silva
   

End Sub

Ao observar o código é possível verificar que existem testes, repare

Código:

'se tem o arquivo com o final gif
If Dir(Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif") <> "" Then
      'bota gif no controle BandeiraPaís
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif"
Else
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\SemImagem.gif"
End If

Simples, basta ampliar os testes.

Código:

'se tem o arquivo com o final gif
If Dir(Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif") <> "" Then
      'bota gif no controle BandeiraPaís
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".gif"

'se tem o arquivo com o final jpg
ElseIf Dir(Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".jpg") <> "" Then
      'bota jpg no controle BandeiraPaís
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".jpg"

'se tem o arquivo com o final png
ElseIf Dir(Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".png") <> "" Then
      'bota png no controle BandeiraPaís
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\" & NomePaís.Value & ".png"

'se não teve nenhum dos anteriores
Else
      BandeiraPaís.Picture = Application.CurrentProject.Path & "\Logotipo\SemImagem.gif"
End If

Boa Noite, DamascenoJR

peço desculpa mas por razões de ordem particular e inadiáveis não me foi possível responder

agradeço desde já o seu ensinamento, pois resultou perfeito, quando eu estava a complicar


Meus agradecimentos

José Silva

O fórum agradece o retorno. Sucesso.