Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/02/2010, 14:58
Aquileo
 
Fecha de Ingreso: julio-2009
Mensajes: 9
Antigüedad: 14 años, 9 meses
Puntos: 0
De acuerdo Respuesta: Cambiar backcolor de formulario y color de fuente dinamicamente

Primero en el explorador de proyectos Hay una carpeta que se llama MyProyect, Haz doble clic o ve al menu Proyecto -> Propiedades de NombreDeTuPrograma -> Busca la opción que dice Configuración* aparecerá como una tabla y agrega los siguientes valores

Nombre...................Tipo..................... ............Ambito.........Valor
ColorFomulario........System.Drawing.Color.....Usu ario.......(UnColor)
ColorLabel...............System.Drawing.Color..... Usuario.......(UnColor)

En el formulario pon los siguientes controles con los siguientes nombres
Label1 (Label), Label2(Label), Label3 (Label), un ColorD (ColorDialog), Picture1 (PictureBox), Picture2 (PictureBox) y Buttun1 (Buttun).

Pon el siguiente codigo:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Carga los valores de configuracion al inicio
Me.BackColor = My.Settings.ColorFormulario
Label1.BackColor = My.Settings.ColorLabel
End Sub
Private Sub Picture1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Picture1.Click
'Muestra un cuadro de dialogo y lee el color seleccionado
If (ColorD.ShowDialog() = Windows.Forms.DialogResult.OK) Then
Picture1.BackColor = ColorD.Color
End If
End Sub
Private Sub Picture2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Picture2.Click
'Muestra un cuadro de dialogo y lee el color seleccionado
If (ColorD.ShowDialog() = Windows.Forms.DialogResult.OK) Then
Picture2.BackColor = ColorD.Color
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Establece el nuevo color para el formulario
My.Settings.ColorFormulario = Picture1.BackColor
'Establece el nuevo color para la etiqueta
My.Settings.ColorLabel = Picture2.BackColor
'Guarda los valores en el archivo de configuración
My.Settings.Save()
End Sub
End Class

Para ver los cambios tendras que cerrar y volver a iniciar el programa, tengo el codigo fuente del ejemplo si me pasas tu correo te lo puedo enviar. Suerte