如何控制MDI子窗体的初始化大小？

[WizardBear]

我定义的子窗体大小不管用啊？

每次显示出来都是一样大的

[czwwh]

Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000

Private Sub MDIForm_Load()
Dim CurStyle As Long
Dim NewStyle As Long

'固定单边框
CurStyle = GetWindowLong(MDIfrmMain.hwnd, GWL_STYLE)
NewStyle = SetWindowLong(MDIfrmMain.hwnd, GWL_STYLE, CurStyle And Not (WS_THICKFRAME))

End Sub

[WizardBear]

粘到我的mdi主窗体里了，

不好用，提示：“Only one MDI Form allowed
”

什么意思？

[IOLIR]

子窗体的大小是随主窗体大小改变的

[bob008]

MDI有这么一个问题，你可以把子窗体的边框设为1，出现位置设置为所有者中心
然后在子窗口的LOAD中加入对大小的控制，必须注意的是子窗体的大小不得大于父窗口

[danielinbiti]

在formload里面重新设定不就行了

[WizardBear]

bob008(冻冬) ：出现位置设置为所有者中心，在设计时不让设置啊，

还有，我想让他初始化时候显示固定大小，

以后还允许客户改变子窗体大小，

实现不了吗？

[strongfisher]

gz

[madawei]

固定后还能允许用户更改，好象是不行哦

[dingyanwei]

'居中
Public Function CenterForm(FormNameMMM1 As Form, FormNameMMM2 As Form)
FormNameMMM1.Move (FormNameMMM2.Width - FormNameMMM1.Width) \ 2, _
(FormNameMMM2.Height - FormNameMMM1.Height) \ 2
End Function

form_load
centerform DdiChildform MainMdi