none
Gráficos o colores en un texbox RRS feed

  • Pregunta

  • Necesito ayuda, tengo un formulario el cual necesito identificar ciertos atributos con un color, es decir el producto A puede tener 3 o 4 atributos, estos atributos pueden ser colores o un gráfico, si yo quiero que el producto A se identificado como alto en dulce lo marco con rojo, en siguiente cuadro de atributos deberá seleccionar otro atributo que puede ser contenido de sal y tendré que marcarlo con el color o gráfico que corresponda, esta información deberá ser registrada en un base de access.

    gracias por la atención

    lunes, 2 de septiembre de 2019 4:11

Todas las respuestas

  • Hola Jedi, puedes utilizar los valores de RGB para guardarlos en una variable y luego cargarlas en una base de datos ej:

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
            If e.KeyData = 13 Then
                Dim OFC As New ColorDialog
                If OFC.ShowDialog = DialogResult.OK Then
                    With OFC
                        TextBox1.BackColor = .Color
                        MessageBox.Show(" Color Argb: " & .Color.ToArgb & Environment.NewLine & " R " & .Color.R & " G  " & .Color.G & " B " & .Color.B)
                        TextBox2.BackColor = Color.FromArgb(.Color.R, .Color.G, .Color.B)
                        TextBox3.BackColor = Color.FromArgb(.Color.ToArgb)
                    End With
                End If
    
            End If
        End Sub

    En este ejemplo la dar Enter sobre un textbox se despliega la paleta de colores al seleccionar un color agrego, a modo de ejemplo un Messengerbox para que veas los valores que se producen, así sean editados estos valores llos pasa a los otros textbox como ejemplo de como recuperar esos valores de la base de datos y cargarlas en los textbox, el tema es cargar los valores R G B y pasarlos a los registros y luego utilizarlos extrayendolos y cargandolos como BackColor = Color.FromArgb( 100,150,100) ej.

    Saludos espero te sirva


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    • Propuesto como respuesta Pablo Rubio jueves, 5 de septiembre de 2019 17:13
    lunes, 2 de septiembre de 2019 4:51