Bom dia ao grupo.
tenho a seguinte instrução no meu sistema para buscar foto em uma pasta específica:
Private Sub btnBuscarFoto_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "c:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.localfoto = strCaminho
Me.foto.Picture = Me.localfoto
Me.foto.Visible = True
End If
End Sub
Porém percebi que o sistema só aceita fotos em formato BMP, o que posso fazer para aceitar outros formatos, como por exemplo JPG ou PNG?
tenho a seguinte instrução no meu sistema para buscar foto em uma pasta específica:
Private Sub btnBuscarFoto_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "c:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.localfoto = strCaminho
Me.foto.Picture = Me.localfoto
Me.foto.Visible = True
End If
End Sub
Porém percebi que o sistema só aceita fotos em formato BMP, o que posso fazer para aceitar outros formatos, como por exemplo JPG ou PNG?