MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Duvidas sobre formatos de imgens em formulários

    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 14:31

    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?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Assis 9/3/2018, 14:38

    Pablo

    Também aceita JPG ou PNG.

    Eu uso mais .png


    .................................................................................
    *** Só sei que nada sei ***
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 14:42

    Bom dia amigo Assis.

    Pois é acho estranho, pois aqui na minha aplicação não aparece a fotos nesses formatos, apenas em BMP
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Assis 9/3/2018, 14:45


    Altere esta linha:

    "Arquivos gráficos (*.bmp; *.gif; *.jpg; *.png)" & vbNullChar & "*.bmp; *.gif; *.jpg; *.png")



    .................................................................................
    *** Só sei que nada sei ***
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 14:49

    OK Assis, funcionou, mas somente aparece nos relatórios as fotos, nos forms não aparece
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Assis 9/3/2018, 14:51



    .................................................................................
    *** Só sei que nada sei ***
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 14:57

    Está caindo no modo de depurar
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Assis 9/3/2018, 14:57

    Pablo

    Qual o seu Office.

    O meu 2013 32 Bits funciona direito


    .................................................................................
    *** Só sei que nada sei ***
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 15:05

    2016 32bits

    e esta pedindo para abrir a pasta DropBox\....
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Pablo Weber 9/3/2018, 15:18

    Estou usando esse módulo

    Option Compare Database

    Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type

    Public Const OFN_FILEMUSTEXIST = &H1000
    Public Const OFN_HIDEREADONLY = &H4
    Public Const OFN_PATHMUSTEXIST = &H800
    Const cTAMANHO = 11
    Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
    Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _
    ByVal nSize As Long, ByVal lpFileName As String) As Long
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
    Public Declare Function FindWindow Lib "User32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
    Public Declare Function SendMessage Lib "User32" Alias _
    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long

    Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String

    Dim filebox As OPENFILENAME
    Dim result As Long
    With filebox
    .lStructSize = Len(filebox)
    .hwndOwner = lngHwnd
    .hInstance = 0
    .lpstrFilter = strFiltro & vbNullChar & _
    "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
    .nMaxCustomFilter = 0
    .nFilterIndex = 1
    .lpstrFile = Space(256) & vbNullChar
    .nMaxFile = Len(.lpstrFile)
    .lpstrFileTitle = Space(256) & vbNullChar
    .nMaxFileTitle = Len(.lpstrFileTitle)
    .lpstrInitialDir = strPastaInicial & vbNullChar
    .lpstrTitle = strTítulo & vbNullChar
    .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
    .nFileOffset = 0
    .nFileExtension = 0
    .lCustData = 0
    .lpfnHook = 0
    End With

    result = GetOpenFileName(filebox)
    If result <> 0 Then
    Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
    Else
    Buscar = ""
    End If

    End Function



    Conteúdo patrocinado


    Duvidas sobre formatos de imgens em formulários Empty Re: Duvidas sobre formatos de imgens em formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 12:23