admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：特斯拉事件最近进展)

维普资讯

１设计思想　

２实现方式　

ＶＢ的ＴｒｅｅＶｉｅｗ控件正好适合上述菜单结构的实现，本　

一

般的应用系统都有一个主画面，用户由该主画面　

文的控件就是由ＴｒｅｅＶｉｅｗ控件及ｌｍＡｇｅＩ血控件组合而成　

进人各个子系统及模块，这便需要菜单的导引，就像　

对于前面设计的Ｍｅｎｕ表有多种实现方式，例如采用　

ｗｉｎｄｏｗｓ的资源管理器一样．一层一层地打开文件夹．最　

递归法透层加入菜单项，但控制复杂、可能造成死循环、　

后看到各个文件。另外考虑应用系统扩展性（如增加模　

运行时占用系统资源严重。所以本文采用了一种更为简单　

块）及权限控制的要求，菜单必须是活的（如菜单结构从　

数据库中获得）。　

的方式，具体是按Ｍ锄ｕ—ＩＤ升序排列将菜单表所有记录　

取出，然后逐个将菜单项加人ＴｒｅｅＶｉｅｗ控件。由于最高　

表１　

字段序号　字段英文名　字段中文名　字段类型　允许ｎｕｌｌ　主键字段　字段说明　

每两位代亵１级。量多支持５圾。下级菜单鞠　

１　

Ｍｅｎｕ＿ＩＤ　菜单编号　

Ｃｈａｒ（１０）　否　是　

号的前几位即是上级幕单缩号。量膏一级菜　

单编号为霉长度字串

每级的两位铺码中第　

．

一

位为字母Ａ—Ｚ，第二位为披字Ｏ－９．每氧　

量多包耆２６０个菜单项。　

２　Ｍｅｌ３　Ｎａｍｅ　菜单名称　Ｃｈａｒ（３０）　否　对量厩屡的粟单硬记曩模块名稚。其他菜单　

璃记曩子蕞统或模块组的名蒋。　

３　Ｍｅｎｕ

—

ＭｏｄｕｌｅｌＤ　模块编号　Ｃｈａｒ（３０）　否　

对量赢屡的幂单项记嚣蕞蟪墒号。其他菜簟　

项为，长度字审

。　

关键的核心是一个具有树状层级结构的菜单，本文　

一

级菜单项的Ｍｅｎｕ—ＩＤ为零长度子串，该项必然排在第　

以ＶＢ的ＴｒｅｅＶｉｅｗ控件为基础．开发出了满足上述要求　

一

条，父菜单项也会排在子菜单项的前面，所以产生菜单　

的实用菜单控件。子系统及模块的层次关系由数据库中　

结构时肯定是最先增加根节点．然后增加第一个一级节　

的一个表来描述，具体的表结构如下　

点．再增加第一个属于该节点的二级节点．直至最底层的　

其实Ｍｅｎｕ表也可以设计成其他结构，例如以菜单编　

模块。选正好复合ＴｍｅＶｉｅｗ控件上级节点必须存在才能　

号及上级菜单编号两个宇段为主键，这种表结构虽然支　

增加下级节点的特点。　

持任意级数的菜单．但需要维护两个字腔的关系容易出　

具体设计是该控件包括一个方法Ｓ　ｈｏ　ｗ　Ｍｅ　ｎ　ｉ１　

错（例如两个菜单项的编号互为父子关系．造成死循环）　

（ａＭｅｎｕｌｎｆｏ），此方法包含一个二维数组参数（传递按　

因此，本文采用上述表结构。对于要求层数更多的　

Ｍｅｎｕ

—

ｌＤ排列的菜单项信息），ａＭｅｎｕｌｎｆｏ（Ｉ，０）表示菜单编　

菜单结构，可以增加Ｍｅｎｕ—ＩＤ字腔的长度（例如ｌ６即可　

号、ａＭｅｒｔｕＩｒｔｆｏ（Ｉ，１）表示菜单名称、ａＭｅ．ｎｕｌａｆｏ（Ｉ，　表示模　

支持８级菜单结构Ｊ。　

维普资讯

块编号。　

的模块。　

该控件还包括一个事件ＭｙＣｌｉｃｋ（ｓＭｏｄｕｌｅｌＤ　Ａｓ　

Ｅｖｅｎｔ　ＭｙＣｌｉｃｋ（ＢｙＶａｌ　ｓＭｏｄｕｌｅｌＤ　Ａｓ　ＳｔｒｉｎｇＪ　

Ｓｔｉｒｎｇ），当点击节点时触发此事件，同时将节点对应的模　

块编号作为参数传递绐此事件，节点对应的模块编号在调　

Ｐｕｂｌｉｃ　Ｆｔｍｃｔｉｏｎ　ＳｈｏｗＭｅｎｕ（ａＭｅｎｕｌｎｔｏ）Ａｓ　Ｂｏｏｌｅａｌｌ　

用ＳｈｏｗＭｅｎｕ方法时被记录到每个节点的Ｔａｇ属性中。　

Ｄｉｍｉ　ＡｓＬｏｎｇ　

控件中有一个ＩｍａｇｅＬｉｓｔ含有３个图片（Ｏｐｅｎ．ｂｍｐ、　

Ｄｉｍ　ｓＭｅｎｕｌＤ　Ａｓ　Ｓｔｒｉｎｇ　

Ｃｌｏｓｅｄｂｍｐ、Ｍｏｄｕｌｅ．ｂｍｐ），分别对应打开、关闭的菜单　

Ｄｉｍ　ｓＰａｒｅｌｌｔｌＤＡｓ　Ｓｔｒｉｎｇ　

项及底层的模块。　

Ｄｉｍ　ｓＭｅｎｕＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ　

Ｄｉｍ　ｓＭｏｄｕｌｅｌＤ　Ａｓ　Ｓｔｒｉｎｇ　

３源代码　

图Ｉ，图２表示了组成菜　控件的两个控件的属性设　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　ｅｒｒＨａｎｄｌｅ　

置，后面是完整的源代码。　

Ｆｏｒ　ｉ＝０　Ｔｏ　ＵＢｏｕｎｄ（ａＭｅｎｕｌｎｆｏ１　

’取得菜单编号，菜单名称及模块编号　

ｓＭｅｎｕｌＤ＝ａＭｅｎｕｌｎｆｏ（Ｉ，０）　

ｓＭｅｌｌｕＮａｍｅ＝ａＭｅｎｕｌｎｆｏ（ｉ，１）　

ｓＭｏｄｕｌｅｌＤ＝ａＭｅｎｕｌｎｆｏ０，２　

Ｉｆ　ｓＭｅｎｕｌＤ＝””Ｔｈｅｎ　’加人根节点　

ｔｖｗＭｅｎｕ　Ｎｏｄｅｓ　Ａｄｄ，”Ｒｏｏｔ　．ｓＭｅｎｕＮａｍｅ，　

’Ｃｌｏｓｅｄ’’　

Ｅｌｓｅ　’加八其他节点　

ｓＰａｒｅｌｌｔｌＤ＝Ｌｅｆｔ（ｓＭｅｎｕｌＤ．Ｌｅｎ（ｓＭｅｎｕｌＤ）一２）　

Ｉｆ　ｓＰａｒｅｌｌｔＩＤ＝””１ｌｈｅｎ　

ｓＰａｒｅｎｔｌＤ＝”ＲＯＯｔ”　

ＥｎｄＩｆ　

图１　ＩｍａｇｅＬｉｓｔ控件　

Ｉｆ　ｓＭｏｄｕｌｅｌＤ＝””Ｔｈｅｎ　’非底层节点　

ｔｖｗＭｅｌｌｕ．Ｎｏｄｅｓ　Ａｄｄ　ｓＰａｒｅｎｄＤ，ｔｖｗＣｈｉｌｄ，　

ｓＭｅｌｌｕＩＤ　ｓＭｅｎｕＮａｍｅ，”Ｃｌｏｓｅｄ’’　

Ｅｌｓｅ　’底层节点｛即各个模块）　

ｔｖｗＭｅｎｕ．Ｎｏｄｅｓ．Ａｄｄ　ｓＰａｒｅｎｔｌＤ．ｔｖｗＣｈｉｌｄ．　

ｓＭｅｎｕｌＤ，ｓＭｅｎｕＮａｍｅ，”Ｍｏｄｕｌｅ”　

’将最底层模块的编号记录到节点的Ｔａｇ属　

性中　

ｔｖｗＭｅｎｕ　Ｎｏｄｅｓ（ｓＭｅｎｕｌＤ）．Ｔａｇ＝ｓＭｏｄｕｌｅＩＤ　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

Ｎｅｘｔｉ　

图２　ＴｒｅｅＶｉｅｗ控件　

Ｏｐｔｉｏｎ　Ｅｘｐｌｉｃｉｔ　

ｔｖｗＭｅｌｌｕ．Ｎｏｄｅｓ（”Ｒｏｏｔ”１　Ｅｘｐａｎｄｅｄ＝Ｔｒｕｅ　

声明事件，该事件与ＴｒｅｅＶｉｅｗ控件的ＮｏｄｅＣｌｉｃｋ事　

ＳｈｏｗＭｅｎｕ＝Ｔｒｕｅ　

件关联，　

Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ　

同时将被点击模块的编号传递出击、以便调用相麻　

ｅｌｆＨａｎｄｌｅ：　

ＭｓｇＢｏｘ”显示菜单项失败！　＆Ｃｈｒ（１３）＆Ｃｈｒ　

维普资讯

ｆｌ０１＆Ｅｒｒ　Ｄｅｓｃｒｉｐｔｉｏｎ　

（ｃ【１），这种开发方式相当于将每一模块独立调试、封装，　

ＥｒｒＣｌｅａｒ　

最后一并整合，可以避免大规模开发时变量命名冲突、难　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

干整合等问题。具体的工程文件信息如图３所示。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｔｖｗＭｅｎｕ

—

ＮｏｄｅＣｌｉｃｋ（ＢｙＶａｌ　Ｎｏｄｅ　Ａｓ　

Ｎｏｄｅ）　

ＩｆＴｒｉｍ（Ｎｏｄｅ．Ｔａｇ、＜＞””Ｔｈｅｎ　

ＲａｉｓｅＥｖｅｎｔ　ＭｙＣｌｉｃｋ（Ｎｏｄｅ　Ｔａｇ）　

ＥｎｄＩｆ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｔｖｗＭｅｎｕ

—

Ｃｏｌｌａｐｓｅ（ＢｙＶａｌ　Ｎｏｄｅ　Ａｓ　

ＣｏｍｃｔｌＬｉｂ．Ｎｏｄｅ）　

Ｎｏｄｅ　Ｉｍａｇｅ：。’Ｃｌｏｓｅｄ’’　

Ｅｎｄ　Ｓｕｂ　

３　工　文件信思　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｔｖｗＭｅｎｕ

—

Ｅ　Ｐａｎｄ（ＢｙＶａｌ　Ｎｏｄｅ　Ａｓ　

４　２　Ｂ，Ｓ架构　

ＣｏｍｃｆｌＬｉｂ．Ｎｏｄｅ）　

该应用实例仍然由一个主画面（Ｍａｉｎ．ｈｔｍ）开始，其　

Ｎｏｄｅ　ＥｘｐａｎｄｅｄＩｍａｇｅ＝’　Ｏｐｅｎ’’　

中包含左右两帧，左帻（Ｍａｎｕ　ａｓｐ）容纳菜单控件，右帧　

ｎＥｄ　Ｓｕｂ　

（ｆｒａＭｏｄｕｌｅ）容纳各个模块，核心部分在左帧。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＵｓｅｒＣｏ／ｉｔｒｏｌ

—

Ｒｅｓｉｚｅ０　

显然菜单控件需要从数据库获取层级结构信息，控　

’使菜　显示区域与控件大小一致　

件又要下载到客户端运行，而Ｂ／Ｓ架构一般不光许在客户　

ｔｖｗＭｅ／ｌｕ　Ｗｉｄｔｈ：ＵｓｅｒＣｏｎｔｒｏ１．Ｗｉｄｆｈ　

端设置数据源，因此为了取得层级结构信息必须把数据传　

ｔｖｗＭｅｎｕ　Ｈｅｉｇｈｔ＝ＵｓｅｒＣｏｎｔｒｏｌ　Ｈｅｉ譬ｈｔ　

递到一个客户端脚本中的数组，然后在页面初始化时显示　

ＥｎｄＳｕｂ　

菜单　

具体实现的源代码略。●　

４应用示倒　

４．１　ｃ，Ｓ架构　

该应用实例采用一个ＭＤＩＦｏｒｍ作为主画面，主画面　

左侧放置上述的菜单控件，右侧是一个ＭＤＩＣｈｉｌｄ宙体，　

负责显示各个模块　每个模块实际上就是一个大控件　


本文标签： 菜单 模块 编号 节点 控件

版权声明：本文标题：一个实用的菜单控件 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711541351a599075.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。