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


4 participantes

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    avatar
    arivaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 20/12/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  arivaldo 8/5/2015, 09:17

    Olá Amigos.. com a dica do avelino utilizando a API Shell,  eu conseguir criar um botão;EDITAR IMAGEM para abrir o editor de imagem paint, no entanto não abre a foto que adiciono no formulário; tenho um formulário de imagem que salva a imagem em HD e o caminho da imagem na tabela, O meu desejo é que o botão editar foto abra a foto que está vinculado no formulário, ou melhor quero que abra a foto que está vinculada ao codigo do cliente.

    segue código:
    http://www.usandoaccess.com.br/dicas/dica45.asp?id=1&idlista=181#inicio

    Tem que indicar o aplicativo a ser aberto em um dos argumentos e no outro argumento indicar o localização do arquivo..  Exemplo, abrindo o PAINT da Microsoft para editar a imagem:


    Dim strLocalAplicativo$
    strLocalAplicativo = Environ("windir") & "\system32\mspaint.exe"
    Call ShellExecute(0&, "", strLocalAplicativo, "c:\SuaPasta\SuaFoto.jpg", "", 1)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 10/5/2015, 12:29

    Olá, teste assim no seu botão de comando:

    Dim RetVal
    RetVal = Shell("MSPAINT.EXE" & Space(1) & "C:\SuaPasta\SuaFoto.jpg", 1)


    Abraço
    avatar
    arivaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 20/12/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  arivaldo 10/5/2015, 18:58

    Muito obrigado ahteixeira
    Até aqui tudo bem, este seu exemplo funciona muito bem, porem eu tenho que colocar no segundo argumento qual foto eu quero abrir, ficando assim: a função Funciona direitinho, abre o arquivo JPG, no entanto, só carrega a foto que eu indicar o caminho, exemplo:
    Private Sub Editar_Foto_com_paint_Click()
    Dim strLocalAplicativo$
    strLocalAplicativo = "MSPAINT.EXE"
    Call ShellExecute(0&, "", strLocalAplicativo, "C:\fotos\Jose.jpg", "", 1)
    abre o paint mas só vai abrir a foto de josé, no entanto vou cadastra francisco, paulo, joão....para cada cliente cadastrado a foto deverá ser editada, no evento ao clicar deverá carregar o paint já com a foto a ser editada, ou melhor, quero abrir o paint somente se a foto que esta no formulario carregar com a abertura do paint


    Dim RetVal
    RetVal = Shell("MSPAINT.EXE" & Space(1) & "C:\fotos\Jose.jpg", 1)
    este exemplo funcionou da mesma forma que o exemplo acima.

    As 2 instruções funcionam, no entanto para cada cliente tenho que abrir o PAINT para editar a foto, quero que ao clicar abra o paint e ja carregue a foto cadastrada.
    O exemplo de Gilberto Rocha, (https://www.maximoaccess.com/t2840-web-cam-2-0-captura-imagem-da-web-cam-e-salva-como-jpg) trouxe -me a esperança pois o mesmo busca a foto converte em JPG e envia para a pasta C:\fotos\(renomeando com o nome do cliente).jpg deixando o endereço na tabela, creio que facilita, pois, teremos no formulário o nome e codigo do cliente e as fotos na pasta C:\fotos\(renomeando com o nome do cliente).jpg
    segue exemplo acrescentado o botão editar com o Paint

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 10/5/2015, 19:22

    Olá,
    Teste no formulario de cadastro de clientes, imagine o campo nome do cliente é NomeCliente (o mesmo que você esta atribuir ao ficheiro da imagem jpg)

    Dim RetVal
    Dim CaminhoFotos%
    CaminhoFotos="C:\fotos\"
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente &.jpg", 1)


    Outra forma se tem o " endereço na tabela" conforme referiu no ponto dois também pode tentar assim:

    Dim RetVal
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoGuardadoNaTabela , 1)


    Não testado.
    Abraço

    JaimeSoares gosta desta mensagem

    avatar
    arivaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 20/12/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Muito OBRIGADO!

    Mensagem  arivaldo 10/5/2015, 21:52

    Funciona perfeitamente.
    Parabéns.

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 10/5/2015, 21:57

    Olá Arivaldo, obrigado pelo retorno.
    Por curiosidade qual foi o código que utilizou da mensagem n.º 4 o 1º ou 2º?
    Os utilizadores do fórum agradecem.
    Abraço
    avatar
    arivaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 20/12/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty ok

    Mensagem  arivaldo 10/5/2015, 22:33

    utilizei esta, por ser mais facil, a outra eu não testei.
    Dim RetVal
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoGuardadoNaTabela , 1)

    funciona 100%
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 10/5/2015, 23:13

    cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 19/6/2015, 16:21

    Olá, estámos cá para ajudar.
    Antes de tudo (programação à parte) explique-me o que pretende fazer, neste seu projecto.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 19/6/2015, 22:06

    Olá, antes de tudo, solicito ao Administrador do fórum, se assim o entender dividir este tópico.
    SiBH, acho que queria dizer "Adoro este nosso website" Smile
    Obrigado pelo esclarecimento, independente do como possa ser efectuado, gostaria de compreender qual era a sua ideia com a foto do odontograma.
    Teria uma foto por paciente, ia sendo alterada manualmente, como iria ter o histórico da evolução.
    Era sempre a mesma? Seria várias?
    Pergunto isto para compreender qual era a sua ideia.
    Abraço

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Noobezinho 20/6/2015, 18:58

    Tópico dividido.

    O novo tópico é:

    Duvida com imagem no formulário


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    suporte
    suporte
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 80
    Registrado : 18/01/2011

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  suporte 16/7/2016, 00:57

    Boa Noite Amigos,

    Utilizei o código abaixo deste exemplo deste post e não deu certo:

    Dim RetVal
    Dim CaminhoFotos%
    CaminhoFotos="C:\fotos\"
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente &.jpg", 1)

    O meu campo é nome, substitui o campo e deu o seguinte erro Erro de compilação, era esperado separador de lista.

    Se alguém puder me ajudar, muito obrigada desde já!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 16/7/2016, 11:11

    Olá,
    Falta a aspas duplas antes de .jpg
    Teste assim:
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente & ".jpg", 1)

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Alvaro Teixeira 22/7/2016, 08:37

    Olá Gisele, como ficou a situação, resolveu?
    Os utilizadores do fórum agradecem o retorno.
    Abraço

    Conteúdo patrocinado


    [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT Empty Re: [Resolvido]imagem vinculada; criar botão para abrir o editor de imagem PAINT

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 18:27