如何让一个Form 出现在另一个非MDIForm 的Form 中

如何让一个 Form 出现在另一个非 MDIForm 的 Form 中？

 

假设要将 Form2 放在 Form1 中，请在公共模块中声明：

 

Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

 

在 Form2 中的 Form_Load 中加入 SetParent(Me.hWnd, Form1.hWnd) 即可。

但有一点要注意的是，在 Unload Form1 之前一定要先 Unload Form2。

 

 

'Form1的代码:

Private Sub Command1_Click()
    Form2.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Unload Form2
End Sub

'Form2的代码:

Private Sub Form_Load()
    Dim i
    i = SetParent(Me.hWnd, Form1.hWnd)
End Sub