那位大哥给我发一份mdi窗体下的背景制作程序,到货后马上给分!

Question

对不起,忘了E_mail:[email protected]

Answer 1

Me.Picture = LoadPicture(App.Path & "\bmp\main.jpg") 

Answer 2

方法2
在 Windows中 标 准 的 做 法 应 该 是 处 理 MDI父 窗 口 的 WM_ERASEBKGND， 但 这 对 VB来 说 太 麻 烦 了 。 一 个 比 较 简 单 的 办 法 是 先 建 立 一 个 Form， 设 置 MDIChild为 True， Border为 0（ 无 ） 。 然 后 ， 在 Form中 加 入 如 下 代 码 ： 
    Private Sub Form_Activate() 
     Me.ZOrder 1 
    End Sub 
    确 保 该 Form出 现 在 所 有 窗 口 的 最 下 面 。 
    在 MDIForm的 Resize事 件 中 调 整 Form的 大 小 ， 以 保 证 它 和 MDIForm的 大 小 相 适 应 。 
    Private Sub MDIForm_Resize() 
     If MDIMenu.WindowState <> 1 Then 
     FrmCntnr.Height = MDIMenu.ScaleHeight 
     FrmCntnr.Width = MDIMenu.ScaleWidth 
     End If 
    End Sub 
    由 于 你 可 以 在 普 通 的 Form中 设 置 背 景 ， 所 以 你 可 以 把 这 个 作 为 背 景 的 Form当 作 MDIForm的 背 景 。 
    另 一 个 办 法 可 以 参 考 例 子 MDI_Background_Demo.zip， 这 个 例 子 是 从 http://www.mvps.org/vbvision/grouped_demos.htm下 载 的 。

Answer 3

请教老妖<我正是用的是这个办法,但我发现最小化后,背景窗体缩小,经过调试,就是Private Sub MDIForm_Resize() 
    If MDIMenu.WindowState <> 1 Then 
    FrmCntnr.Height = MDIMenu.ScaleHeight 
    FrmCntnr.Width = MDIMenu.ScaleWidth 
    End If 
    End Sud
出的问题,我不知如何解决,望告知!在线等待!