Filters the graphics in your picture box into grayscaled, raw pixel

by markwong (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 22^nd January 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate 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

Download this snippet Add to My Saved Code

Filters the graphics in your picture box into grayscaled, raw pixel Comments

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.

Filters the graphics in your picture box into grayscaled, raw pixel

Filters the graphics in your picture box into grayscaled, raw pixel Comments

Post your comment

Difficulty