建立MDI窗体和MDI子窗体
'为指定窗口设置一个新父窗口
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
Dim a As New Form1
a.Show
SetParent a.hWnd, Me.hWnd
End Sub
哈哈,超好玩的
你说的就是MDI窗体。
窗体有属性 模块和非模块2中
你用这样的语句
form1.show 1
就可以实现 显示form1
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024