Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Access-Modulo para padronizar a cor dos controles do formulário (TextBox, ComboBox etc.)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

16112012

Mensagem 

Access-Modulo para padronizar a cor dos controles do formulário (TextBox, ComboBox etc.)






Era cansativo ir de controle em controle atribuindo cor às textbox, combobox e demais. Quando precisava fazer uma atualização que se precisava substituir as cores de fundo por outras, aí então que não era fácil.

Escrevi uma solução que eliminou este problema.

Abaixo o código que deverá salvar em um módulo e atribuir qualquer nome, no meu caso eu atribui como stylefields, pode usar esse nome também se desejar.
Código:

Function CorDoFundo(argFrm As Form)
'Objetivo: Padronizar as cores de fundo das textBox e comboBox

On Error GoTo TrataErro

    Dim ctl As Control
      
    For Each ctl In argFrm.Controls
        With ctl
            Select Case .ControlType
                                  
                
                Case acTextBox
                        .BackColor = RGB(240, 255, 240)
                        
              
                Case acComboBox
                        .BackColor = RGB(240, 255, 240)
                                                          
            End Select
        End With
                
    Next ctl
    
sair:
    Exit Function
TrataErro:
    MsgBox "Erro: " & err.Number & vbCrLf & err.Description, vbCritical, "Aviso", err.HelpFile, err.HelpContext
    Resume sair:
        
End Function
Para chamar a função basta colocar no evento Ao Carregar do formulário o seguinte:
Call CorDoFundo(Me)

Acima veja que padronizei cor para as TextBox e ComboBox. Porém você poderá atribuir cores aos demais controles que desejar. Para mudar a cor basta modificar a fonte RGB na propriedade .BackColor =

Até study


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

Access-Modulo para padronizar a cor dos controles do formulário (TextBox, ComboBox etc.) :: Comentários

avatar

Mensagem em Ter 26 Fev 2013 - 4:05 por Dilson

O Avelino Sampaio desenvolveu uma ótima solução e atualmente é a que estou usando por ser espetacular.

Confira em: http://www.usandoaccess.com.br/download.asp

Vá na relação de downloads e clique no nome: PintaCampoFoco.zip

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum