【文件属性】:
文件名称:pb6.5菜单遍历
文件大小:12KB
文件格式:DOCX
更新时间:2019-01-10 11:15:41
菜单
//标题菜单总数
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