Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sk1p en 14 Mayo 2008, 21:42 pm



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.