Add a horizontal gradient to a form.

by Anonymous (267 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 13^th March 1999
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Add a horizontal gradient to a form.




    If frm.WindowState = vbMinimized Then Exit Sub
    frm.BackColor = RGB(re, ge, be)
    If smooth = True Then
        frm.DrawStyle = 6
    Else
        frm.DrawStyle = 0
    End If
    If frm.ScaleWidth <> 255 Then
        frm.ScaleWidth = 255
    End If
    If frm.ScaleHeight <> 255 Then
        frm.ScaleHeight = 255
    End If
    frm.DrawWidth = 5
    frm.Refresh
    ri = (rs - re) / 255
    gi = (gs - ge) / 255
    bi = (bs - be) / 255
    rc = rs: bc = bs: gc = gs
    For X = 0 To 255
        frm.Line (X, 0)-(X, frm.ScaleHeight), RGB(rc, gc, bc)
        rc = rc - ri
        gc = gc - gi
        bc = bc - bi
    Next X
End Sub

'Sample for using this routine
Private Sub Form_Resize()
    HorizGradient Form1, 111, 111, 222, 222, 255, 255, True
End Sub

Download this snippet Add to My Saved Code

Add a horizontal gradient to a form. Comments

No comments have been posted about Add a horizontal gradient to a form.. Why not be the first to post a comment about Add a horizontal gradient to a form..

Add a horizontal gradient to a form.

Add a horizontal gradient to a form. Comments

Post your comment

Difficulty