MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Dar Zoom em uma imagem

    jamesacdc
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/04/2012

    [Resolvido]Dar Zoom em uma imagem Empty [Resolvido]Dar Zoom em uma imagem

    Mensagem  jamesacdc em 7/4/2020, 03:15

    Olá,
    Eu tenho um formulário onde carrega uma imagem, eu queria que tivesse um botão para ampliar essa imagem, mas não encontrei nada no fórum e nem no access.

    Encontrei esse codigo Aqui para abrir no paint, mas gostaria de abrir no visualizador de imagem do windows, mas nao sei como chama o .exe
    Código:
    RetVal = Shell("MSPAINT.EXE" & Space(1) & CaminhoFotos & me.NomeCliente & ".jpg", 1)

    Mas o que gostaria era de clicar em uma lupa e a imagem expandir.
    Só não sei se é possível.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 788
    Registrado : 11/09/2013

    [Resolvido]Dar Zoom em uma imagem Empty Re: [Resolvido]Dar Zoom em uma imagem

    Mensagem  formiga10x em 7/4/2020, 07:42

    Para chamar o visualizador de img do windows e carregar a imagem:

    Código:
        Dim Path As String
        Path = "C:\foto\fezinha.jpg"
        Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Path, vbNormalFocus

    Caso tenha tempo amanha e ninguém tenha feito, faço um exemplo para carregar / salvar / visualizar no próprio form, botão para ampliar / reduzir a img carregada.
    Abraço.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    jamesacdc
    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/04/2012

    [Resolvido]Dar Zoom em uma imagem Empty Re: [Resolvido]Dar Zoom em uma imagem

    Mensagem  jamesacdc em 9/4/2020, 10:55

    Bom dia formiga10x,
    Já ajudou com a dica, no caso de ampliar no form é usando algum controle activeX?

      Data/hora atual: 5/7/2020, 07:01