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: Un valor de tipo 'Integer' no se puede convertir en 'System.Drawing.Color'. El codigo que tengo puesto es este: 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: 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.
|