文件名称：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