Título: Codigo cambiar color Publicado por: Sk1p en 14 Mayo 2008, 21:42 pm Pues esta es la primera pega con la que me encuentro, empecé ayer a instruirme en VB y hasta aqui he llegado.
El programa lo que tiene que hacer es permitir al usuario elegir el codigo RGB que se pondra de fondo a una etiqueta cuando pulse un boton. El problema es que me suelta este error: Código: Un valor de tipo 'Integer' no se puede convertir en 'System.Drawing.Color'. El codigo que tengo puesto es este: Código: Public Class Form1 Private Brojo, Bverde, Bazul As Integer Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged TextBox1.Text = NumericUpDown1.Value End Sub Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged TextBox2.Text = NumericUpDown2.Value End Sub Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged TextBox3.Text = NumericUpDown3.Value End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Brojo TextBox2.Text = Bverde TextBox3.Text = Bazul Label1.BackColor = RGB(Brojo, Bverde, Bazul) End Sub End Class Título: Re: Codigo cambiar color Publicado por: ((( SPAWN ))) en 14 Mayo 2008, 22:47 pm hola Sk1p, este es el foro de visual basic, para dudas de vb.net esta el subforo .NET, te respondo la pregunta pero despues te lo van a mover al post.
Proba con esto: Código: Public Class Form1 Private Brojo, Bverde, Bazul As Integer Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged TextBox1.Text = NumericUpDown1.Value End Sub Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged TextBox2.Text = NumericUpDown2.Value End Sub Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged TextBox3.Text = NumericUpDown3.Value End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Brojo=TextBox1.Text '---> Asignas el valor del textbox1 a la variable Brojo Bverde=TextBox2.Text '---> Asignas el valor del textbox2 a la variable Bverde Bazul=TextBox3.Text '---> Asignas el valor del textbox3 a la variable Bazul Label1.BackColor = Color.FromArgb(Brojo,Bverde, Bazul) End Sub End Class Saludos. |