Red de conocimiento informático - Espacio del host - Quiero crear un control deslizante que cambie el color de la parte inferior de la ventana en un lenguaje sencillo.

Quiero crear un control deslizante que cambie el color de la parte inferior de la ventana en un lenguaje sencillo.

.Versión 2

.Subrutina _SliderBar1_PositionChanged

_StartWindow.Color base = HSLToRGB (barra deslizante 1.posición ÷ 100, 0.5, 0.5)

. Matiz de subrutina, tipo decimal de doble precisión

Parámetro p, decimal de doble precisión

. Parámetro q, decimal de doble precisión

. Parámetro t, decimal de doble precisión

. si es verdadero (t < 0)

t = t 1

. Si es verdadero (t < 0)

t = t 1

.Si es verdadero (t > 1)

t = t - 1

. Si es verdadero, finalice

. Si es verdadero (t < 1 ÷ 6)

devuelve (p (q - p) × 6 × t)

. Termina cuando es verdadero

. Si es verdadero (t < 1 ÷ 2)

devuelve (q)

. Termina cuando es verdadero

. Si es verdadero (t < 2 ÷ 3)

devuelve (p (q - p) × (2 ÷ 3 - t) × 6)

. Si es verdadero, finalice

Devuelve (p)

. Subrutina HSLToRGB, Entero

. Parámetro h, decimal de doble precisión

. Parámetro s, decimal de doble precisión

. Parámetro l, número decimal de doble precisión

. Variable local r, doble decimal

. Variable local g, doble decimal

. Variable local b, doble decimal

. Variable local q, doble decimal

. Variable local p, doble decimal

. El juicio comienza (s = 0)

r = l

g = l

b = l

. Predeterminado

q = elección (l < 0,5, l × (1 s), l s - l × s)

p = 2 × l - q

r = Tono (p, q, h 1 ÷ 3)

g = Tono (p, q, h)

b = Tono (p, q, h - 1 ÷ 3) )

.p, q, h - 1 ÷ 3)

.Fin del juicio

Devolver (tomar el valor del color (redondeado (r × 255, ), redondeo (g × 255, ), redondeo (b × 255, )))

. Subrutina __Launch Window_Created

Barra deslizante 1.Posición máxima = 100

Barra deslizante 1.Valor de cambio de página = 1

Convierta el espacio de color y luego... ..... Copie el código y pruébelo.