[原创]我写的遍历菜单的脚本
<P>在一个MDI窗口中建一个子窗口，在子窗口上放一个MultiLineEdit 和一个CommandButton，把下面的脚本贴在CommandButton的clicked()事件中，就可以在MultiLineEdit中显示遍历的菜单项了，最大支持八层的菜单，如果你有更多层菜单，只要加大参数的数组上界就可以了。</P><P>这个东东主要是用于菜单权限控制。</P>
<P><FONT face=宋体>menu menufx<BR>string menu_name<BR>long i_1<BR>long i_2<BR>int i<BR>int j<BR>j=1</FONT></P>
<P><FONT face=宋体>menufx=parent.parentwindow().MenuID<BR>mle_1.text=mle_1.text+menufx.Classname()+menufx.text+'~r~n'<BR>i_1=LowerBound(menufx.Item[])<BR>i_2=UpperBound(menufx.Item[])<BR>i=i_1<BR>do while true<BR> menufx=menufx.item]<BR> menu_name=menufx.text<BR> if menufx.text<>'-' then mle_1.text=mle_1.text+Fill("~t",j - 1)+left(menufx.Classname()+' ',10)+menufx.text+'~r~n'<BR> if i>=i_2 then<BR>j=j - 1<BR>if j=0 then exit<BR> else<BR>i_1=LowerBound(menufx.Item[])<BR>i_2=UpperBound(menufx.Item[])<BR>i=i_1<BR>if i_1=1 and i_2=0 then<BR> i=i+1<BR>else<BR> i=i+1<BR> j=j+1<BR>end if<BR> end if<BR>loop<BR></FONT></P> 这段脚本读起来比较繁，当心绕来绕去绕不出来喽，呵呵！！！
页:
[1]