NJ » 27.06.2003 (Пт) 6:16
Используй эту функцию:
Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Где:
hdc - приёмный контекст устройства.
X, Y - логические координаты левого верхнего угла приёмного прямоугольника.
nWidth, nHeight - ширина и высота приёмного устройства в логических координатах.
hSrcDC - исходный контекст устройства. Если источник не задействован в растровой операции, параметр должен быть равен нулю.
xSrc, ySrc - координаты верхнего левого угла исходного прямоугольника в исходном DC. Задаются в логических координатах исходного DC.
nSrcWidth, nSrcHeight - ширина и высота копируемого изображения в логических единицах (в исходном DC). Если знак какого-либо из параметров не совпадает со знаком соответствующего параметра приёмника, происходит зеркальное отражение растра по соответствующей оси.
dwRop - растровая операция, используемая в процессе отображения. Если в растровой операции задействована кисть, то используется кисть, выбранная в приёмном контексте устройства.
Список растровых операций:
BLACKNESS=&H42
DSTINVERT=&H550009
MERGECOPY=&HC000CA
MERGEPAINT=&HBB0226
NOTSRCCOPY=&H3300088
NOTSRCERASE=&H1100A6
PATCOPY=&HF00021
PATINVERT=&H5A0049
PATPAINT=&HFB0A09
SRCAND=&H8800C6
SRCCOPY=&HCC0020
SRCERASE=&H440328
SRCINVERT=&H660046
SRCPAINT=&HEE0086
WHITENESS=&HFF0062
-=*=-
Трудно быть хорошим.