Personalizar aplicacion

[bautistasbr]

Ola amig@s,me gustaria que en mi aplicacion cada uno pudiera personalizar los colores de los forms y las letras.Por ejemplo si selecciono q el form sea naranja,q se cambie en todos a la vez y tambien se cambie en todos la letra,porq si tengo q poner q se cambien d uno en uno,me puedo morir,asiq si alguien sabe,q me ayude.

Gracias

[einfluss]

hola!, esto es sencillo. podrías simplemente manejarte con las propiedades
ejemplo....
supongamos q tengo un form con un boton y cuando lo apreto se pone naranja y se abre el form2, en el boton habría este codigo...

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Form1.BackColor = &H80FF&
Form2.Show
End Sub

ahora si queremos q el form 2 se ponga naranja, pero no porq nosotros le decimos si no porq queremos q copie el mismo color q tiene, sencillisimo

Código [Seleccionar] Expandir

Private Sub Form_Load()
Form2.BackColor = Form1.BackColor

End Sub
y con eso estas.... si por ejemplo quieres q lo haga en ejecucion , haces q  Form2.BackColor = Form1.BackColor, este en un timmer, entonces si cambias el color mientras ejecutas el programa, esto lo podrías ver

Saludos
EINFLUSS.

[bautistasbr]

gracias por la ayuda,ya lo hice

[NYlOn]

Tambien podes hacer un bucle por todos los controles. Por ejemplo:

Código [Seleccionar] Expandir


Dim Lbl as Label
For Each Lbl in Form1 'en vez de Form1 puede ir un Frame, PictureBox o cualquier otro contenedor
    Lbl.BackColor = vbRed
    Lbl.ForeColor = vbGreen
Next


Asi te ahoras tener que poner linea por linea. Saludos.-