在picturebox插入图片，如果图片太小，如何设置图片平铺

楼主更改Picturebox 的SizeMode试试

zoom 图片的长宽比例会保持不变

atuosize Picturebox的大小会随着图片的大小而更改

ScretchImage 强制使图片的大小跟picturebox的大小相同，图片的长宽比例会发生改变

CenterImage 图片大小不变，图片在picturebox中居中显示，如果图片大小超过picturebox大小，图片会显示不全

将 Picturebox 的 SizeMode 设为atuosize或ScretchImage，但不知这样出的效果能否满足楼主

添加两个Picture控件，先载入Picture2，然后根据Picture1的大小自动调整显示。

代码如下：

Private Sub Form_Load()

    Picture1.AutoRedraw = True '重绘图片

    Picture1.AutoSize = False   '图片框大小不变

    Picture1.Visible = True

    'Picture1.BackColor = RGB(255, 255, 255) '设置图片框背景颜色

    Picture2.AutoSize = True 'Picture2自动缩放以适应图片，不可见

    Picture2.Visible = False

End Sub

Private Sub Command1_Click()

        Picture2.Picture = LoadPicture("C:\2.jpg")          '图片加载到Pic2

        If Picture2.ScaleWidth > Picture2.ScaleHeight Then

            imageWidth = Picture1.ScaleWidth

            imageHeight = Picture1.ScaleHeight * Picture2.ScaleHeight / Picture2.ScaleWidth

        Else

            imageWidth = Picture1.ScaleWidth * Picture2.ScaleWidth / Picture2.ScaleHeight

            imageHeight = Picture1.ScaleHeight

        End If

        Picture1.Cls

        Picture1.PaintPicture Picture2, (Picture1.ScaleWidth - imageWidth) / 2, (Picture1.ScaleHeight - imageHeight) / 2, imageWidth, imageHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight

End Sub

效果(由于图片小，于是调整后上下空出来了)：

---