by markwong (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 22nd January 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Filters the graphics in your picture box into grayscaled, raw pixel
'with the same size, one as the source picture,
'another as the destination picture.
Private Sub Filterize()
picboxDestination.Cls
For i = 0 To picboxSource.Width Step 20
For j = 0 To picboxSource.Height Step 20
If frmBitmap.picCopy.Point(i, j) <= 10264220 Then
' u can edit the value of 10264220 to the color filter that u want
picboxDestination.DrawWidth = 5
picboxDestination.PSet (i, j)
End If
Next j
Next i
End Sub
No comments have been posted about Filters the graphics in your picture box into grayscaled, raw pixel. Why not be the first to post a comment about Filters the graphics in your picture box into grayscaled, raw pixel.