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]Por que a tela do MS Paint usando VBA abre preta?

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Qua 15 Jun 2016, 20:18

    Boa tarde

    Desejaria entender e resolver o porque da tela do MS Paint abrir preta com uso o VBA para comandar a abertura da mesma já num desenho.

    referencia ao outro post
    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado a quem puder ajudar.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  JPaulo em Qui 16 Jun 2016, 11:41

    Ola;

    Faça o teste com esta minha função;

    Código:
    Function AbreImagemNoPaint(strCaminho)
    Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
    Chr(34) & strCaminho & Chr(34), 1
    If Err.Number = 0 Then Exit Function
    Exit Function
    End Function


    Chamar a função:

    Call AbreImagemNoPaint(CurrentProject.Path & "\SuaPasta\SuaFoto.jpg")


    Última edição por JPaulo em Qui 16 Jun 2016, 14:08, editado 2 vez(es)


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Qui 16 Jun 2016, 11:57

    Bom dia
    JPaulo
    Já sai para o trabalho, quando chegar em casa testo e aviso.
    Obrigado

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Qui 16 Jun 2016, 12:31

    Me esqueci.
    Como posso informar para a foto seja procurada no local onde o programa se encontra, dentro da pasta imagem?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  JPaulo em Qui 16 Jun 2016, 14:08

    Editado na mensagem Nº2


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Qui 16 Jun 2016, 18:37

    JPaulo.
    Funcionou perfeitamente.
    Poderia explicar o porque do erro?
    Outra coisa....
    não abusando muito....
    rs
    Teria como ajudar em outra questão?
    Obrigado

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sex 17 Jun 2016, 13:58

    No aplicativo desenvolvido pelo AhTeixeira ....
    [Você precisa estar registrado e conectado para ver este link.]
    existe a função que ele criou para ver o desenho no paint.
    No meu abre tela preta.

    tentei adaptar a que vc deu a dica mas não deu certo.
    Continua a abrir tela preta.
    ficou assim....


    Function fncMostraFoto()
    'para mostra a imagem associada oa registo
    '2015 - ahteixeira
    Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
    Chr(34) & strCaminho & Chr(34), 1
    If Err.Number = 0 Then
    End If
    If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
    Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
    Else
    Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
    End If
    End Function

    Poderia ajudar?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  JPaulo em Sex 17 Jun 2016, 14:10

    No VBA desse form, cole a função que te passei;

    Código:
    Public Function AbreImagemNoPaint(strCaminho)
        Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
        Chr(34) & strCaminho & Chr(34), 1
        If Err.Number = 0 Then Exit Function
        Exit Function
    End Function

    Ao pressionar duas vezes na imagem, altere assim e teste;

    Código:
    Private Sub foto_DblClick(Cancel As Integer)
    'abrir foto no paint
    '2015 - ahteixeira

        If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
          ' Dim RetVal
            'RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)
            Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg")
        Else
            'se nao existir ficheiro, pergunta se preterde criar novo
            If MsgBox("Deseja criar Ortondontia nova?", vbExclamation + vbYesNo, "Não existe ficheiro associado.") = vbYes Then
               
                Dim fOrigem, fDestino
                fOrigem = Application.CurrentProject.Path & "\Imagens\modelo.jpg"
                fDestino = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
                'copia
                FileCopy fOrigem, fDestino
               
                'para atualizar/refrescar foto
                'Call fncMostraFoto
            Call AbreImagemNoPaint(CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg")
            End If
        End If

    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sex 17 Jun 2016, 14:42

    JPaulo
    Obrigado antes de mais nada.
    estou no plantão do hospital ate +- 15 h.
    Consigo acessar internet pelo telefone, mas meu telefone não roda access, e não conseguirei testar.
    De tanto buscar algo que possa permitir abrir um esquema de desenho de exame de corpo delito em humanos, coloquei alguns códigos em word no telefone para estudar, entre um ou outro paciente.

    Dentro de tudo que encontrei o que mais se encaixa é a aplicação.....signature.....retirada do forum utteraccess, em anexo.
    Desenvolveram para imprimir assinaturas realizadas em tablet. Usa a classe desenvolvida pelo stephen Lebans.
    Até tentei trocar a imagem por outra, mas ai envolve aspectos complexos e difíceis para eu resolver. Não possuo conhecimento para isso. Mas encaixa perfeitamente.
    Daí optei pelo exemplo do Ah Teixiera, e cá estamos.
    rs

    Todavia meu receio é que como vc teve que modificar a rotina para ajudar-me, trocando certos comandos, pode ser que os outros interligados não rodem.
    Exemplo....

    Private Sub Form_Current()
       'para atualizar a imagem ao navegar nos registos
       Call fncMostraFoto
    End Sub


    Private Sub cmdRefrecar_Click()
       'para atualizar/refrescar foto
       Call fncMostraFoto    
    End Sub


    Acrescento abaixo a codificação principal original e o exemplo signature com os desenhos/esquemas que preciso.
    acredito que posa ser útil.
    de qualquer forma meu muito obrigado pela sua valorosa ajuda,


    Function fncMostraFoto()
    'para mostra a imagem associada oa registo
    '2015 - ahteixeira

       If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
           Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
       Else
           Me.foto.Picture = Application.CurrentProject.Path & "\Imagens\" & "naoexiste.jpg"
       End If
       
    End Function

    Private Sub Form_Current()
       'para atualizar a imagem ao navegar nos registos
       Call fncMostraFoto
    End Sub

    Private Sub foto_DblClick(Cancel As Integer)
    'abrir foto no paint
    '2015 - ahteixeira

       If Len(Dir(Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)) > 0 Then
           Dim RetVal
           RetVal = Shell("MSPAINT.EXE" & Space(1) & Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg", 1)
       Else
           'se nao existir ficheiro, pergunta se preterde criar novo
           If MsgBox("Deseja criar Ortondontia nova?", vbExclamation + vbYesNo, "Não existe ficheiro associado.") = vbYes Then
               
               Dim fOrigem, fDestino
               fOrigem = Application.CurrentProject.Path & "\Imagens\modelo.jpg"
               fDestino = Application.CurrentProject.Path & "\Imagens\" & Me.ID & ".jpg"
               'copia
               FileCopy fOrigem, fDestino
               
               'para atualizar/refrescar foto
               Call fncMostraFoto
           End If
       End If


    End Sub
    Private Sub cmdRefrecar_Click()
       'para atualizar/refrescar foto
       Call fncMostraFoto
    End Sub

    Private Sub Buscar_AfterUpdate()
    Lista57.Requery
    End Sub

    Private Sub Buscar_Change()
    If VarTecla = 1 Then
    VarTecla = 0
    Else
    Me.Recalc
    SendKeys "{F2}"
    End If
    End Sub



    Private Sub Form_Open(Cancel As Integer)
    DoCmd.GoToRecord , , acNewRec
    End Sub

    Private Sub Limpar_Click()
    Buscar = ""
    Lista57.Requery
    End Sub
    Anexos
    signature2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.9 Mb) Baixado 3 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sex 17 Jun 2016, 23:58

    JPaulo
    Deu divergência.
    Acredito que seja pelo exposto antes.
    Obrigado.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 09:58

    Mylton,

    vamos supor que vc consiga abrir a imagem desejada no Paint.  Vc vai então realizar alterações nessa imagem e salvar.   Pergunta: - vc terá que salvar uma nova imagem para cada paciente analisado ?  Ao fim de 100 pacientes vc teria então 100 imagens salvas ?

    Aguardamos



    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 12:24

    Sim.
    Penso em ter um form com nome da pessoa e um esquema do corpo delito em branco, sem marcação nenhuma.
    Abriria o paint e faria as marcações necessarias. Ao final salvaria. Qdo fosse consultar veria as lesoes. E claro imprimiria.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 13:56

    Mylton,

    baixe o exemplo que te ofereci e veja se atende:

    [Você precisa estar registrado e conectado para ver este link.]

    Se atender, vai evitar de usar uma penca de código e ter que guardar uma infinidade de imagem

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 14:02

    Tô pensano nela. To tentando acrescentar mais opcoes de marcação.
    Tipo círculo. ...
    No final da tarde. Dou um retorno.
    Obrigado

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 22:00

    Boa noite Avelino, JPaulo e demais....
    Avelino sua dica do vete é muito interessante, modifiquei o desenho e acrescentei um dos que preciso.
    percebi que não teria uma rapidez quando precisasse marcar no desenho as lesões encontradas. Teria que acrescentar muitas marcações em toda a extensão do desenho.
    Se puder verificar vai poder ver na mudança apenas do desenho.

    Na solução do Ah Teixeira, troquei o desenho e a mensagem.

    Quebrei a cabeça a tarde inteira para tentar colocar a rotina do JPaulo, que faz com que o MS Paint não abra na cor preta.


    Public Function AbreImagemNoPaint(strCaminho)
       Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _
       Chr(34) & strCaminho & Chr(34), 1
       If Err.Number = 0 Then Exit Function
       Exit Function
    End Function


    Mas não consegui.
    Se alguém puder... resolver essa minha dificuldade, vai ajudar muito.

    Em anexo o vete do Avelino e a solução do Ah Teixeira.

    Agora porque o Paint abre na cor preta?

    Obrigado
    Anexos
    Imagem Corpo delito.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (495 Kb) Baixado 4 vez(es)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 22:00

    Mylton,

    volte ao meu artigo, que eu demonstro como usar o círculo.

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 22:02

    OK
    Vou voltar e estudar mais um pouco.
    Rs.
    Obrigado.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 22:18

    Avelino, tinha visto o exemplo primário e não as adaptações que vc criou!

    Obrigado e desculpe não ter percebido.

    Penso, que o trabalho braçal para espalhar no campo todo, valerá se puder adotar uma pequena alteração ....
    Não basta apenas escolher pelo número, o que penso seria deixar os campos a mostra com a cor exemplo verde e se fosse tipo cicatriz a pessoa escolhe vermelho, se for queimadura.... amarelo e mais algumas cores.
    Em áreas extensas como a barriga (abdome) teria que replicar muitos campos, mas vejo como viável.
    teria como vc montar um campo apenas como exemplo?
    deixando visível e ao clicar escolho a cor?

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 22:39

    Lembrei do exemplo do odontograma!!!!
    Vi que que já está do jeito que pedi a vc.
    rsrs

    Só para finalizar....
    pergunto uma coisa e peço outra;
    Qual a rotina que posso usar para zerar todas as cores num cadastro novo?
    E pergunto...
    Porque não consigo visualizar os quadrados por cima da figura que coloquei?

    em anexo
    .
    obrigado
    Anexos
    Odontograma2000.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (239 Kb) Baixado 4 vez(es)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 23:22

    Mylton,

    mudei o projeto novamente.  Agora vc poderá movimentar com o mouse os pontos, livremente, sobre o desenho.  Volte ao tópico e baixe o último arquivo

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Sab 18 Jun 2016, 23:38

    Perfeito.
    Só falta uma coisa.
    Rs
    Como posso trocar as cores?
    Exemplo..
    rubor --- vermelho.
    hematoma ---roxo
    queimadura --- laranja
    cicatriz --- azul

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Sab 18 Jun 2016, 23:58

    Mylton,

    Amanhã, pela manha, eu monto isso pra vc e te comunico


    Última edição por Avelino Sampaio em Dom 19 Jun 2016, 00:02, editado 1 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Dom 19 Jun 2016, 00:00

    Obrigado.
    Uma excelente noite.
    Gde abs.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Dom 19 Jun 2016, 18:03

    Tricolor,

    segue o exemplo:

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Dom 19 Jun 2016, 18:11

    Meu amigo. Show.
    Se quiser aumentar o número de marcações basta adaptar, certo?
    Agora só falta nosso tricolor ser campeão esse ano.
    Rs.

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Dom 19 Jun 2016, 23:31

    Avelino
    Acrescentei....
    amputação, ferida e edema e ...dobrei para 20 cada um.
    Pq?
    Pq existe uma probabilidade maior de haver maios lesões.


    bom ta dando erro...

    Public Sub fncMontaEventos()
    Dim ctl As Control
    For j = 1 To 20
       Me("rot" & j).OnMouseUp = "=fncMouseUp([" & Me("rub" & j).Name & "]," & j & ")"
       Me("rot" & j + 20).OnMouseUp = "=fncMouseUp([" & Me("hem" & j).Name & "]," & j + 20 & ")"
       Me("rot" & j + 40).OnMouseUp = "=fncMouseUp([" & Me("que" & j).Name & "]," & j + 40 & ")"
       Me("rot" & j + 60).OnMouseUp = "=fncMouseUp([" & Me("cic" & j).Name & "]," & j + 60 & ")"
      Me("rot" & j + 80).OnMouseUp = "=fncMouseUp([" & Me("ede" & j).Name & "]," & j + 80 & ")"
       Me("rot" & j + 100).OnMouseUp = "=fncMouseUp([" & Me("fer" & j).Name & "]," & j + 100 & ")"
       Me("rot" & j + 120).OnMouseUp = "=fncMouseUp([" & Me("amp" & j).Name & "]," & j + 120 & ")"
    Next
    For j = 1 To 20
       Me("rot" & j).OnDblClick = "=fncDuploClique([" & Me("rot" & j).Name & "]," & p1 & ")"
       Me("rot" & j + 20).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 20).Name & "]," & p2 & ")"
       Me("rot" & j + 40).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 40).Name & "]," & p3 & ")"
       Me("rot" & j + 60).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 60).Name & "]," & p4 & ")"
       Me("rot" & j + 80).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 80).Name & "]," & p5 & ")"
       Me("rot" & j + 100).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 100).Name & "]," & p6 & ")"
       Me("rot" & j + 120).OnDblClick = "=fncDuploClique([" & Me("rot" & j + 120).Name & "]," & p7 & ")"
    Next
    End Sub

    o que fiz de errado?
    rs;rs;

    Em anexo o banco.
    Anexos
    Corpo Delito Avelino - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (243 Kb) Baixado 3 vez(es)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Avelino Sampaio em Seg 20 Jun 2016, 15:25

    Tricolor,

    segue modificações.

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Por que a tela do MS Paint usando VBA abre preta?

    Mensagem  Mylton em Seg 20 Jun 2016, 15:43

    Muito obrigado.
    Não tenho palavras para lhe agradecer por essa imensa ajuda.
    Gde abs e sucesso.
    Boa semana.

      Data/hora atual: Qua 07 Dez 2016, 18:18