admin管理员组

文章数量:1570218

相关类 :cl_gui_splitter_container

一、数据定义

DATA:
go_docking          TYPE REF TO cl_gui_docking_container, "全屏自适应
go_docking1         TYPE REF TO cl_gui_docking_container, "全屏自适应
go_split_container1 TYPE REF TO cl_gui_splitter_container, "控件拆分
go_split_container2 TYPE REF TO cl_gui_splitter_container, "控件拆分
go_container1       TYPE REF TO cl_gui_container,
go_container2       TYPE REF TO cl_gui_container,
go_container3       TYPE REF TO cl_gui_container,
go_container4       TYPE REF TO cl_gui_container.

二、实例化分屏对象,放置于docking_container中,把屏幕分割成一行两列

    CREATE OBJECT go_docking
      EXPORTING
*       parent                      =
        repid                       = sy-repid
        dynnr                       = '0100'
        side                        = cl_gui_docking_container=>dock_at_bottom "dock_at_top
        extension                   = 99999
*       style                       =
*       lifetime                    = lifetime_default
*       caption                     =
*       metric                      = 0
*       ratio                       = 95
*       no_autodef_progid_dynnr     =
*       name                        =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

    CREATE OBJECT go_split_container1
      EXPORTING
        link_dynnr = sy-dynnr
        link_repid = sy-repid
        parent     = go_docking
        rows       = 1   "分成一行
        columns    = 2   "分成两列
*       name       = 'GCL_SPLIT_CONTAINER'
      .

三、对分好的两个container分配对应的容器

    CALL METHOD go_split_container1->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = go_container1.

    CALL METHOD go_split_container1->get_container
      EXPORTING
        row       = 1
        column    = 2
      RECEIVING
        container = go_container2.

四、将第一行第二例的容器go_container2,分成两行一列

    CREATE OBJECT gcl_split_container2
      EXPORTING
        link_dynnr = sy-dynnr
        link_repid = sy-repid
        parent     = gcl_container2
        rows       = 2
        columns    = 1.

五、为分好的两个容器,分配container

    CALL METHOD go_split_container2->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = go_container3.

    CALL METHOD go_split_container2->get_container
      EXPORTING
        row       = 2
        column    = 1
      RECEIVING
        container = go_container4.

分割好后效果会是这样的

本文标签: 多个控件屏幕上ABAPALV