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

.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.