[Resolvido]alterar cor do rótulo do formulário

ola bom dia a todos estou adaptando um código que eu encontrei aqui no fórum para mudar a cor dos formulário, rodapé do formulário, cabeçalho do formulário porém eu gostaria de saber se é possível eu fazer um para mudar a cor também todos o rótulo dos formulário eu até porque a cor da fonte e preta se o usuário coloca uma cor mais escura no formulário os rótulos também não vão aparecer devido as cores igual,

e também se não for pedir muito eu vi este encontrei este bd orçamento aqui eu gostei muito do design do cabeçalho do formulário com esta imagem eu gostaria de saber qual programa eu uso para fazer uma imagem como essa



obrigado

Amigo, o progrma utilizado para criar as imagens eu não sei... pois podem ser diversos... CorelDraw, PhotoShop etc...

Agora para mudar a cor da fonte a propriedade é essa:

Me.Rótulo41.ForeColor = vbBlue

bom dia Fabio obrigado ,mais a respeito de mudar a cor do rótulo eu gostaria de saber se tem como fazer uma função para mudar a cor de todos de uma só vez e também de todos os formulário

obrigado

Então amigo, Montada eu desconheço! Mas a propriedade que será utilizada será essa!

de qualquer forma obrigado assim dou como resolvido

muito obrigado mesmo

Marcelo Marques boa tarde,

Segue abaixo função que muda a cor de todos os rótulos (label) da tela.

Copie e cole em um módulo.


Public Function MudaCor(nForm As Form)
On Error GoTo trata_erro
Dim ctl As Control

   For Each ctl In nForm.Controls
       If ctl.ControlType = acLabel Then
           ctl.ForeColor = vbRed 'Aqui vc informa a cor desejada
       End If
   Next ctl
   
   Exit Function

trata_erro:
   
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   Exit Function

End Function


Para executar esta função, no form ativo:

Call MudaCor (Me)

Onde:

"Me" é o formulário ativo onde deseja mudar a cor dos rótulos.

Espero ter ajudado.

Abraço

Att,

boa tarde Alexandre muito obrigado pela ajuda e também obrigado ao Fabio

muito obrigado

Boa tarde!

Alexandre Fim, Qual seria a alteração para aplicar a caixa de texto.
Tentei alterar o "acLabel" para "acText" mais não e isto.

Se puder me ajudar nessa eu agradeço muito.

tente
acTextBox

Bom dia IvanJr.

É isso mesmo, deu certinho.

Muito Obrigado