Red de conocimiento informático - Problemas con los teléfonos móviles - color de etiqueta de control de matriz de casilla de verificación de ayuda de vb

color de etiqueta de control de matriz de casilla de verificación de ayuda de vb

Es más divertido así. Pero recomiendo usar un marco para cada una de las tres columnas, cada una con un nombre de color base.

Consulte el código que escribí

Después de escribirlo, el código es el siguiente:

Dim Red As Integer, Green As Integer, Blue As Integer

Sub Check1_Click privado (Índice como entero)

Rojo = 0

Para i = 0 a 8

Si Check1(i) Entonces Rojo = Red Check2(i).Caption

Siguiente i

Etiqueta1 = "Total:" amp Rojo

Decoloración

End Sub;

Private Sub Check2_Click(Index As Integer)

Verde = 0

Para i = 0 a 8

Si Check2(i) Luego Verde = Verde Check2(i).Caption

Siguiente i

Etiqueta2 = "Total:" amp Verde

Cambio de color

End Sub

Sub privado Check3_Click(Indexar como entero)

Azul = 0

Para i = 0 a 8

Si Check2 (i ) Entonces Azul = Azul Check2(i).) Mover 50, 200 400 * i

Check3(i).Mover 50, 200 400 * i

Check3(i) .Mover 50, 200 400 * i

Check3(i).Mover 50, 200 400 * i

Check3(i).>

Check3(i ). Título = Valor

Siguiente i

Etiqueta1.Mover 50, 200 400 * i, 800, 300

Etiqueta2.Mover 50, 200 400 * i , 800 , 300

Etiqueta3.Move Mover 50, 200 400 * i, 800, 300

Etiqueta1 = "Total: 0"

Etiqueta2 = "Total : 0 "

Label3 = "Total: 0"

Frame1.Frame1.Caption = "Rojo"

Frame2.Caption = "Verde"

Frame3.Caption = "Azul"

End Sub

Cambio de subcolor privado()

Me.BackColor = RGB(Rojo, Verde, Azul)

Fin Sub