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

----所需物件： 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中的图片

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有