如何调整背景图片的大小

Question

图片不够大，可以把他拉伸吗？还是只有换一张，谢谢

Answer 1

是可以拉伸的
-----------------------------------------
Private Sub form_paint()
'拉伸程序
Dim x1 As Single, y1 As Single
Dim pwidth As Single, pheight As Single
pwidth = Form1.ScaleWidth
pheight = Form1.ScaleHeight
y1 = 100
x1 = 100
DoEvents
Image1.Width = Form1.ScaleWidth
Image1.Height = Form1.ScaleHeight
  Me.PaintPicture Image1.Picture, x1, y1, pwidth, pheight
End Sub

Answer 2

有一点我没说清楚，我用的是MDIForm,没有form_paint事件