color de etiqueta de control de matriz de casilla de verificación de ayuda de vb
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 p>
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; p>
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