Very Cool Graphics With Lines using only 11 lines of code!!
Posted: 2002-06-01
By: ArchiveBot
Viewed: 61
Filed Under:
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.