MDIchild 设为false时,StartUpPosition可设为所有者中心,或屏幕中心
MDIchild 设为true时,就不行,报无效属性值。
如何使MDI子窗体能够显示在MDI的中心
谢谢

解决方案 »

  1.   

    Private Sub Form_Load()
        Me.Move (mdifrm.Width - Me.Width) / 2, (mdifrm.Height - Me.Height)
    End Sub
      

  2.   

    '自定义一个函数
    Public Sub showme(frm As Form)
    On Error Resume Next
    frm.Show
    frm.Move mdimain.width / 2 - frm.width / 2, mdimain.Height / 2 - frm.Height / 2
    End Sub
    '然后在代码中调用
    showme Form1
      

  3.   

    Private Sub Form_Load()
        Me.Move (mdifrm.Width - Me.Width) \2, (mdifrm.Height - Me.Height)\2
    End Sub