Option Explicit
Dim i As Integer, j As Integer
Private Sub fullpic()
For j = 0 To Me.Height Step Pic1.ScaleHeight
For i = 0 To Me.Width Step Pic1.ScaleWidth
Me.PaintPicture Pic1.Picture, i, j
Next i
Next j
End Sub
Private Sub form_paint()
Call fullpic
End Sub
当最大化图片的时候报错,实时错误6,溢出,因为Dim i As Integer,图片宽度已经超出整型范围,所以换成long之后程序运行出来了,但是还有个问题没有解决,图片框和form不等宽的时候,实现平铺效果时上面还有一张原始图片。