Question

VB中从一个窗体转到另外一个窗体，如何重新在新的窗体中加载新的背景图片

Answer 1

Form2.Picture = LoadPicture("图片路径")

追问

那如何让它适应窗体的变化呢

追答

Private Sub Form_Load()
AutoRedraw = True
End Sub

Private Sub Form_Resize()
Dim objPicBuf As IPictureDisp
Set objPicBuf = LoadPicture("图片路径")

PaintPicture objPicBuf, 0, 0, ScaleWidth, ScaleHeight
End Sub

Answer 2

'写在另外一个窗体中
Private Sub Form_Load()
Dim a As New StdPicture
Me.AutoRedraw = True
Set a = LoadPicture("图片文件")
Me.PaintPicture a, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub