使用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

不需要了

假如判断条件a=b为真，执行SubA，否则执行SubB，用下面的代码格式可以省略End

If,Else不用也可以。

If

a=b

Then

SubA

Else

SubB

写在一行可以省略End

If。

如果a=b你要同时执行SubA和SubB的话，语句间用半角的:隔开就可以了

If

a=b

then

SubA:SubB

Else

SubB

用:符号可以在一行代码中写n行代码。

例如

a=b:a=c:a=d

等价于

a=b

a=c

a=d

这样也是不会出错的。

你上面所提到的

if

keyascii=13

then

text2.setfocus

等价于

if

keyascii=13

then

text2.setfocus

End

If

如果分开两行写必须有End

If

因为编译器需要知道你在什么时候结束If判断，判断条件和处理结果写在一行编译器可以知道你什么时候结束If语句，如果写在两行，编译器就无法识别了，所以必须添加End

If。

VB算出来是176，至于怎么算，写到程序里一运行就知道了。

刚刚算了算，确实是176：

这样想：

当I=1时，J循环只运行一次，且J为1。

此时，K循环也只有从1到3这一次运行，循环3次，A加上3。

当I=2时，J循环运行两次，两次J值分别为1、2

此时，K循环运行两回，第一回从1到3，A加上3，第二回从2到3，A加上2。

当I=3时，J循环运行3次，4次值分别为1、2、3

此时，K循环运行三回，第一回从1到3，A加上3，第二回从2到3，A加上2，第三回从3到3，A加上1。

当I=4是，J循环运行4次，4次值分别为1、2、3、4

此时，K循环运行4回，第一回从1到3，A加上3，第二回从2到3，A加上2，第三回从3到3，A加上1，第四回从4到3，A加上0（不执行）。

由此可见除了前两次I循环加的数值不同，以后28回全都相同。

这样来算：A在第一次中加3，第二次中加5，后28次都加6，则A=3+5+28*6=176

希望这些对你有些帮助。

大哥，你打错字了，头一句应该是For

I=1

to

3

不是

For

I=1

to

30,1到3是14,1到30是176

计算方法参考上面。

A=3+5+6=14

---