Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para crear una paleta con una matriz de barra de desplazamiento

Programa VB para crear una paleta con una matriz de barra de desplazamiento

1 control Imagen1, utilizado como paleta;

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