vb dibuja anillos de colores
'La función de este subprocedimiento es dibujar un anillo de arco iris justo en el medio del formulario
'El primer parámetro, s, es el radio del círculo exterior del anillo (en tee)
'El segundo parámetro, w, es el ancho del anillo (en tee)
' '¡Cuidado, w no debe ser mayor que s! ¡Nota, w no debe ser mayor que s!
¿Dim?i?As?Integer,?j?As?Single,?c?As?Variant
Dim?r?As?Integer,?g?As?Integer, ?b?As?Entero
Dim?r1?As?Entero,?g1?As?Entero,?b1?As?Entero
Dim?r2?As?Entero,? g2?As?Integer,?b2?As?Integer
Dim?k?As?Single
c?=?Array(&HFF&,&H80FF&,&HFFF&,&HFF00&,&HFF0000)
'Los anteriores son los cinco valores de color, a saber, rojo, naranja, amarillo, verde y azul
'Cambie sus valores u ordene para obtener círculos de diferentes colores
Para?i?=?0?to?3
r1?=?c(i)?Mod?&H100&
g1?=?c(i)?\ ?&H100&?Mod?&H100&
b1?=?c(i)?\?&H10000
r2?=?c(i?+?1)?Mod?&H100&
g2?=?c(i?+?1)?\?&H100&?Mod?&H100&
b2?=?c(i?+?1)?\?&H10000
k?=?s?-?w?+?i?*?w?/?4
Para?j?=?k?To?k?+?w?/ ?4?-?1?Step?Screen.TwipsPerPixelX
r?=?r1?+?4?*?(r2?-?r1)?*?(j?-?k)?/ ?w
g?=?g1?+?4?(g2?-?g1)?*(g2?-?g1)?(j?-?k)?/?w
b?=?b1?+?4?*?(b2?-?b1)?*(b2?-?b1)?(j?-?k)?/?w
Me.Circle?(Me.ScaleWidth?\?2,?Me.ScaleHeight?\?2),?j,?RGB(r,?g,?b)
Siguiente
Siguiente
Fin?Sub
Privado?SubCommand1_Click()
'Ejemplo de uso:
DrawRing?Me.ScaleHeight? \?2?-?300,?Me.ScaleHeight?\?3?-?300
Fin?Sub
Privado?Form_Load()
Me.AutoRedraw?=?True
Me.DrawWidth?=?2
¿Fin?