Gradient's**(Resolved)**

[New to VB 6]

OK, I've searched on this forum and PSC and I can't find the code to do this.

I know it can be done, but I just don't know how...

How do you make a label have a 3 way gradient?

e.g. start as one color go to another color and back again (RED, BLUE, RED) for instance.

I have seen it done with 2, 4, 6, and even made to look like a color chooser box with all the color in the rainbow.

I just want to know how to make it go from one to another and back. I don't even care what colors are used.

I've included a pic of sorta what I need it to look like

[New to VB 6]

A little help please?

[DiGiTaIErRoR]

Well, a gradient is merely iterating through colors.

'color iteration = (dest color - start color) / length
ri = (r2 - r1) / length
gi = (g2 - g1) / length
bi = (b2 - b1) / length
For x = 1 to length
 'dest color = start color + color iter
 dr = r1 + ri
 dg = g1 + gi
 db = b1 + bi
Next

[MarkT]

Here is a quick sample.

Private Sub Command1_Click()
Dim r As Integer
Dim g As Integer
Dim b As Integer
Dim intCenter As Integer
Dim intWidth As Integer
Dim i As Integer
 
    intCenter = Picture1.ScaleWidth / 2
    
    For i = 0 To 255
        ' Draw the left side
        r = 255 - i
        g = 0
        b = i
        intWidth = ((255 - i) / 255) * intCenter
        Picture1.Line (0, 0)-(intWidth, Picture1.ScaleHeight), RGB(r, g, b), BF
        
        ' Draw the Right side
        r = i
        g = 0
        b = 255 - i
        intWidth = (((255 - i) / 255) * intCenter) + intCenter
        Picture1.Line (intCenter, 0)-(intWidth, Picture1.ScaleHeight), RGB(r, g, b), BF
    Next i
    
End Sub

[New to VB 6]

How do I change colors?

[ZaidGS]

just another piece of code, hope you'll like it

it doesnt produce exactly what you want,
but guess you'll find it interesting.

Option Explicit
 
Private Sub Form_Load()
Dim x As Integer, i As Integer, j As Integer
 
    'all you need is:
    '-make a new form
    '-put a label in it
    'set index property of the label to 0
    
    'here initializing some values
    Label1(0).Height = 255
    Label1(0).Width = 255
    Label1(0).Caption = ""
    x = Label1(0).Width
 
    'this loads 9*9 label1(x) array into positions
        Label1(i).Left = x
        Label1(i).Top = x
    For i = 1 To 80
        Load Label1(i)
        Label1(i).Left = (i Mod 9 + 1) * x
        Label1(i).Top = (i \ 9 + 1) * x
        Label1(i).Visible = True
    Next i
    
    'this is just a matter of mathematical formulae
    'customize the color pattern with it
    For i = 0 To 256 Step 32
    For j = 0 To 256 Step 32
        Label1(i / 32 + j * 9 / 32).BackColor = RGB(i, j, 0)
    Next j
    Next i
    
End Sub

[New to VB 6]

MarkT came the closest to what I'm looking for.

but how do I change the colors?

192,0,192
255,255,255
192,0,192

[DiGiTaIErRoR]

You must mean something like this:

[ZaidGS]

play with these values to get what u want
(from MarkT's code)

r = 255 - i
        g = 0
        b = i

try:

r = 255 - i
        g = i
        b = 0

dont forget to change the right hand side to be a reflection
of left side.

[New to VB 6]

Originally posted by DiGiTaIErRoR
You must mean something like this:

yes but on a picbox

[DiGiTaIErRoR]

So you'll have to change:

Form1.ForeColor
and
Form1.Line

to:

Picture1.ForeColor
and
Picture1.Line

You could also add another param to the Gradient sub to pass a control to it.

[New to VB 6]

could you please post the croped of code

I assume that it goes something like

,ByVal Sg As Long, ByVal Sb As Long, ByVal Fr As Long, ByVal Fg As Long, ByVal Fb As Long, ByVal x As Single)

[DiGiTaIErRoR]

,ByVal Sg As Long, ByVal Sb As Long, ByVal Fr As Long, ByVal Fg As Long, ByVal Fb As Long)