
11/02/2010, 16:23
|
| | Fecha de Ingreso: octubre-2008
Mensajes: 36
Antigüedad: 16 años, 4 meses Puntos: 0 | |
Respuesta: Cambiar backcolor de formulario y color de fuente dinamicamente Cita:
Iniciado por Aquileo 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 Hola
Gracias por la ayuda, ya me doy una idea de como hacerlo, pero si me puedes enviar el ejemplo te lo agradeceria mucho.
Saludos. |