Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de VB: use el método Línea para dibujar múltiples rectángulos pequeños de izquierda a derecha en el formulario mientras cambia su color de relleno de verde a blanco para simular.

Problema de VB: use el método Línea para dibujar múltiples rectángulos pequeños de izquierda a derecha en el formulario mientras cambia su color de relleno de verde a blanco para simular.

Private?Sub?Form_Resize()

Me.Cls

Dim?i?As?Integer

Const?Steps?=?30

Dim?w?As?Single：?w?=?Me.ScaleWidth?/?Steps

Dim?c?As?Single：?c?=?255?/?Steps

Para?i?=?1?A?Pasos

Me.Line?(i?*?w?-??w,?0)-(i?*?w,? w),?RGB(c?*?i,?255,?c?*?i),?BF

'--------- -----------------------

'Este párrafo puede comenzar con cualquier color inicial

'Me.Cls

'Dim?i?As?Integer

'Const?Steps?=?30

'Dim?w?As?Single：?w?= ?Me.ScaleWidth?/?Steps

'Const?gStart?=?200,?bStart?=?40,?rStart?=?130?'Iniciar componente de color

' Dim?gStep?As?Single,?rStep?As?Single,?bStep?As?Single

'gStep?=?(255?-?gStart)?/?Número de pasos

'bPaso?=?(255?-?bInicio)?/? Número de pasos

'rStep?=? (255?-?rInicio)?/?Pasos

'For?i?=?1?A?Pasos

'Me.Line?(i?*?w?- ?w, ?0)-(i?*?w, ?w), ?RGB(rInicio? ?rPaso?*?i, ?gInicio? ?gPaso?*?i, ?bInicio? ?bPaso?*?i) ,?BF

'Siguiente

Fin?