Use this as a fast way to paint the background of any form witha really cool “fading” color (lighter at top to darkerat bottom). To specify base color, pass True/False for Red, Green,and Blue. Use combinations to fade blue, red, green, yellow, purple,gray, and so on:
Sub FadeForm (frm As Form, Red%, _ Green%, Blue%) Dim SaveScale%, SaveStyle%, _ SaveRedraw% Dim i&, j&, x&, y&, pixels% ' Save current settings. SaveScale = frm.ScaleMode SaveStyle = frm.DrawStyle SaveRedraw = frm.AutoRedraw ' Paint screen. frm.ScaleMode = 3 pixels = Screen.Height / _ Screen.TwipsPerPixelY x = pixels / 64# + .5 frm.DrawStyle = 5 frm.AutoRedraw = True For j = 0 To pixels Step x y = 240 - 245 * j pixels 'can tweak this to preference. If y < 0 Then y = 0 'just in case. frm.Line (-2, j - 2)- _ (Screen.Width + 2, j + _ x + 3), RGB(-Red * y, -Green _ * y, -Blue * y), BF Next j ' Reset to previous settings. frm.ScaleMode = SaveScale frm.DrawStyle = SaveStyle frm.AutoRedraw = SaveRedrawEnd Sub
For blue fading, just put this in the Form_Load procedure:
FadeForm Me, False, False, True
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
