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


2 participantes

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    avatar
    notliada
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/11/2015

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada 5/7/2016, 12:47

    Boa noite, antes de buscar ajuda necessária, gostaria de agradecer `a todos do fórum, pela sua valiosa colaboração, onde muito se ajudam, de verdade, OBRIGADO!
    Esta é minha primeira participação direta, minha necessidade é a seguinte, tenho vários formulários e com botões idênticos, para carregar as imagens uso o código abaixo, no evento ao carregar do formulário, funciona muito bem, mesmo trocando o programa de lugar as imagens carregam normalmente. O que eu queria saber se é possível, criar um módulo para que eu não precisasse escrever o código em todos os formulários, e sim apenas chamasse o módulo, ou função... tipo:
    Call Nome da função ou módulo ( se é que é possível.)
    ----------------------------------------------
    Private Sub Form_Load()
          Me.BtnPrimeiro.Picture = CurrentProject.Path & "\imagens\primeiro.png"
           Me.BtnAnterior.Picture = CurrentProject.Path & "\imagens\anterior.png"
           Me.BtnProximo.Picture = CurrentProject.Path & "\imagens\proximo.png"
           Me.BtnUltimo.Picture = CurrentProject.Path & "\imagens\ultimo.png"
           Me.BtnNovo.Picture = CurrentProject.Path & "\imagens\novo.png"
    já pesquisei porém não encontrei algo do tipo.
    Desde já muito obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty Re: [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  Avelino Sampaio 6/7/2016, 23:36

    Olá!

    Experimente:

    Public sub fncMontaSeq(frm as form) 
      frm.BtnPrimeiro.Picture = CurrentProject.Path & "\imagens\primeiro.png"
      frm.BtnAnterior.Picture = CurrentProject.Path & "\imagens\anterior.png"
      frm.BtnProximo.Picture = CurrentProject.Path & "\imagens\proximo.png"
      frm.BtnUltimo.Picture = CurrentProject.Path & "\imagens\ultimo.png"
      frm.BtnNovo.Picture = CurrentProject.Path & "\imagens\novo.png"
    end sub


    No evento ao abrir de cada formulário

    call fncMontaSeq(me)

    Aguardamos


    Última edição por Avelino Sampaio em 7/7/2016, 14:47, editado 2 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    notliada
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/11/2015

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada 7/7/2016, 12:40

    Bom dia,
    Coloquei em um formulário o seu código, e no evento ao abrir do formulário usei
    call fncMontaSeq(me), o código funcionou perfeito, so tive que trocar o end if pelo end sub.
    Aproveitando, não sei se entendi certo, terei que colocar o código e a chamada em cada formulário?
    ou tem como colocar o código em um local específico e nos formulários usar somente a chamada
    call fncMontaSeq(me)? Muito obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty Re: [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  Avelino Sampaio 7/7/2016, 14:46

    Olá!

    A função deve ficar num módulo global e não em cada formulário. Em cada formulário perderia o propósito

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    notliada
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/11/2015

    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty módulo ou função para inserir imagens em botões automaticamente

    Mensagem  notliada 7/7/2016, 18:17

    Boa tarde,
    funcionou perfeitamente.
    Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]módulo ou função para inserir imagens em botões automaticamente Empty Re: [Resolvido]módulo ou função para inserir imagens em botões automaticamente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:58