pb中如何实现菜单遍历？

whboycn 2001-07-03 11:01:43
我在写一管理软件，想知道某一菜单（动态的）的下级菜单是那些？how to realize?
...全文
355 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
我这儿有个函数！
守田人 2001-07-04
  • 打赏
  • 举报
 回复
我也需要在权限分配中用到动态改变菜单的例子，给我发一个好吗？谢谢
oicq=197575,email=sunshoutian@sina.com
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
TO：daluobo(伤心小箭)
你想要？？
怎么给你呀！！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
又发出了，一共三次了！！
请查收！
被打回了两次了！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
你再看看收到了没有！？？
whboycn 2001-07-04
  • 打赏
  • 举报
 回复
whboycn@163.com呀！谢谢！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
你的信箱不对呀！！
你说一扁！！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
你再收一扁！
我是发也去了！
whboycn 2001-07-04
  • 打赏
  • 举报
 回复
wangsw(呀呀),我没有收到！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
收到了吗？？
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
已寄出，请查收！
daluobo 2001-07-04
  • 打赏
  • 举报
 回复
to wangsw(呀呀)　
给我一个吧，我给你分! daluobo@371.net
wildhorse01 2001-07-04
  • 打赏
  • 举报
 回复
权限管理好麻烦的
具体怎么做，我也想知道！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
已寄出，请查收！
wangsw 2001-07-04
  • 打赏
  • 举报
 回复
好的！不过只能实现三级菜单！！
多了也没用的！！
这个可以实现权限分配！
真想要，先给分再说！
我的EMAIL：WANGSW·CHIAN。COM
tanye 2001-07-04
  • 打赏
  • 举报
 回复
// 中英文切换: of_translate(a_menu,as_language)
Long i,n
string s

n=UpperBound(a_menu.item)
For i=1 To n
if trim(a_menu.Item[i].text) <> '-' then
if pos(upper(a_menu.Item[i].tag),'EN')=0 then
a_menu.Item[i].tag += ',EN='+a_menu.Item[i].text
end if
s = trim(xargs(a_menu.Item[i].tag,as_language))
if len(s)>0 then
a_menu.Item[i].text = s
a_menu.Item[i].ToolbarItemText = s
end if
end if
If UpperBound(a_menu.Item[i].Item)>0 Then
of_translate(a_menu.Item[i],as_language) // 递归
End If
Next
Return 0

whboycn 2001-07-04
  • 打赏
  • 举报
 回复
能发给我吗？多谢！whboycn@163.com
zls0303 2001-07-04
  • 打赏
  • 举报
 回复
不错，我想要一个，z-ls@ah163.com
whboycn 2001-07-03
  • 打赏
  • 举报
 回复
susu_0807(令狐冲)　多谢，我试试！
whboycn 2001-07-03
  • 打赏
  • 举报
 回复
up!
加载更多回复（1）
pb6.5菜单遍历
//标题菜单总数 Integer Titletotals=0 //获取标题菜单总数及标题菜单名 Titletotals = UpperBound(m_main_menu.Item) string TitleName="" //标题菜单循环控制变量，遍历标题菜单 Integer TitleNo=0 //标题菜单下分项菜单总数及分项菜单名 Integer Itemtotals=0 string ItemName="" //分项菜单循环控制变量，遍历分项菜单 Integer ItemNo=0 //标题菜单循环 For TitleNo = 1 To Titletotals //获取标题菜单名 TitleName = m_main_menu.Item[TitleNo].Text // messagebox("第"+string(TitleNo)+"标题菜单","菜单名："+TitleName) ltvi_item.Label = TitleName ltvi_item.Data = TitleName ltvi_item.PictureIndex = 1 ll_handle = Tv_1.InsertItemLast(0,ltvi_item) messagebox("dfjsajdf",string(ll_handle )) //判断该标题菜单下有无分项菜单，如有则返回分项菜单总数，如无没有则返回0 Itemtotals = UpperBound(m_main_menu.Item[TitleNo].item) IF Itemtotals>0 THEN //如有分项菜单，进入分项菜单循环 For ItemNo = 1 To Itemtotals //获取分项菜单名 ItemName = m_main_menu.Item[TitleNo].Item[ItemNo].Text IF ItemName"-" THEN ltvi_item.Label = ItemName ltvi_item.Data = ItemName tv_1.insertItemLast(ll_handle,ltvi_item) // ltvi_item.StatePictureIndex = 0 // messagebox("第"+string(ItemNo)+"分项菜单","菜单名："+ItemName) END IF Next END IF Next
pb8动态创建树和菜单，pb遍历生成菜单，树
pb8源码，动态创建树和菜单，及对树和菜单的增、删、改 效果图：http://album.hi.csdn.net/app_uploads/liubocy/20081117/021309093.p.jpg?d=20081117021615546 请注释掉tv控件的selectchanged事件代码.
ELK/ELFK(7.3 ) 企业PB级日志系统实战
Elastic Stack日志系统是目前企业应用广泛的一套日志解决方案。   包含的组件有Filebeat,Logstash,Elastic,Kibana等 本堂课引入Kafka 让Elastic Stack 能适应企业PB级的业务日志量并弥补传统ELk架构的不足   ★学完这门课程会获得什么？   首先从零开始教你部署Elastic Stack系统, 详细讲解Elastic产品,包括 Kibana.Logstash,Beats的详细讲解以及Elastic的api操作， 并如何监控如何绘图等。最后结合自己的运维过程中的案例讲解，让学员能更加清楚了解原理以及少走一些弯路。   目前我们公司每天产生至少8个T的数据量，历史日志保存半年。此教程足以能承担PB级的日志收集系统的量。此教程的背景介绍请参阅我的CSDN博客，置顶内容的第一篇博文。
PB动态生成菜单
在PB帮助的MENU OBJECT一节当中，关于其PROPERTIES描述当中有一项： Item[ ] Menu Specifies the Menu objects under a Menu object. 这看似简单的一句话其实包含了三层含义： 1、这句话说明MENU对象有一个属性为数组类型，它其中的各个元素记录了其所有的具体子ITEM项目，可以借助这个数组中各元素来访问底层的各子菜单； 2、这些子ITEM项目仍是MENU类型，因此可以按照第一点的逻辑继续向下层推广，借助该子ITEM的ITEM[]属性可以进而访问其所属下层的第二层子菜单，推而广之，即可全面遍历整个菜单体系的所有子菜单项目； 3、既然该属性是一个数组类型，那么就可以按照数组类型变量来处理，我们可以对其进行upperbound()、lowerbound()等函数操作，还可以进行数组的扩展，即添加新项目，这一点很重要，它是我们整篇文章的核心，如何利用PB实现动态添加菜单，说白了就是添加这个数组元素（读者必须对此有一个清晰的认识），同时期间有一些配套具体的实现技巧，详见下文。
pb动态生成菜单.txt
在PB帮助的MENU OBJECT一节当中，关于其PROPERTIES描述当中有一项： Item[ ] Menu Specifies the Menu objects under a Menu object. 这看似简单的一句话其实包含了三层含义： 1、这句话说明MENU对象有一个属性为数组类型，它其中的各个元素记录了其所有的具体子ITEM项目，可以借助这个数组中各元素来访问底层的各子菜单； 2、这些子ITEM项目仍是MENU类型，因此可以按照第一点的逻辑继续向下层推广，借助该子ITEM的ITEM[]属性可以进而访问其所属下层的第二层子菜单，推而广之，即可全面遍历整个菜单体系的所有子菜单项目； 3、既然该属性是一个数组类型，那么就可以按照数组类型变量来处理，我们可以对其进行upperbound()、lowerbound()等函数操作，还可以进行数组的扩展，即添加新项目，这一点很重要，它是我们整篇文章的核心，如何利用PB实现动态添加菜单，说白了就是添加这个数组元素（读者必须对此有一个清晰的认识），同时期间有一些配套具体的实现技巧，详见下文。
PowerBuilder

1,075

社区成员

66,437

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章