VB 神童教程第四章第三节——动态增减菜单

作者: 来源:网络文章时间:2005-12-13 14:52:00

VB 神童教程第四章第三节——动态增减菜单(1) 我们在上一节示例的基础上，来制作如图一的小程序，每点击一次“增加信息”命令，菜单上会自动增加一个“信息”菜单，每点击一次“清除菜单”命令，程序自动清除当前信息菜单；当菜单回复原样，即只剩“信息”菜单时，“清除菜单”无效。

20030526-34.gif>
图一

一、界面设置：

在第二节最终结果的基础上，创建如图一的界面，需要注意的是，“信息”菜单(MenuHint)必须在前面的“索引”框中填入数字 0，如图二：

图二

    在程序中，只要在“索引”文本中输入了数字，就代表这个菜单成为了一个“菜单数组”，通过这个“菜单数组”可以实现菜单的动态增加与清除。

    二、程序代码：

    1、为“信息菜单”指定变量：

    对于增加或清除菜单命令，我们可以这样看：原始的“信息菜单”为 MenuHint(0) ，这也是索引值为 0 的意义所在；那么增加的一个信息菜单就应该为 MenuHint(1)，再增加一个，就应该为 MenuHint(2)，依此类推；清除一个信息菜单也类似，如果当前是 MenuHint(X)，那么清除一个后应该为 MenuHint(X-1)，依此类推。

    指定索引值为 HintNumber ，那么增加时，应该是 HintNumber = HintNumber + 1 ；清除时，应该是 HintNumber = HintNumber -1 。

    2、变量的作用域：

    一个变量的作用域倒底有多大？这得由变量的类型来决定。当一个变量只在某一个过程或事件（如某个按钮的单击事件）中起作用，那么它就是局部变量，可以在事件中直接定义；当一个变量可以在整个窗体内供使用，那么它可能是窗体层变量或全局变量，凡是在这个窗体上的事件都可以对这个变量进行引用，这种变量只能在“通用”过程中进行“声明”。

    因为 HintNumber 既要在“增加菜单”事件中引用，又要在“清除菜单”事件中引用，所以我们将它作为窗体层变量在“通用”过程的“声明”中对其进行定义，如图三：

图三

    图三中的代码如下：

    Dim HintNumber As Integer

    3、在窗体的载入事件中让 HintNumber 为初始值 0 ，再加上原来的代码，结果如图四：

图四

    4、“增加信息”菜单的 Click 事件：

    Private Sub MenuAdd_Click()

    HintNumber = HintNumber + 1

    Load MenuHint(HintNumber)

1.VB 神童教程第四章第三节——动态增减菜单(1)
2.VB 神童教程第四章第三节——动态增减菜单(2)
3.VB 神童教程第四章第三节——动态增减菜单(3)

共3页 9 7 [1] [2] [3] 8 :>

VB 神童教程第四章第三节——动态增减菜单相关文章：

VB 神童教程第四章第三节——动态增减菜单相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com