Ir para conteúdo
Fórum Script Brasil
  • 0

Função Publica para mudar cor do text


geraldo pereira

Pergunta

Boa Noite

Desde já quero agradece a ajuda que me enviaram sobre Nota Promissória e agora estou precisando  de vocês, tenho pouca experiência no assunto e estou estudando vba, e no momento preciso fazer uma função Publica  tenho a função privada porém não consigo transformar ela em publica, é  o sequinte tenho  12 formularios com 23 textbox para usar estee procedimentos Me.Textbox6.BackColor = corEnabledTextBox e Me.Textbox6.BackColor = corDisabledTextBox, desde já agradeço a atenção de quem possa colaborar com o meu aprendizado

 

Grato

Geraldo Pereira

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Boa noite @geraldo pereira.

Eu criei um módulo e coloquei um variável publica, depois eu creio uma comando para mudar o valor da variável ou definir.

Public corEnabledTextBox

Public Sub setColorText()
corEnabledTextBox = &HFF&
End Sub

Quando o formulário foi iniciado ele preencheu a variável com a cor do comando

Private Sub UserForm_Initialize()
setColorText
End Sub

E criei um botão para mudar a cor do textbox no formulário (pegando o valor da variável publica)

Private Sub CommandButton1_Click()
TextBox1.BackColor = corEnabledTextBox
End Sub

image.png.4b4d193484cec807f979640b811f260a.png

image.png.36368ca5b7a8eb2cc74f895f76a44a24.png

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...