home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bmpfill / bmpfill.bas next >
Encoding:
BASIC Source File  |  1994-03-28  |  618 b   |  22 lines
  1. Declare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%,
  2. ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%,
  3. ByVal dwRop&) As Integer
  4.  
  5. Sub Form_Paint ()
  6.     Const PIXEL = 3
  7.     Picture1.ScaleMode = PIXEL
  8.     Me.ScaleMode = PIXEL
  9.     X% = 0: Y% = 0
  10.     nWidth% = Picture1.Width
  11.     nHeight% = Picture1.Height
  12.     dwRop& = &HCC0020
  13.     Do While Y% < ScaleHeight
  14.         Do While X% < ScaleWidth
  15.             Suc% = BitBlt(Me.hDC, X%, Y%, nWidth%, nHeight%, Picture1.hDC, 0, 0, dwRop&)
  16.             X% = X% + nWidth%
  17.         Loop
  18.         X% = 0
  19.         Y% = Y% + nHeight%
  20.     Loop
  21. End Sub
  22.