ABAP Tree Control的基本实现步骤

最新推荐文章于 2022-05-24 21:50:32 发布

原创最新推荐文章于 2022-05-24 21:50:32 发布 · 置顶 · 1.3k 阅读

9 ·

CC 4.0 BY-SA版权

本文详细介绍ABAP中TreeControl的实现步骤，包括引用相关类、创建屏幕与容器、实例化TreeControl、添加多层级节点及事件处理。适用于希望了解ABAP树状控件具体实现的开发者。

Tree Control的基本实现步骤

首先还是要引用ABAP Tree的相关类

cl_gui_custom_container 容器一定必不可少

cl_gui_simple_tree

创建屏幕100并创建container

在100屏幕的PBO中实例化container 和Tree Control

接下来就要为Tree逐层添加节点

如果为顶层只需要分配自身的node_key即可，如果为子层则在分配node_key的同时，还要分配父层节点relatkey，之后还要分配relat_last_child属性，具体参数设置如下：

*顶层

  CLEAR gt_node[] .
  node-node_key = 'SO_NO'.
  node-relatkey = ''. "顶层时为空
  node-relatship = ''. "顶层时为空
  node-hidden = ''.
  node-disabled = ''.
  node-isfolder = 'X'. "是否为文件夹
  node-text = '订单号'.
  APPEND node TO gt_node.
CLEAR node.

*二层
  CLEAR node.
  node-node_key = '10000000421'.
  node-relatkey = 'SO_NO'. "填入父层节点KEY
  node-relatship = cl_gui_simple_tree=>relat_last_child.

"访问relat_last_child属性

node-hidden = ''.

node-disabled = ''.
  node-isfolder = 'X'.
  node-text = 'SO编号：10000000421'.
  APPEND node TO gt_node.

  CLEAR node.
  node-node_key = '10000000422'.
  node-relatkey = 'SO_NO'.
  node-relatship = cl_gui_simple_tree=>relat_last_child.
  node-hidden = ''.
  node-disabled = ''.
  node-isfolder = 'X'.
  node-text = 'SO编号：10000000422'.
  APPEND node TO gt_node.

*三层
  CLEAR node.
  node-node_key = '100'.
  node-relatkey = '10000000421'.
  node-relatship = cl_gui_simple_tree=>relat_last_child.
  node-hidden = ''.
  node-disabled = ''.
  node-isfolder = ''.
  node-n_image = '@9Y@'. "填入ICON
  node-exp_image = '@9Y@'. "填入ICON
  node-text = 'SO项目号：100'.
  APPEND node TO gt_node.

  CLEAR node.
  node-node_key = '200'.
  node-relatkey = '10000000421'.
  node-relatship = cl_gui_simple_tree=>relat_last_child.
  node-hidden = ''.
  node-disabled = ''.
  node-isfolder = ''.
  node-n_image = '@9Y@'. "填入ICON
  node-exp_image = '@9Y@'. "填入ICON
  node-text = 'SO项目号：200'.
  APPEND node TO gt_node.

  CLEAR node.
  node-node_key = '300'.
  node-relatkey = '10000000422'.
  node-relatship = cl_gui_simple_tree=>relat_last_child.
  node-hidden = ''.
  node-disabled = ''.
  node-isfolder = ''.
  node-n_image = '@9Y@'. "填入ICON
  node-exp_image = '@9Y@'. "填入ICON
  node-text = 'SO项目号：300'.
  APPEND node TO gt_node.

节点写好后调用add_nodes方法

  CALL METHOD lo_tree->add_nodes
    EXPORTING
      table_structure_name = 'MTREESNODE'
      gt_node = gt_node.

创建event事件方法，这里只使用了双击事件方法

CLASS lcl_application DEFINITION.
  PUBLIC SECTION.
*自定义双击方法，参数为节点关键字
    METHODS handle_node_double_click
      FOR EVENT node_double_click
      OF cl_gui_simple_tree
      IMPORTING node_key.
ENDCLASS.

CLASS lcl_application IMPLEMENTATION.
  METHOD handle_node_double_click.
    nodekey = node_key.
    READ TABLE gt_node WITH KEY node_key = node_key INTO node.
    nodetext = node-text.
  ENDMETHOD.
ENDCLASS.

将其引用之后在START-OF-SELECTION事件时将其实例化

DATA: lo_application TYPE REF TO lcl_application.
START-OF-SELECTION.
CREATE OBJECT lo_application.
CALL SCREEN 100.

最后完成事件方法的定义及注册

*事件内表及单个事件对象.
  DATA: gt_event TYPE cntl_simple_gt_event,
        gs_event TYPE cntl_simple_event.

*定义双击事件
  gs_event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
  gs_event-appl_event = 'X'.
  APPEND gs_event TO gt_event.
*添加事件内表
  CALL METHOD lo_tree->set_registered_gt_event
    EXPORTING
      gt_event = gt_event.

*注册双击事件
  SET HANDLER lo_application->handle_node_double_click FOR lo_tree.
ENDFORM.