ABAP树型菜单程序

《ABAP树型菜单程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ABAP树型菜单程序Jerry项目中树型菜单很少用到，但是学会了，也是一种好事。最近，客户方就有一个要求，能够实现特殊的文档管理，包括动态的树型菜单。此文档中，我就介绍如何用ABAP创建一个简单的树型菜单！下而儿个步骤只讲创建树型菜单儿个重要的地方，最后面是详细的实现代码。建议学者粗略看看步骤，重点看最后的代码，然后自己学着按卜•面的DEMO写测试程序，直到成功为止，如冇不懂的地方，叮以到群内留言。或者文档有写得不好的地方，也可以提出來，我们一起加以改善！一.创建一个DIALOG屏幕(0900),创建-个定制控制：TREE_CONTAINER,作为一个容器来存放程序创建的树型菜单，

2、如下元鬻"alaw文拿r师g杯厂jjjttiMia]r~列LainimM$va«图所示：C«atoitB«MF«raOM.CWW.jIKttU»大小ritw2±lrK阿二.在屏幕PBO事件中，创建一个MOUDLE:ininittree,然后创建一个Subroutine:frminittree。在Subroutine中创建一个Object:gapplication,gapplication指向自己创建的一个Clciss：lcl_application0这个Class主要定义了一些事件，比如单击，双击,展开，链接单击等事件，用来注册及捕获树型菜单的父节点，子节点单击，双击，展开，链接单

3、击等事件，然后在自己Class:lcl_application中相应口定义的Method中写相应的Code,实t现特殊的操作。B!si山“*t伽如―三.用程序创建一个容器类clguicustomcontainer的实例gcustomcontainer,代码如下EXPORTING11container_name=TREE.CONTA1NEREXCEPTIONScntlerror=1cntlsystemerror=2create_error=3lifetimeerror=4CREATEOBJECTgcustomcontainerlifetime.dynpro.dynpro^link=5

4、.IFsy-subrc<>0.*MESSAGEaOOO.ENDTF.从上而的代码可以看出，程序创建了一个指向步骤一创建的定制控制：TREECONTAINER一个自定义容器类.四.设置树型菜单名称，宽度，菜单列数,并创建树型菜单Class:cl_gui_column_tree实例:gtree,并和屏幕容器相关联hierarchy^header-heading='资源管理'."树型菜单名称hierarchy_header-width二50."宽度CREATEOBJECTgtreeEXPORTINGparent二g^custom.container"将创建的树型菜单和屏幕容器相关联nod

5、e_selection_mode二cl_gui_column_tree=>node_sel_mode_single"模式item_selectionhierarchy=，X，columnnamehierarchyccolumn-column1"列数header=hierarchy,headerEXCEPTIONScntl_system_errorcreate_errorfailedillegal_node_selectionmode=4i1legal_column_name=5lifetime_error二6.IFsy-subrc<>0.*MESSAGEaOOO.ENDTF.五.定

6、义树型菜单的一些事件，比如单击，双击等"nodedoubleclick根节点双击event-eventid二clguicolumntree=>eventidnodedoubleclick.MMMMWMMMMevent-appl_event二'X’・"processPAIifeventoccursAPPENDeventTOevents・"itemdoubleclick子节点双击event-eventid二clguicolumntree=>eventiditemdoubleclick.event-appl_event二'X’・APPENDeventTOevents・expandnoch

7、ildren展开文件event-eventid=cl_gui_column_tree=>eventid_expcind_no_children.event-applevent='X'・APPENDeventTOevents."linkclick链接单击，我认为是最后的子节点单击event-eventid=cl_gui_column_tree=>eventid_link_click・event-applevent='X'・APPENDeventTOevents.butt