在mdi父窗口可以增加背景吗.txt

VB技巧问答10000例 VB技巧问答10000例

在 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的 背 景 。 
<END>