怎么才能使MDI窗口背景图片撑满整个背景!而且随窗口的变化一直不变一直撑满!
谢谢!

解决方案 »

  1.   

    给我Email,我给你一个例子。[email protected]
      

  2.   

    '用一个MDI父窗体和一个子窗体
    '父窗体代码
    Private Sub MDIForm_Load()
        Load Form1
        Form1.Show
    End SubPrivate Sub MDIForm_Resize()
        Form1.Width = Me.ScaleWidth
        Form1.Height = Me.ScaleHeight
    End Sub
    '子窗体代码
    Private Sub Form_Paint()
        Me.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
    End SubPrivate Sub Form_Resize()
        Me.Refresh
    End Sub
      

  3.   

    Private Sub MDIForm_Load()
        FrmMain.Picture1.Picture = LoadPicture(App.Path & "\jhs.jpg")
        Picture1.PaintPicture Picture1.Picture,0,0,frmMain.Width,FrmMain.Height   
        Picture1.AutoRedraw = True
        
    End Sub
    Private Sub MDIForm_Resize()
        Picture1.PaintPicture Picture1.Picture, 0, 0, FrmMain.Width, FrmMain.Height  
        Picture1.AutoRedraw = True
    End Sub
      

  4.   

    Rick110AAA(海牛猪猪 And HerosⅢ之比蒙),也给我一份吧.谢谢.up!
    [email protected]
      

  5.   

    到是也有一个办法,在WORD里将图粘过来.不过图象质量就有些差了.
      

  6.   

    上面的两个例子根本不行啊.Rick110AAA(海牛猪猪 And HerosⅢ之比蒙) ,也发给我一份吧.这个问题我想很久了.