Codigo cambiar color

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

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.

Cita de: EON

= SOLUCIÓN

hard-h2o modding Foros de ayuda Yashira.org Videojuegos indetectables.net

Noticias Informatica Seguridad Informática ADSL Foros en español eNYe Sec

Todas las webs afiliadas están libres de publicidad engañosa.