数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
菜单枚举记

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

菜单枚举记

 

有一MDI应用程序,现假设要枚举出其能够得到系统命令响应所有菜单项的内容:如命令ID,资源名称,所在()菜单的句柄等,并对之进行操作。本文对此略述一二,未达意处,望各位海涵之外,以我之深度,唯与诸位共勉而已。

1、  我的迷惑

这几天修炼English Help,悟得些许正果,希望得与世人共超,尚不知是否有效,但为之而已。言归正传:

菜单项可以是菜单,反之亦然,此时菜单被称为子菜单;如果菜单项不是菜单,则它便是纯菜单项。以前我以为菜单中每一项都是菜单,我的思维中因此不再有菜单项的定义。可能这是个菜鸟级问题,但也可能您尚不甚解,那您不妨纸上谈兵一番,将最简单的菜单画上一画,再琢磨琢磨。

2、  菜单枚举算法

A、 菜单抽象结构之一(树型抽象):

        现在要访问到这棵的所有叶结点并处理之,方法如B所述。

 

B、 枚举算法(深度遍历,C++语法)

1.       )求得当前结点的子结点数c

2.       )循环查询当前结点的I (0<=I<c)子结点信息:

若该子结点I无下级子结点,则子结点I为叶结点,按需处理后,作I=I+1,重复此步骤;

否则子结点I为分枝结点,置下级子结点为当前结点,转向1

              3)遍历完毕。

int FindMenuItem(HMENU hmenu)//参数hmenu为分支结点资源标识

{

int i,c;

long res;

char* s=new char[33];

MENUITEMINFO mii;

mii.cbSize=sizeof(MENUITEMINFO);

mii.fMask=MIIM_DATA|MIIM_ID|MIIM_SUBMENU|MIIM_TYPE|MIIM_STATE|MIIM_CHECKMARKS;

mii.dwTypeData=s;

 

c=GetMenuItemCount(hmenu);//获取当前菜单所有的菜单项数目

for(i=0;i<c;i++)

{      

mii.cch=32;//注意哦!

res=GetMenuItemInfo(hmenu,i,true,&mii);

if (res==0 ) {delete s;return -1;} //如果获取菜单信息失败

if (mii.hSubMenu==NULL)//

          {

               //若该菜单项非子菜单,则在此作相应处理

               }

       else

                {

               //若该菜单项为子菜单,则如此处理

                res=FindMenuItem(mii.hSubMenu);//直接递归调用

                if(res==-1){delete s;return -1;}

                }

}

delete s;

return 0;

}

 

int EnumMenuEndItems(HWND hwnd)//开始遍历窗口菜单项。参数hwnd为菜单所在的窗体。

{

        HMENU hmenu=GetMenu(hwnd);

        if(hmenu==NULL) return –1;

        return FindMenuItem(hmenu);

}            

注: 此处代码仅仅描述算法。若应用到它处,根据不同的需要,Function的返回值和结点处理代码理所当然要发生改变。

     附录2为上述代码的PB文本,两者略有不同,以资参考。

        下面对上述代码中用到的Windows api struct稍作解说。

 

3、  在的所用开发工具中Declare 如下Windows API及相关Struct (标准格式)

HMENU GetMenu( HWND hWnd);//返回值:hWnd所关联的窗口的菜单句柄

HMENU GetSubMenu(HMENU hMenu,int nPos);//返回值:hMenu所关联的菜单中第nPos项的子菜单句柄

int GetMenuItemCount(HMENU hMenu ); //返回值:hMenu所关联的菜单中的菜单项数目

BOOL WINAPI GetMenuItemInfo (

HMENU hMenu,   

UINT uItem,

BOOL fByPosition, //该参数确定uItem为当前菜单项的命令标识还是在所属菜单中的排序位置号

LPMENUITEMINFO lpmii);

BOOL DrawMenuBar(HWND hWnd ); //重绘hWnd所关联的窗口的菜单

typedef struct tagMENUITEMINFO {

    UINT          cbSize; //本结构体物理大小,以byte为单位,其值实际上为48

    UINT          fMask; //确定想要查询或设置菜单项的哪能些内容

    UINT          fType; //菜单格式类型

    UINT          fState;// 菜单状态:EnabledDisabled or Grayed

    UINT          wID; //命令标识符

    HMENU       hSubMenu; //子菜单句柄,若无子菜单则为NULL

    HBITMAP     hbmpChecked; //根据这两个域值,可以自定义菜单项被选定时的标记,

    HBITMAP     hbmpUnchecked; //而不一定要是或空白

    DWORD      dwItemData;//English翻译为:应用程序定义的与菜单项相关的值(我也不明白)

LPTSTR       dwTypeData; //菜单资源内容指针,指向String or BitMap or SEPARATOR资源

UINT          cch; //若菜单项为MFT_STRING类型,则此项为dwTypeData长度

HBITMAP     hbmpItem;//在调试程序时发现有此一项

} MENUITEMINFO, FAR *LPMENUITEMINFO;

参考资料:    MSDN98(MicroSoft)       MS SDK Help Files\Win32 Developer’s References(Inprise/Borland)

                    (附录1为上述APIPB中的Declare文本)

Menu操作相关的Windows API Functions还比较多,可适度参考,动态库:USER32.DLL

 

4、  其它:

a.我在PB7中调用这些Windows功能,但在调试至GetMenuItemInfo时,单步运行却停滞不前,约

30小时后,我进行了如下操作:

a1、打开一Dos窗口,运行TDump c:\windows\system\user32.dll>user32.txtTdump.exeInprise公司的应用程序)

a2、回到Windows中,以记事本打开user32.txt,发现其中并无GetMenuItemInfo,但有GetMenuItemInfoA,若在VB中调用过WIN API,则可猜测此为何物。

a3、将GetMenuItemInfo改写(Alias)GetMenuItemInfoA,便OK !

b、菜单项命令标识符作用

   在调用GetMenuItemInfoA之后,其值保存在MENUITEMINFO::wID中。

   设现在获得一菜单项信息存储于MENUITEMINFO型结构体mii中,其部分内容为:

   mii.cbsize=48

   mii.dwTypeData=”打开文件

   mii.wID=10001

   mii.fState=Enabled

          mii.fType=MFT_STRING      

对应函数引用标识

命令标识符wID

OpenFile()

10001

CloseFile()

10002

 

wID=10001

 

 


  

C、在上述GetMenuItemInfoA调用时,需对MENUITEMINFO的如下域赋值:

       MENUITEMINFO::cbSize

       MENUITEMINFO::fMask

    MENUITEMINFO::dwTypeData

    MENUITEMINFO:: cch

    其中MENUITEMINFO::fMask可为如下常数值的组合(在相关资料中很难查到这些常数数值)

       MIIM_STATE        (= 1)                                          MIIM_ID                   (= 2)

       MIIM_SUBMENU (= 4)                                           MIIM_CHECKMARKS  (= 8)

       MIIM_TYPE         (=16)                                         MIIM_DATA                (=32)

         

 

附:

1、  相关API及结构体在PB中的Declare

Function Long GetMenu(long hWnd     ) LIBRARY "USER32.DLL"

Function Long GetSubMenu(long hMenu,long nPos) LIBRARY "USER32.DLL"

Function Long GetMenuItemCount(long hMenu) LIBRARY "USER32.DLL"

Function Long EnableMenuItem(long hMenu,Ulong uIDEnableItem, Ulong uEnable)LIBRARY "USER32.DLL"

Function Long GetMenuItemInfoA(long hMenu, Ulong uItem, long fByPosition,ref MENUITEMINFO mii)LIBRARY "USER32.DLL"

Function Long DrawMenuBar(long hwnd) LIBRARY "USER32.DLL"

 

global type menuiteminfo from structure

       unsignedlong          cbsize

       unsignedlong          fmask

       unsignedlong          ftype

       unsignedlong          fstate

       unsignedlong          wid

       long        hsubmenu

       long        hbmpchecked

       long        hbmpunchecked

       long        dwitemdata

       string             dwtypedata

       unsignedlong          cch

       long        hbmpitem

end type

 

2PB代码,根据需要,不同于C++代码(节选,有修改)

Public Function Int EnumMenuEndItems (long hwnd,int ins_upd)

long hm

constant int ins=0

if hwnd=0 or isnull(hwnd) then return 0

hm=GetMenu(handle(wmdi))

if ins_upd=ins then

       delete from sec_fun using trans;

       IF TRANS.SQLCODE=-1 THEN goto error

end if

 

if ismenu(hm)=0 then return -1

if fun(hm,ins_upd)  =-1 then goto error

IF TRANS.SQLCODE=-1 THEN goto error

COMMIT USING TRANS;

delete from sec_auth where id_fun not in (select id_fun from sec_fun) using trans;//

if trans.sqlcode=-1 and ins_upd=ins then messagebox("","某些操作可能不再存在,但用户仍然拥有该项操作权限,请手动删除!")

return 0

 

error:

ROLLBACK USING TRANS;

RETURN –1

End Fuction

 

Private Function Int FindMenuItem (HMENU hmenu,int ins_upd )

//ins=0

//upd=1

int i,c

long hm,res

 

menuiteminfo mii

mii.cbsize=48

mii.fmask=54

MII.FTYPE=0

 

c=getmenuitemcount(hmenu)

for i=0 to c -1

       mii.dwtypedata="                                                                  "

       mii.cch=63

       if not isvalid(mii) then return -1

       res=GetMenuItemInfoA(hmenu,i,255,mii)

       if res=0 then continue

       IF MII.HSUBMENU=0 THEN

              IF NOT ISNULL(MII.DWTYPEDATA) THEN

                     choose case ins_upd

                            case 0

insert into sec_fun(id_fun,des_fun,HANDLE) values (:mii.wid,:mii.dwTypeData,:hmenu) USING TRANS;//保存菜单项的信息

                                   IF TRANS.SQLCODE=-1 THEN return -1

                            case 1

                                   update sec_fun set HANDLE=:hmenu where id_fun=:mii.wid USING TRANS;

                                   IF TRANS.SQLCODE=-1 THEN return -2                             

                     end choose

              ELSE

                     CONTINUE

              END IF

       ELSE

              res= FindMenuItem (MII.HSUBMENU,ins_upd)

              if res<>0 then return res

       END IF  

NEXT

return 0

End Function




相关文章

相关软件