MDI窗体控件问题.

Question

我创建了一个MDI主窗体,然后建了一系列的子窗体,我希望子窗体在程序运行的时候,他的位置可以左右居中,但上面顶边.我在窗体布局中定位了但无效,我用startupposition提示我无效属性值.我应该如何解决这个问题??

Answer 1

Private Sub Form_Load()
    Me.Move (MDIForm1.Width - Me.Width) / 2, 0
End Sub

Answer 2

在form1
Private Sub Form_Resize()
  On Error Resume Next
  Form1.Top = 10
  Form1.Left = (MDIForm1.Width - Form1.Width) / 2
End Sub
在form2
Private Sub Form_Resize()
   On Error Resume Next
   Form2.Top = 10
   Form2.Left = (MDIForm1.Width - Form2.Width) / 2
End Sub
在MDI窗体
Private Sub MDIForm_Resize()
  On Error Resume Next
  Form1.Left = (MDIForm1.Width - Form1.Width) / 2
  Form2.Left = (MDIForm1.Width - Form2.Width) / 2
End Sub