将图片「非重叠显示」填满整个表格视窗

----所需物件： PictureBox 一个。

----程式码（一）：tile.bas
Declare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, _
ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, _
ByVal dwRop&) As Integer

----程式码（二）：
Sub Form_Paint ()
Const PIXEL = 3
Picture1.ScaleMode = PIXEL
Me.ScaleMode = PIXEL
X% = 0: Y% = 0
nWidth% = Picture1.Width
nHeight% = Picture1.Height
dwRop& = &HCC0020
Do While Y% < ScaleHeight
Do While X% < ScaleWidth
Suc% = BitBlt(Me.hDC, X%, Y%, nWidth%, nHeight%, Picture1.hDC, 0, 0, dwRop&)
X% = X% nWidth%
Loop
X% = 0
Y% = Y% nHeight%
Loop
End Sub

上一篇： 真彩色图像变为256色灰度
下一篇： 切割一个Container中的图片

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!