Private Declare Function StretchBlt Lib "gdi32" (ByVal sdfhdc 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
实现图片平铺的代码(改改就是缩放了):
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long
Public Function FormBlt(Frm As Form, Pic As PictureBox)
Dim i As Long, j As Long
Frm.ScaleMode = 3
Frm.AutoRedraw = True
Pic.AutoRedraw = True
Pic.ScaleMode = 3
Pic.AutoSize = True
For i = 0 To Frm.ScaleWidth Step Pic.ScaleWidth
For j = 0 To Frm.ScaleHeight Step Pic.ScaleHeight
BitBlt Frm.hdc, i, j, Pic.ScaleWidth, Pic.ScaleHeight, Pic.hdc, 0, 0, vbSrcCopy
Next j
Next i
Frm.Refresh
End Function
'原创,直接调用就行
--------------------------------------------------------------------
Made by Thirdapple's Studio(http://3rdapple.51.net/)