Diferencia de color del borde RGB qbcolor en vb

RGB(Red?as?integer, Green?as?integer, ?blue?as?integer)?as?long

Esta función requiere la entrada de tres parámetros: red, verde, azul (tres colores primarios ópticos, rango 0 ~ 255), salida de datos enteros largos (colores mezclados). Esta función se usa con mucha frecuencia y puede combinar con todos los colores.

Mini programa: (control como se muestra en la imagen)

Private?Sub?Command1_Click()

Imagen1.Backcolor?=?RGB(Val(text1 .text), Val(text2.text), Val(text3.text ))

Fin?sub

qbcolor.Backcolor(color como?QBColor(color?as?integer) ? as?long

¿Color de entrada?: un número entero de 0 a 15

Salida: datos enteros largos: dieciséis colores de uso común

Ejemplo: (puede ser directamente Presione Ctrl?c)

Dim?a

Privado?Sub?Form_Click()

Cls

a?=? a ?1

BColor?=?QBColor(a)

Imprimir?a

¿Fin?