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
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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)
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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?





    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3118
    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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3118
    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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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.....
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3118
    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 5 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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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?
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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: Ter 23 Maio 2017, 02:05