Draw Gradients [CODE INSIDE]

[Madboy]

Simple to use, short in code and doesnt take much memory when loading. Set your form to AutoRedraw True, then add this code in the Declarations:

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
                  Private Type POINTAPI
                         x As Long
                         y As Long
                  End Type

Then add this code:

Public Function gradient(obj As Object, col1, col2)
Dim p As POINTAPI
 
                  oldsc = obj.ScaleMode
                  obj.ScaleMode = 3
                  r = (col1 And &HFF&)
                  g = (col1 And &HFF00&) / &H100&
                  b = (col1 And &HFF0000) / &H10000
 
                  r2 = (col2 And &HFF&)
                  g2 = (col2 And &HFF00&) / &H100&
                  b2 = (col2 And &HFF0000) / &H10000
                  sw = obj.ScaleWidth
                  dr = (r2 - r) / sw
                  dg = (g2 - g) / sw
                  db = (b2 - b) / sw
                  obj.Cls
                  For i = 1 To sw
                  r = r + dr
                  g = g + dg
                  b = b + db
                  y = obj.ScaleHeight
                  obj.ForeColor = RGB(CInt(r), CInt(g), CInt(b))
                  MoveToEx Form1.hdc, i, 0, p
                  LineTo obj.hdc, i, y
 
                  Next i
 
                  obj.ScaleMode = oldsc
                  End Function

And finally add this:

Private Sub Form_Resize()
gradient Form1, Color1, Color2
End Sub

Enjoy;)

[Madboy]

You can also make your own custom colored gradients, make a command button, and add a Dialog1 and Dialog2 control then.

Private Sub Command1_Click()
Dialog1.ShowColor
Dialog2.ShowColor
gradient Me, Dialog1.Color, Dialog2.Color
End Sub

Im away from vb so this may be wrong. But the idea is there!

[The Bad One]

There is actually an API function that draws gradient rectangles; I found this out when making the bsGradientLabel control.

http://www.mentalis.org/apilist/GradientFillRect.shtml

[Madboy]

Yeah, that site has tons of API codes

[MartinLiss]

MadBoy, I edited your post and checked the Disable Smilies in This Post button so that the &) characters don't get translated to

[Madboy]

Cheers marty, i forgot you could do that.

[Madboy]

Hee hee

The code doesnt work anymore, so im just going to try and fix it up now...unless my messed up computer has messed up VB

EDIT

This is awful to use however with Option Explicit, you'll have to dim a ton of variables Is there no such thing as Option Implicit so you can make that paticular routine, well.....Implicit?

[manavo11]

Originally posted by Madboy
you'll have to dim a ton of variables

You should do that though...