您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

如何动态控制菜单显示

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何动态控制菜单显示

发表于：2007-12-05 23:44:26 楼主

我想在程序启动以后从一个表中取得菜单项设置菜单每项的有效性（该表中记录了菜单的name和每项的有效性），如表中存在
菜单名为mnu_yhgl_ts（0）有效性为true的一个记录程序运行时即显示该菜单
菜单名为mnu_yhgl_ts（1）有效性为false的记录程序运行时该菜单项就不显示

发表于：2007-12-06 00:37:031楼得分:0

dim i as long,j as long

if rs.eof then exit sub
rs.movelast
i=rs.absoluteposition
rs.movefirst

for j=1 to i
mnu_yhgl_ts（j-1）=rs.field（"菜单名")
if not rs.field（"是否可见") then mnu_yhgl_ts（j-1）.visible=false
rs.movenext
load mnu_yhgl_ts（j）
next
unload mnu_yhgl_ts（mnu_yhgl_ts.ubound)

发表于：2007-12-06 10:35:182楼得分:0

我的菜单是先就设计好了的不是动态产生的。
应该这样描述下
我有一个界面上面是复选框选中了为真，没选为假，这些复选框每一个都对应了一项菜单项，我想通过这个界面来控制菜单的显示，现在这个界面可以向数据库中提交与菜单项相同的名称和caption，还有是否有效。
另外一个界面当运行的时候首先应该从数据库中读出数据，然后看哪些有效哪些无效

发表于：2007-12-06 13:18:073楼得分:0

if trim（mnu_yhgl_ts（j).caption) = trim（str（rs.fields（2).value)) then mnu_yhgl_ts（j).visible = cbool（rs.fields（3))
现在的问题是rs.fields（2).value不能转换位字符型，如何把它转换为字符型

其他资讯