Question

VB里，，在窗体属性picture里设了一个图片，但是图片太大了，能不能让这个图片平铺窗体，并随着

VB里，，在窗体属性picture里设了一个图片，但是图片太大了，能不能让这个图片平铺窗体，并随着窗体的大小而改变大小呢？

Answer 1

可以的，要设置它的Stretch属性为true

Answer 2

Option Explicit
Dim img As IPictureDisp
Private Sub Form_Load()
    Set img = LoadPicture("F:\1.jpg")
    Me.AutoRedraw = True
    Call Form_Resize
End Sub
Private Sub Form_Resize()
    Me.PaintPicture img, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub