'****** DAR FORMATO AL TEXTO DE LAS ETIQUETAS Y BOTONES ******
Dim ColorFondoBotonesRed As Double
Dim ColorFondoBotonesGreen As Double
Dim ColorFondoBotonesBlue As Double
Dim ColorTextoBotonesRed As Double
Dim ColorTextoBotonesGreen As Double
Dim ColorTextoBotonesBlue As Double
ColorFondoBotonesRed = DLookup("ColorFondoBotonesRed", "T00Configuracion")
ColorFondoBotonesGreen = DLookup("ColorFondoBotonesGreen", "T00Configuracion")
ColorFondoBotonesBlue = DLookup("ColorFondoBotonesBlue", "T00Configuracion")
ColorTextoBotonesRed = DLookup("ColorTextoBotonesRed", "T00Configuracion")
ColorTextoBotonesGreen = DLookup("ColorTextoBotonesGreen", "T00Configuracion")
ColorTextoBotonesBlue = DLookup("ColorTextoBotonesBlue", "T00Configuracion")
Dim Control As Access.Control
For Each Control In FName.Controls
Select Case Control.controlType
Case acLabel
If Control.Tag = "Titulo" Then
Control.BackColor = RGB(ColorFondoTituloRed, ColorFondoTituloGreen, ColorFondoTituloBlue)
Control.BackStyle = 1
Control.ForeColor = RGB(ColorTextoTituloRed, ColorTextoTituloGreen, ColorTextoTituloBlue)
Control.FontName = "Montserrat"
Control.FontSize = 20
Control.TextAlign = 2
Control.FontBold = True
ElseIf Control.Tag = "Subtitulo1" Then
Control.BackColor = RGB(ColorFondoTituloRed, ColorFondoTituloGreen, ColorFondoTituloBlue)
Control.BackStyle = 1
Control.ForeColor = RGB(ColorTextoTituloRed, ColorTextoTituloGreen, ColorTextoTituloBlue)
Control.FontName = "Montserrat"
Control.FontSize = 14
Control.FontBold = True
ElseIf Control.Tag = "Subtitulo2" Then
Control.ForeColor = RGB(255, 255, 255)
Else
Control.ForeColor = RGB(ColorTextoRed, ColorTextoGreen, ColorTextoBlue)
End If
Case acCommandButton, acToggleButton
Select Case Control.Tag
Case "NoUsarTema"
Control.UseTheme = True
Control.BackColor = RGB(ColorFondoBotonesRed, ColorFondoBotonesGreen, ColorFondoBotonesBlue)
Control.BorderColor = RGB(ColorFondoBotonesRed, ColorFondoBotonesGreen, ColorFondoBotonesBlue)
Control.ForeColor = RGB(ColorTextoBotonesRed, ColorTextoBotonesGreen, ColorTextoBotonesBlue)
Control.FontBold = True
Control.HoverColor = Control.BackColor
Control.PressedColor = Control.BackColor
Control.HoverForeColor = Control.ForeColor
Control.PressedForeColor = Control.ForeColor
End Select
End Select
Next Control
Set Control = Nothing