急救！怎么把一个普通窗体设置成另外一个窗体的子窗体？？？

Question

例如form1 form2这两个例子

Answer 1

    是指的MDI子窗体吗？只要改该窗体的midchild属性为true就可以了。

Answer 2

    写错了，是mdichild=true

Answer 3

'/为窗体指定一个新父
'/自身的HWND,新父的HWND.
Private Declare Function SetParent Lib "user32" (ByVal HwndChild As Long, ByVal HWndNewParent As Long) As Long

Answer 4

SetParent 就是将一个普通的窗体变成别一个普通窗体的子.

Answer 5

例如 form1 和form2 
怎么写？

Answer 6

用楼上的方法可以。
Private Sub Command1_Click()    Dim a As Long, b As Long
    Dim frm As New Form2
    a = Me.hWnd
    b = frm.hWnd
    a = SetParent(b, a)
    frm.ShowEnd Sub

Answer 7

为什么出错啊 说 “SetParent” 这个子程序或函数未定义

Answer 8

SetParent是api函数，你需要添加它的声明：）