- 16 Nov 2020 às 22:05
#60545
*FInicial = Meu Formulário principal.
Pessoal, mudei a cor de fundo e frente de todos os Textbox e combobox do formulário usando o seguinte código:
Tentei algo assim para mudar a cor dos frames, e ficou ridículo, não tem nada a ver:
Pessoal, mudei a cor de fundo e frente de todos os Textbox e combobox do formulário usando o seguinte código:
Código: Selecionar todos
Como faço a mesma coisa para mudar, de uma só vez, as cores de todos os frames do formulário? Também vou precisar manejar Checkbox, Imagens (quadrados que coloco no fundo) e option buttons.Sub ColorsTBCB1()
Dim objeto As Control
For Each objeto In FInicial.Controls
If TypeName(objeto) = "TextBox" Or TypeName(objeto) = "ComboBox" Then
objeto.BackColor = &H8000000D
objeto.ForeColor = &H8000000E
End If
Next objeto
End Sub
Tentei algo assim para mudar a cor dos frames, e ficou ridículo, não tem nada a ver:
Código: Selecionar todos
Alguém consegue ajudar?Sub ColorsFR1()
Dim objeto As Frame
For Each objeto In FInicial.Controls
If TypeName(objeto) = "Frame" Then
objeto.BackColor = H80000001
End If
Next objeto