Programa VB para crear una paleta con una matriz de barra de desplazamiento
1 grupo de control VScroll1, a saber, VScroll1(0), VScroll1(1), VScroll1(2), utilizado para ajustar los colores: rojo, verde, azul.
Establece propiedades: Max=255, Min=0 y otros valores predeterminados.
Otro cuadro de texto, Texto1, sirve como control experimental para los cambios de color.
Uso: desplaza VScroll1, cambia RGB y luego cambia los colores en la paleta.
Haga doble clic en el control Imagen1 con el mouse para obtener el color de la bandeja.
Haga clic en Texto1 con el mouse y el color de fondo de Texto1 cambiará al color del control Imagen1.
El código es el siguiente:
Simplemente cópielo y comprendalo usted mismo. Si tiene dificultades, continúe comunicándose.
Opción explícita
Privada R como número entero
Privada G como número entero
Privada B como número entero
Privada ThisColor As Long
Private Sub Form_Load()
Imagen1.BackColor = ThisColor
End Sub
Private Sub VScroll1_Change(Index As Integer )
Seleccionar índice de caso
Caso 0
R = VScroll1(Índice).
Caso 1
G = VScroll1(Index).Value
Caso 2
B = VScroll1(Index).Value
Fin de selección
Imagen1. Color de fondo = RGB(R, G, B)
Fin Sub