Very Cool Graphics With Lines using only 11 lines of code!!

Posted: 2002-06-01
By: ArchiveBot
Viewed: 61

Filed Under:

Visual Basic 6

No attachments for this post

This code draws a nice, very cool gradient field with a nice sidebar using line(see screenshot) Please rate it! (Thnx!).

Original Author: ReXz

Inputs

The only thing you need to do is to set the scalemode on the form to 'Pixel' and the backcolor to black and insert a timer called 'timer1' with interval : 1

Assumptions

You can set the color to draw by setting the RGB value to rgb(0,red,0) or rgb(red,0,0) etc.
You can also change the graphic resolution by changing the 'lY1 = lY1' command.

API Declarations

Dim lY1 As Integer
Dim Red As Integer

Code

Private Sub Form_Load()
Red = 0
End Sub
Private Sub Timer1_Timer()
Red = Red + 1
If Red < 255 Then
Me.ForeColor = RGB(0, Red, 0)
ElseIf Red > 254 Then
End If
lY1 = lY1 + 3
Me.Line (0, lY1)-(Me.ScaleWidth, lY1)
Me.Line (ly1, 0)-(Me.ScaleHeight, lY1)
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.