VB6 设置子窗口

VB6 设置子窗口

VB6建立主窗体的子窗体有两种方法：
第一种方法是建立一个MDI窗体，然后把普通的Form窗体设置成它的子窗体。
第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。

方法1操作

1.首先打开VB6，新建一个“标准 EXE”工程。

2.新建一个MDI窗体。

3.设置主窗体的"MDIChild"属性为True

可以看到，主窗体的图标已经变成了子窗体的图标

按F5运行，可以看到，MDIForm1里出现了Form1的窗口，这就说明子窗口创建成功。

方法2操作

1.首先打开VB6，新建一个“标准 EXE”工程。

2.新建一个窗体

3.在Form1的代码框里输入以下代码

Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

注：要写在"(通用)-(声明)"过程里

4.在Form1的Private Sub Form_Load()过程里加入以下代码

Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0

运行一下，可以看到Form2已经是Form1的子窗体了。