怎样使子窗体在父窗体的屏幕中心显示 并且是设计时的大小

Question

怎样使子窗体在父窗体的屏幕中心显示 并且是设计时的大小

Answer 1

1.设置窗体的StartUpPosition 属性 为1- 所有者中心
2.设置窗体的WindowState 属性为 0- Normal

Answer 2

如果是MDI子窗体的话,1.定义窗体级变量
Dim blnResize As Boolean     '表示是否控制过窗体大小2.
在子窗体的Resize 事件中增加下面代码
Private Sub Form_Resize()
        
    If Not blnResize Then
        blnResize = True
        Me.WindowState = 0
        Me.Move (MDIForm1.ScaleWidth - Me.Width) / 2, (MDIForm1.ScaleHeight - Me.Height) / 2
    End If
    
End Sub

Answer 3

将窗体设置成非Sizable的，窗体大小在show出来时，就是你设计时的大小，再用代码调整一下其位置即可。