21.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 28 行

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


 ----所需物件： 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