如何用代码实现更改MDI窗口的背景图片?

Question

如何用代码实现更改MDI窗口的背景图片,是不是用XXX.PICTURE=LOADPICTURE(.....)相对路径怎么写?
谢谢!

Answer 1

对loadpicture( app.path & "\a.bmp" )

Answer 2

但是在MDIFORM下好象没反应啊!怎么做呢?谢谢!

Answer 3

JennyVenus() 说的对的
如果出错，可能是你的bmp文件不在位置上
MdiFormMain.picture=loadpicture(app.path & "\a.bmp")

Answer 4

不是的啊!我的是在PIC文件夹里面的JPG文件
private sub button_click(...)
MdiFormMain.picture=loadpicture(app.path & "\pic\1.jpg")
end sub
点了后什么反映也没有!怎么办?!

Answer 5

请问如何解决我的问题啊!!谢谢!
用FRESH属性吗?

Answer 6

没有什么好办法，我有一个变通的主意，在窗体上设一个picturebox控件，alignTop
然后试试一下代码：
Private Sub MDIForm_Load()
   i = 0
   Picture1.Height = Me.Height
End SubPrivate Sub Timer1_Timer()
   If i = 0 Then
      i = 1
      
      Me.Picture = LoadPicture(App.Path & "\a.bmp")
      Picture1.Visible = True
      Picture1.Visible = False
   Else
      i = 0
      Me.Picture = LoadPicture(App.Path & "\b.bmp")
      Picture1.Visible = True
      Picture1.Visible = False
   End If
End Sub
当刷新足够快的时候，还能凑合