MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    notliada
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  notliada em Ter 05 Jul 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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qua 06 Jul 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 Qui 07 Jul 2016, 14:47, editado 2 vez(es)

    notliada
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  notliada em Qui 07 Jul 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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qui 07 Jul 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

    notliada
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  notliada em Qui 07 Jul 2016, 18:17

    Boa tarde,
    funcionou perfeitamente.
    Muito obrigado.

      Data/hora atual: Dom 22 Out 2017, 13:04