Testing...

[Fox]

I'm testing my new tool for vBulletin which formats your code as shown below :) :


Private Sub Test(A As string)
Dim b As Long

For b=0 To a
'code here
Line (0,a)-(0,b),255,BF
Next
End Sub



(will post a link soon)

[Fox]

Sorry but I need this to test ...


Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" ( _
ByVal hDestDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long

Seams like this is a good idea, maybe you should get together with the others and merge this onto one program.

[Fox]

The others?

Originally posted by Fox
The others?

oh if you saw Parksie and Active were working on a program to do colour gradients (although seperate)

[Fox]

Aaah :) That's why everyone has rainbow text in the signature now ;)

well my program is especially for the [code] parts.. but maybe we'll put something together later.. :D

[parksie]

When I've finished putting my code together mine will do:
Customisable multi-point gradients (like photoshop)
Wrapping (as in going through the gradient more than once in the same text)
Choose whether you want it through all text, or by lines.

Show-off time:
parksie
parksie
parksie
parksie

[Fox]

Ah nice :)

btw: vBulletin Tool is out now, click here (http://forums.vb-world.net/showthread.php?s=&threadid=54291) to download.

[parksie]

Ah yes....I downloaded that earlier :)
Very nice!

[Active]

Test


Dim X As String
Dim Y As String
Dim I_Die As Boolean
Dim I_Live As Boolean

I_Live = True

If X <> Y Then
Do
Loop Until I_Die
Else
Do While I_Live
Loop
End If

[Active]

It Works...

Great Job Fox

[Fox]

Thanks :)