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.