by OverFlow (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 26th June 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent Blends together perfectly
VBcoders
'I totaly let you use any and all of this source
'You can edit however you like
'You dont evin need to credit me for it
'Made by OverFlow > [email protected]
Public Function DoGradent(GHeight As Integer, GWidth As Integer)
'GHeight and GWidth are your form's width and height
GWidth = (GWidth / 68)
Dim Left, Finish, c, start, a As Integer
start = (1.5 * GWidth)
For a = 1 To GWidth
Load Shape1(a)
Shape1(a).width = 135
Shape1(a).Height = GHeight
Shape1(a).Left = c
'Here is the tricky part
'to get the color you want you half to mess with
'the start and finish variables
'start is the starting color
'for a red green or blue only put start once
'at the color you want it to start at
'if you want other colors then you mix by
'putting 2 start variables
'just play around with it youl get it
Shape1(a).BackColor = RGB(0, Finish, start)
Shape1(a).Refresh
Shape1(a).Visible = True
Shape1(a).Top = 0
Shape1(a).BackStyle = 1
Shape1(a).BorderStyle = 0
Finish = Finish + 1.5
start = start - 1.5
c = c + (135 / 2)
Next a
End Function
No comments have been posted about Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent . Why not be the first to post a comment about Better way to make a gradent. no api's and LOOKS SOLID that's right no lines of color this gradent .
