如何把一个小图片平铺到一个窗体上

[思考]

如何把一个小图片平铺到一个窗体上，也就是说使多个同一张小图片充满窗体，就是类似win98桌面的“平铺”功能

[zyl910]

只能这样做
但是可以写个函数将它封装起来

我以前写的（API声明自己加）：

Public Sub FillMap(hDCOut As Long, _
x As Long, y As Long, _
Width As Long, Height As Long, _
hSrcDC As Long, _
SrcX As Long, SrcY As Long, _
SrcWidth As Long, SrcHeight As Long, _
Optional dwRop As RasterOpConstants = vbSrcCopy, _
Optional ByVal StepX As Long = &H80000000, _
Optional ByVal StepY As Long = &H80000000)
Dim I As Long, J As Long
Dim StartX As Long, StartY As Long
Dim PutX As Long, PutY As Long
Dim PutWi As Long, PutHe As Long
Dim TempNum As Long

If StepX = &H80000000 Then StepX = x
If StepY = &H80000000 Then StepY = y
'Debug.Print "Step "; StepX; StepY;

Do While StepX > 0
StepX = StepX - SrcWidth
Loop
Do While StepX <= 0
StepX = StepX + SrcWidth
Loop
StepX = StepX - SrcWidth

Do While StepY > 0
StepY = StepY - SrcHeight
Loop
Do While StepY <= 0
StepY = StepY + SrcHeight
Loop
StepY = StepY - SrcHeight

'Debug.Print StepX; StepY
'Debug.Print SrcWidth

StartX = StepX
Do While StartX < x
StartX = StartX + SrcWidth
Loop
StartX = StartX - SrcWidth

StartY = StepY
Do While StartY < y
StartY = StartY + SrcHeight
Loop
StartY = StartY - SrcHeight

For I = StartY To y + Height - 1 Step SrcHeight
For J = StartX To x + Width - 1 Step SrcWidth
PutWi = SrcWidth
PutHe = SrcHeight

PutX = 0
PutY = 0

If I < y Then
PutY = y - I
PutHe = PutHe - PutY
End If
If I + SrcHeight - 1 > y + Height - 1 Then
PutHe = PutHe + ((y + Height - 1) - (I + SrcHeight - 1))
End If

If J < x Then
PutX = x - J
PutWi = PutWi - PutX
End If
If J + SrcWidth - 1 > x + Width - 1 Then
PutWi = PutWi + ((x + Width - 1) - (J + SrcWidth - 1))
End If

Call BitBlt(hDCOut, _
J + PutX, I + PutY, _
PutWi, PutHe, _
hSrcDC, _
SrcX + PutX, SrcY + PutY, _
dwRop)

'Debug.Print J; I; SrcWidth; SrcHeight; PutX; PutY; PutWi; PutHe

Next J
Next I
'Call BitBlt(hDCOut, 0, 0, SrcWidth, SrcHeight, hSrcDC, 0, 0, vbSrcCopy)

End Sub

[holydiablo]

循环，往上面画啊

[思考]

还有没有简洁的方法