怎样将普通窗体变为MDIform的父form?

Question

我想把一个主form变为MDIform的父form,
其他的都为MDIchild.
怎么实现呢?
me.mdichild=true.可以设置子form.但父form怎么设置呢?

Answer 1

Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate lngOldParent As LongPrivate Sub Command1_Click() lngOldParent = SetParent(MDIForm1.hWnd, Me.hWnd)MDIForm1.ShowEnd SubPrivate Sub Form_Unload(Cancel As Integer)
 
Dim frm As FormFor Each frm In Forms    Unload frm
Next
 
End Sub

Answer 2

mdichild这个属性好像只能是在设计时更改,而不能在运行时更改的.