draws pixels on screen using Pset method

by Mohan K Gupta (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1^st October 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
dim points

Rate draws pixels on screen using Pset method



End
End Sub

Private Sub Form_Load()
Form1.WindowState = 2
points = 0
Form1.BackColor = vbBlack

End Sub


Private Sub Timer1_Timer()
points = 1
Dim r, g, b
Dim x, y, ctr
If points = 1 Then
For ctr = 1 To 1000
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
x = Rnd * Form1.ScaleWidth
y = Rnd * Form1.ScaleHeight
Form1.PSet (x, y), RGB(r, g, b)
Next
End If

End Sub

Download this snippet Add to My Saved Code

draws pixels on screen using Pset method Comments

No comments have been posted about draws pixels on screen using Pset method. Why not be the first to post a comment about draws pixels on screen using Pset method.

draws pixels on screen using Pset method

draws pixels on screen using Pset method Comments

Post your comment

Difficulty