使用VB.NET的五个技巧之窗体嵌套

NET框架组件太大了 比任何以前所写的封装功能的库都要大 这样有好处 因为它大幅削减了建立应用程序所需编写的代码 但是也使我们不可能完全了解该框架组件 但是我们很容易从中找到一些技巧

窗体嵌套

经验丰富的Visual Basic开发者知道多文档界面（MDI）应用程序能够包含子窗体 那些子窗体由MDI父窗体管理 但是如果没有MDI的能力你怎样实现包含嵌套窗体？例如一个MDI子窗体也可能需要包含另一个窗体

有时能够使用用户控件（UserControl）实现这种功能 但是如果你真的需要把一个窗体嵌套进另一个窗体 有多种方法可以实现 窗体衍生自Control类 这意味着它能被放入另一个窗体的控件集合中 使用如下的逻辑

Dim f As New frmEmbed ()Me Controls Add(f)f Show()

但是很不幸 这段代码将会导致一个运行时（runtime）异常（见图 ）

图 试图把一个窗体添加到另一个窗体的控件集合时出现的运行时错误

为了避免这种异常 该窗体的TopLevel属性必须设置为False（见下面的代码）

Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()

图 显示的是使用上面的逻辑实现的一个窗体嵌入另一个窗体 嵌入的窗体有一个标题条（它的颜色是未激活的系统颜色） 因此该嵌入窗体能在容器窗体内四处拖动 在图 中 该窗体从它的开始位置（左上角）拖到了右下角

图 在容器窗体中有一个嵌入的窗体 嵌入的窗体能在容器窗体中拖动

通常在显示嵌入的窗体前先设置它的位置 这只需要简单的设置嵌入窗体的Left和Top属性 嵌入窗体的位置与容器窗体是相对的

与MDI子窗体不同 嵌入窗体能覆盖容器窗体上的控件 图 显示了它们的不同

图 嵌入窗体（左）可以覆盖容器窗体上的控件 MDI子窗体（右）不能覆盖MDI父窗体上的控件

在右边的MDI例子中 没有办法使按钮隐藏在子窗体的后面 但是在左边该按钮被嵌入窗体覆盖了

当窗体第一次被嵌入时 它将显示在容器窗体上的已存在的控件的后面 当它被点击时 它走向前台并停留在那儿 这会打扰用户 但是能通过插入下面的代码防止这种情况发生

f BringToFront（）

嵌入的窗体可以包含其它的嵌入窗体 没有实际的限制 图 显示了一个本身包含嵌入的窗体的嵌入窗体

lishixinzhi/Article/program/net/201311/12398

vb6建立主窗体的子窗体有两种方法：

第一种方法是建立一个MDI窗体，然后把普通的form窗体设置成它的子窗体。

第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。

一、先来看看如何建立MDI窗体的子窗体：

1、启动vb6,新建一个标准EXE工程。

2、在“工程”菜单里选择“添加MDI窗体”，

点击“打开”，添加了一个MDIForm1窗体，

这步也可以工程窗口的窗体图标上右键完成。

3、在“工程”菜单里选择“XXX 属性”，

在d出的窗口里把启动对象设成MDIForm1。

4、在form1的属性窗口里，把MDIChild属性设置为True。

5、在Private Sub MDIForm_Load()过程里添加form1.show。

6、运行程序，看到设置已经成功。

二、使用Windows API建立子窗体：

1、1、启动vb6,新建一个标准EXE工程。

2、在“工程”菜单里选择“添加窗体”，

点击“打开”，添加了一个form2窗体，

这步也可以工程窗口的窗体图标上右键完成。

3、双击form1窗体，在通用里加入以下windows API:

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

5、运行程序，可以看form2已经是form1的子窗体了。

6、完整程序代码如下：

Option Explicit

Private Declare Function SetParent Lib "user32.dll" ( _

ByVal hWndChild As Long, _

ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()

Form2.Show

SetParent Form2.hWnd, Form1.hWnd

Form2.Move 0, 0

End Sub

是窗体运行时候自动生成一个窗体，还是你在编写时候手动加？

如果是已经存在的form2， 你可以在form2 load中 写 me.mdiparent =form1 或者在 form1 中写me.mdichildform = form2

如果是在运行时新建的话，可以这样写

Dim form3 As New Form3

form3.MdiParent = Me

.....

其他属性值

.....

form3.Show()

---