hur.cn - 华软网

 热门搜索

如何遍历菜单?

  作者:未知    来源:网络    更新时间:2018/5/16
像遍历窗口控件一样
------华软网友回答------
$PBExportHeader$f_find_menuitem.srf
global type f_find_menuitem from function_object
end type

forward prototypes
global function menu f_find_menuitem (menu ommenu, string s_menuids)
end prototypes

global function menu f_find_menuitem (menu ommenu, string s_menuids);menu  lmNull
integer  liNumber,li
string ositemtext
string s_tag,s_menutag

ositemtext = lower( TabArgu(s_menuids,1) )
s_tag = TabArgu(s_menuids,2)

liNumber=upperbound(omMenu.item)
for li=1 to liNumber
s_menutag = lower(omMenu.item[li].tag)
if IsNull(s_menutag) then s_menutag = ""
if lower(omMenu.item[li].text) = osItemText and s_menutag = s_tag then
return omMenu.item[li]
exit
end if
lmNull = f_find_menuitem(omMenu.item[li],  s_menuids ) //继续查找
if isvalid(lmNull) then exit
end for
return lmNull

end function

看看这个函数不过不是我写的我还没有这么牛.
------华软网友回复------
Thank~~!
------华软网友回复------
gz
------华软网友回复------
TabArgu这个函数是什么意思?谢谢!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。