No se si se podrá realizar pero ahí va mi pregunta

[lldyn]

Vamos a ver si me explico, deseo guardarunos codigos de color en una base de datos (fondo, Texto, fodo de formulatio y texto de formulario) y que estos autmáticamente, alabrir los forms, se aplique a los distintos elementos para así obtener todas las pantallas de la aplicación con los mismos tonos y no tener que hacer los cambios en cada form.


gracias

[elsaky]

si que se puede.
saludos

[lldyn]

Iniciado por elsaky

si que se puede.
saludos

Muchas gracias elsaky, pero me ayudarías más dandome una idea de como hacerlo

[tazzito]

mmmm puedes tener una tabla con las siguientes caracteristicas

NombreOBJ
FormularioPROPIETARIO
ColorFondo
ColorLetras

y recorres el formulario para los objetos con algo asi

For Each MiObjeto In MiFormulario ' Itera por cada elemento.
buscarObjetoEnBaseDatos
MiObjeto.BackColor = val(Recordset!ColorFondo)
MiObjeto.ForeColor = val(Recordset!ColorLetras)
Next


algo asi... mas o menos

[lldyn]

Esa es la función que me Sale

Public Function aplicacolor()

Dim Control As Control

colfondo = Val(rscof!fondo)
coltexto = Val(rscof!texto)
ccapturf = Val(rscof!fondo2)
ccapturt = Val(rscof!texto2)

For i = 0 To (Me.Controls.Count - 1)
Set Control = Me.Controls(i)
Nombrecont = Me.Controls(i).Name

tipo = UCase(TypeName(Control))
Select Case tipo
Case "PICTUREBOX"
Control.BackColor = colfondo
Case "FRAME"
Control.BackColor = colfondo
Control.ForeColor = coltexto
Case "LABEL"
If Nombrecont <> "muestrac" Then
Control.BackColor = colfondo
Control.ForeColor = coltexto
'Else
' Mstbox "muestrac"
End If
Case "TEXTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "DRIVELISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "FILELISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case "DIRLISTBOX"
Control.BackColor = ccapturf
Control.ForeColor = ccapturt
Case Else

End Select

Next

Me.BackColor = colfondo
End Function


Espero que a alguien le sirva

[[EX3]]

Para configuraciones una base de datos se queda muy grande (como matar moscas a cañonazos), para esto se suelen usar archivos de configuracion ya sean archivos INI, XML o un formato propio que te inventes, pero de una forma u otra tendras que cambiar igual uno a uno cada control, no existe forma de hacer un cambio global a los controles de la aplicacion.

Salu2...

[Neverhood]

Yo uso el siguiente código y me funciona muy bien:

Código:

Public Sub Color(ByVal Forma As Form)
  Dim InControl As Integer
  Forma.BackColor = &H80000001
    For InControl = 0 To Forma.Controls.Count - 1
      If TypeOf Forma.Controls(InControl) Is Label Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
        Forma.Controls(InControl).ForeColor = &H8000000D
      ElseIf TypeOf Forma.Controls(InControl) Is Frame Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
      ElseIf TypeOf Forma.Controls(InControl) Is Line Then
        Forma.Controls(InControl).BorderColor = RGB(0, 0, 0)
      ElseIf TypeOf Forma.Controls(InControl) Is CommandButton Then
        Forma.Controls(InControl).BackColor = RGB(0, 127, 0)
      ElseIf TypeOf Forma.Controls(InControl) Is PictureBox Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
      ElseIf TypeOf Forma.Controls(InControl) Is OptionButton Then
        Forma.Controls(InControl).BackColor = &HE0E0E0
        Forma.Controls(InControl).ForeColor = RGB(255, 255, 255)
      End If
    Next InControl
End Sub

En el LOAD del formulario, lo mandas llamar:

Color Me