home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch12 / image1 / image.bas next >
Encoding:
BASIC Source File  |  1996-03-07  |  465 b   |  11 lines
  1. Attribute VB_Name = "ImgMod"
  2. Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  3. Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
  4.  
  5. Public ImagePixels(0 To 2, 0 To 800, 0 To 800) As Integer
  6. Public X As Integer, Y As Integer
  7. Public FilterNorm, FilterBias As Integer
  8. Public CustomFilter(4, 4) As Single
  9. Public FilterCancel As Boolean
  10.  
  11.