MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Imagem abre na cor preta

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 14:50

    Bom dia.
    Criei um exemplo simples para através de um click numa imagem abrir o MS Paint na imagem escolhida, vide codificação abaixo:

    Private Sub Imagem0_Click()
        Dim Application As String
        Dim fPath As String
        Application = "C:\WINDOWS\system32\mspaint.exe"
        fPath = CurrentProject.Path & "\Image0\" ' & BrokerLogo
        Shell Application & " " & fPath
    End Sub



    Todavia o MS Paint abre, mas com a imagem preta (vide figura).
    Como resolvo?
    Obrigado
    Anexos
    Imagem preata.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (660 Kb) Baixado 1 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 16:19

    Refiz a codificação para.....

    Private Sub Imagem0_Click()
    On Error GoTo Imagem0_Click_Err
    Shell "C:\WINDOWS\system32\mspaint.exe", vbNormalFocus
    Imagem0_Click_Exit:
    Exit Sub
    Imagem0_Click_Err:
    MsgBox Error$
    Resume Imagem0_Click_Exit
    End Sub

    Abre o MS Paint.

    modifiquei para.......

    Private Sub Imagem0_Click()
    On Error GoTo Imagem0_Click_Err
    Shell "C:\WINDOWS\system32\mspaint.exe", vbNormalFocus
    Me.Imagem0.Picture = Application.CurrentProject.Path & "\Cranio\"
    Imagem0_Click_Exit:
    Exit Sub
    Imagem0_Click_Err:
    MsgBox Error$
    Resume Imagem0_Click_Exit
    End Sub

    a linha azul seria para abrir a imagem cranio.....

    quando rodo......

    abre o MS Paint, com mensagem de erro informando que não pode abrir o .....caminho da imagem cranio.
    Como resolvo isso?






    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  FabioPaes em Qua 15 Jun 2016, 16:30

    Mude para:

    Me.Imagem0.Picture = Application.CurrentProject.Path & "\Cranio.jpg"

    O caminho deve ser completo, incluindo Nomearquivo.extensão


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 16:58

    Fábio.
    Boa tarde

    Modifiquei e ....
    Mostra a imagem do cranio no form, abre o MS Paint, mas não há imagem do cranio no MS Paint.
    Fica uma tela do mesmo tamanho em branco....
    Anexos
    Imagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (117 Kb) Baixado 2 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  FabioPaes em Qua 15 Jun 2016, 17:34

    Se quer abrir a imagem no Paint, Mude todos seu Codigo Para:

    Private Sub Imagem0_Click()
    Dim F
    F = Shell("MSPAINT.EXE" & Space(1) & CurrentProject.Path & "\Cranio.jpg", 1)

    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 17:48

    Fiz, mas abre o MS Paint com o desenho na cor preta.....

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  FabioPaes em Qua 15 Jun 2016, 18:26

    Aqui deu certinho amigo...

    [Você precisa estar registrado e conectado para ver esta imagem.]
    Anexos
    Imagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 4 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 18:29

    coloquei em outro lugar e abriu tela presta.
    deve ser aqui.
    tem ideia do que poderia ser?

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Imagem abre na cor preta

    Mensagem  Mylton em Qua 15 Jun 2016, 20:17

    Vou abrir outro tópico para entender o porque da tela MS paint abrir presta.
    Obrigado a todos.

      Data/hora atual: Qui 08 Dez 2016, 00:05