SAP Control framework

 

Make you farmiliar with SAP control framework:

Control framework主要包含两个组件:

1. CL_GUI_CFW:

这个类里面主要包含一些静态方法（Static method）.

主要组件：

Dispatch:

此方法可以触发application event，如果不调用这个方法，application event会在PAI处理结束后自动调用。

Flush:

此方法用于同步automation queue。

Get_living_dynpro_controls:

返回所有active customer control。

Set_new_ok_code:

设置一个新的Function code.该方法只能用于system event的handler方法，以此可以触发PAI处理，然后我们可以对新的ok_code进行处理。

Get_current_event:

获得当前事件。

2. CL_GUI_OBJECT:

子类：CL_GUI_CONTROL

作用：我觉得最主要的功能是提供一个抽象的接口，里面的方法很少使用。

1. CL_GUI_CONTROL

这个就是我们主要要使用的超类了，先看一下它的子类：

CL_GUI_CONTROL

|_ CL_ALV_TREE_BASE

|_ CL_GUI_ALV_TREE

|_ CL_GUI_ALV_TREE_SIMPLE

|_ CL_GUI_PS_ALV_TREE_SIMPLE

|_ CL_GUI_ALV_GRID_BASE

|_ CL_GUI_ALV_GRID

|_ CL_ALV_DD_LISTBOX

|_ CL_FTR_GUI_ENTRY_ALV

|_ CL_HRPAYNA_GUI_ALV_GRID

|_ CL_CALENDAR_CONTROL_SCHEDULE

|_ CL_GUI_BARCHART

|_ CL_GUI_CALENDAR

|_ CL_GUI_CONTAINER

|_ CL_GUI_CUSTOM_CONTAINER

|_ CL_GUI_DIALOGBOX_CONTAINER

|_ CL_GUI_DOCKING_CONTAINER

|_ CL_GUI_EASY_SPLITTER_CONTAINER

|_ CL_GUI_GOS_CONTAINER

|_ CL_GUI_SPLITTER_CONTAINER

|_ CL_GUI_HTML_VIEWER

|_ CL_BFW_HTML_VIEWER_POC

|_ CL_GUI_PDF_VIEWER

|_ CL_GUI_PICTURE

|_ CL_GFW_GP_PRES_WEB

|_ CL_GUI_TEXTEDIT

|_ CL_GUI_TOOLBAR

|_ CL_TREE_CONTROL_BASE

|_ CL_GUI_SIMPLE_TREE

|_ CL_ITEM_TREE_CONTROL

|_ CL_GUI_COLUMN_TREE

|_ CL_GFW_COLUMN_TREE

|_ CL_HU_COLUMN_TREE

|_ CL_GUI_LIST_TREE

4. 关于事件

4.1两种类型：

Application event

System event

4.2关于application event使用步骤

-定义数据类型

it_events TYPE cntl_simple_events,

wa_event TYPE cntl_simple_event.

-添加事件

wa_event-eventid = cl_gui_textedit=>event_double_click.
wa_event-appl_event = ‘X’. “Application event
append wa_event to it_events.

-dispatch

CALL METHOD cl_gui_cfw=>dispatch.

4.3 关于system event使用步骤

-定义数据类型

go_event_handler TYPE REF TO cls_event_handler,

gi_events TYPE cntl_simple_events,

g_event TYPE cntl_simple_event.

-定义并且实施event handler类

CLASS cls_event_handler DEFINITION.

PUBLIC SECTION.

METHODS:

on_function_selected

FOR EVENT function_selected OF cl_gui_toolbar

IMPORTING fcode,

ENDCLASS.

CLASS cls_event_handler IMPLEMENTATION.

METHOD on_function_selected.

……

ENDMETHOD.

ENDCLASS.

-添加事件

       g_event-eventid         = <system-events>.

 g_event-appl_event   = space.    "This is an system event

APPEND g_event TO gi_events.

-注册事件

         CALL METHOD go_toolbar->set_registered_events

EXPORTING events = gi_events.

-创建event handler

CREATE OBJECT go_event_handler.

-设置event handler

         SET HANDLER go_event_handler->on_function_selected

           FOR go_toolbar.

5. CL_GUI_TEXTEDIT

5.1 Constructor

5.1.1 Text Editor

我们首先考虑如何创建texteditor,所有首先要知道的是constructor方法。

看其参数列表：

MAX_NUMBER_CHARS “能够插入的最大字符数，可选

STYLE “

WORDWRAP_MODE “换行模式 可选

“0:不换行 1:在边界换行 2:在固定位置换行

WORDWRAP_POSITION “换行位置,只有WORDWRAP_MODE=2时有效 可选

WORDWRAP_TO_LINEBREAK_MODE “

FILEDROP_MODE “

PARENT “必输 container

LIFETIME “一般不用 可选

NAME “名字 可选

5.1.2 Custom Container

参数：

PARENT “如果你想container里面包含container，那么这个参数就有用了

CONTAINER_NAME “名字 必输

STYLE “风格 可选

REPID “使用该container的程序

DYNNR “使用该constainer的屏幕

1.1 步骤

5.2.1 定义一个屏幕100

5.2.2 在100上放一个container,名字为bobo

5.2.3 设置一个pf-status,定义一个退出function key

5.2.4 添加一个ok_code

 

 

 

 

 

5.2.5 定义数据类型

data:

custom_container type ref to cl_gui_custom_container,

text_editor type ref to cl_gui_textedit.

5.2.6 在pbo中创建container和text editor

CREATE OBJECT CUSTOM_CONTAINER

EXPORTING

CONTAINER_NAME = 'BOBO'

CREATE OBJECT TEXT_EDITOR

EXPORTING

WORDWRAP_MODE = 1

PARENT = custom_container

1.1 事件处理

1.1.1 Application event

1).在前面定义的屏幕上加一个输出字段，以显示事件类型

2).定义事件所需要的结构以及内表

* Internal table for events that should be registred

i_events TYPE cntl_simple_events,

* Structure for oneline of the table

wa_events TYPE cntl_simple_event.

3).定义event handler

class lcl_event_handler definition.

public section.

class-methods:

catch_dbclick for event dblclick

of cl_gui_textedit importing sender.

endclass.

class lcl_event_handler implementation.

method catch_dbclick.

event_type = 'Event dbclick Raised!'.

endmethod.

endclass.

Note:该如何确定control里面都有什么事件呢？常用的event列表如下：

DBLCLICK

double click

F1

F1 pressed

F4

F4 pressed

CONTEXT_MENU

Context Menu requested (by pressing right mouse)

CONTEXT_MENU_SELECTED

Context Menu item selected

ON_DROP

drop occured

ON_DRAG

drag occured

ON_DROP_COMPLETE

complete drag and drop operation

4).在创建text editor之后注册事件

* Link the event handler method to the event and the

* TextEdit control

* 注意，因为是静态方法，所以用=>

SET HANDLER lcl_event_handler=>catch_dbclick FOR text_editor.

* Register the event in the internal table i_events

wa_events-eventid = cl_gui_textedit=>event_double_click.

wa_events-appl_event = 'X'. "This is an application event

append wa_events to i_events.

* Pass the table to the TextEdit control using method

* set_registred_events

call method text_editor->set_registered_events

exporting events = i_events.

5).测试程序效果

双击之后：

 

 

 

 

 

 

 

 

 

 

1.1.1 System event

基本上和application event差不多，只需要注意以下几点：

1).appl_event = space

2).不需要cl_gui_cfw=>Dispatch

3).需要重新设置ok_code

      call method cl_gui_cfw=>set_new_ok_code

        exporting new_code = 'XXX'.

4).需要重新处理新设置的OK_CODE

CASE OK_CODE.

WHEN ‘XXX’.

……

ENDCASE.

1.2 调用方法

1.2.1 可调用常用方法列表

SET_REGISTERED_EVENTS

注册事件

CONSTRUCTOR

创建对象的时候调用

DELETE_TEXT

删除所有文本

EMPTY_UNDO_BUFFER

清空UNDO缓存

FIND_AND_REPLACE

查找替换

FIND_AND_SELECT_TEXT

查找

GET_LINE_TEXT

取得某行的文本

GET_SELECTED_TEXT_AS_R3TABLE

把选择的文本放到内表中

GET_SELECTED_TEXT_AS_STREAM

get selected text as stream

GET_SELECTION_INDEXES

get absolute character indexes of selection

GET_SELECTION_POS

获得选择文本的位置

GET_TEXT_AS_R3TABLE

把文本放到内表

GET_TEXT_AS_STREAM

get whole text as stream from control (incl. "\r" and "\n")

GO_TO_LINE

跳到某一884C

HIGHLIGHT_LINES

高亮显示设定的行

HIGHLIGHT_SELECTION

把选择的文本高亮显示

INDENT_LINES

定义缩进的行

INDENT_SELECTION

对所选内容缩进

MAKE_SELECTION_VISIBLE

OPEN_LOCAL_FILE

打开本地文件，一般已经集成在toolbar里面了

PROTECT_LINES

set protect mode for a range of lines

PROTECT_SELECTION

set protect mode for selection

REGISTER_EVENT_CONTEXT_MENU

registration for event context menu

REGISTER_EVENT_DBLCLICK

registration for event double-click

REGISTER_EVENT_F1

registration for event key F1 pressed

REGISTER_EVENT_F4

registration for event key F4 pressed

REGISTER_EVENT_FILEDROP

egistration for event file dropped

REPLACE_ALL

replace all

SAVE_AS_LOCAL_FILE

save as local file

SELECT_LINES

select area of lines, not necessarily within visible part

SET_AUTOINDENT_MODE

set auto indent behavior on or off

SET_COMMENTS_STRING

set string which indicates the whole line is a comment

SET_FILEDROP_MODE

set file drop mode of TextEdit control

SET_FIRST_VISIBLE_LINE

SET_HIGHLIGHT_COMMENTS_MODE

SET_READONLY_MODE

set TextEdit control 'read only' flag true or flase

SET_SPACES_ON_INDENT

set number of spaces to use for indenting and unindenting

SET_SELECTION_POS

set text selection within control

SET_SELECTION_POS_IN_LINE

set selection to a certain line and position

SET_SELECTION_INDEXES

set selection using character indexes

SET_STATUS_TEXT

set status text in status bar of control

SET_TOOLBAR_MODE

set toolbar visibility of TextEdit control

SET_WORDBREAK_PROCEDURE

set wordbreak procedure

SET_WORDWRAP_BEHAVIOR

set wordwrap behavior of TextEdit control

UNINDENT_LINES

unindent a range of lines

UNINDENT_SELECTION

unindent selected text area

SET_NAVIGATE_ON_DBLCLICK

set navigate on double-click mode of TextEdit control

COMMENT_LINES

change a range of lines into comments

COMMENT_SELECTION

change a selected number of lines into comments

UNCOMMENT_LINES

uncomment a range of lines

UNCOMMENT_SELECTION

uncomment a selceted number of lines

DISPLAY_CONTEXT_MENU

display context menu

REGISTER_EVENT

event registration

UNREGISTER_EVENT

event registration

REGISTER_DRAGDROP

register at control framework for drag & drop

1.1.1 如何调用方法

我们以set_text_as_r3table为例介绍一下具体的步骤：

1).在前面的例子的屏幕上放置一个按钮,名字IMPORT,OK_CODE:IMP

2).定义一个call_meth类，里面包含load_text方法

class call_meth definition.

public section.

types:

begin of t_texttab,

line(255) type c,

end of t_texttab.

data:

i_texttab type table of t_texttab.

methods:

load_text.

private section.

methods:

add_data.

endclass.

class call_meth implementation.

method add_data.

* Create internal table with texts

APPEND 'This a method that fills the TextEdit control' TO i_texttab.

APPEND 'with a text.' TO i_texttab.

DO 10 TIMES.

APPEND 'hallo world !' TO i_texttab.

ENDDO.

endmethod.

method load_text.

Call method add_data.

* Load TextEdit control with texts

CALL METHOD text_editor->set_text_as_r3table

EXPORTING table = i_texttab.

IF sy-subrc > 0.

* Display an error message

EXIT.

ENDIF.

endmethod.

endclass.

3).调用flush方法，同步

* All methods that operates on controls are transferred to the frontend

* by a RFC calls. the method FLUSH is used

CALL METHOD cl_gui_cfw=>flush.

IF sy-subrc > 0.

* Display an error message

ENDIF.

4).在ok_code的处理的时候调用call_met->load_text

when 'IMP'.

create object call_meth_ref.

call method call_meth_ref->load_text.

5).测试结果：

点击import之后：

注意：因为每次调用的时候都会创建call_meth对象，所以会重新添加记录到内表，这样就避免了每次都要clear内表。

1.1 更多的方法和事件

我们上面用到了几个方法，分别是：

SET_TEXT_AS_R3TABLE：这个方法把内表中的数据发送到text control中

SET_TEXT_AS_STREAM: 这个基本和SET_TEXT_AS_R3TABLE差不多

SET_REGISTERED_EVENTS：注册事件

下面我们再介绍几个常用的方法：

5.5.1 GET_REGISTERED_EVENTS

参数:

EVENTS Type CNTL_SIMPLE_EVENTS

这个方法从CL_GUI_CONTROL继承而来,没有重新定义,作用是得到当前已经注册的事件,小例子如下:

定义数据:

data:

rg_events type CNTL_SIMPLE_EVENTS.

定义方法:

class call_meth definition.

public section.

types:

begin of t_texttab,

line(255) type c,

end of t_texttab.

data:

i_texttab type table of t_texttab.

data:

rg_events type CNTL_SIMPLE_EVENTS.

methods:

load_text,

load_events.

private section.

data:

indicator type c.

methods:

add_data importing ind type c.

endclass.

class call_meth implementation.

method add_data.

data: begin of rtab,

e_name(50) type c,

e_type(20) type c,

end of rtab.

data: itab like table of rtab.

data: r_event type CNTL_SIMPLE_EVENT.

case ind.

when '1'.

* Create internal table with texts

APPEND 'This a method that fills the TextEdit control'

TO i_texttab.

APPEND 'with a text.' TO i_texttab.

DO 10 TIMES.

APPEND 'hallo world !' TO i_texttab.

ENDDO.

when '2'.

call method text_editor->GET_REGISTERED_EVENTS

importing events = rg_events.

loop at rg_events into r_event.

case r_event-eventid.

when -601.

rtab-e_name = 'EVENT_DOUBLE_CLICK'.

when 2.

when 0.

when 1.

when 5.

when 6.

when 3.

rtab-e_name = 'EVENT_F1'.

when others.

endcase.

if r_event-appl_event = space.

rtab-e_type = 'System Event'.

else.

rtab-e_type = 'Application Event'.

endif.

append rtab to itab.

endloop.

call method text_editor->SET_TEXT_AS_STREAM

exporting TEXT = itab.

when others.

endcase.

endmethod.

method load_text.

call method add_data exporting ind = '1'.

* Load TextEdit control with texts

CALL METHOD text_editor->set_text_as_r3table

EXPORTING table = i_texttab.

IF sy-subrc > 0.

* Display an error message

EXIT.

ENDIF.

* All methods that operates on controls are transferred to the frontend

* by a RFC calls. the method FLUSH is used to determine when this is don

CALL METHOD cl_gui_cfw=>flush.

IF sy-subrc > 0.

* Display an error message

ENDIF.

endmethod.

method load_events.

call method add_data exporting ind = '2'.

call method cl_gui_cfw=>flush.

endmethod.

endclass.

定义OK_CODE处理

when 'IMP'.

if call_meth_ref is initial.

create object call_meth_ref.

call method call_meth_ref->load_text.

else.

call method call_meth_ref->load_text.

endif.

when 'GRE'.

if call_meth_ref is initial.

create object call_meth_ref.

call method call_meth_ref->load_events.

else.

call method call_meth_ref->load_events.

endif.

5.5.2 GET_SELECTION_POS和SET_SELECTION_POS

定义屏幕字段：

 

 

 

 

 

 

 

定义数据：

data:

fline type i,

tline type i,

fpos type i,

tpos type i,

gfline type i,

gtline type i,

gfpos type i,

gtpos type i.

处理ok_code:

when 'SSP'.

CALL METHOD text_editor->SET_SELECTION_POS

EXPORTING

FROM_LINE = fline

FROM_POS = fpos

TO_LINE = tline

TO_POS = tpos

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

others = 2

.

when 'GSP'.

CALL METHOD text_editor->GET_SELECTION_POS

IMPORTING

FROM_LINE = gfline

FROM_POS = gfpos

TO_LINE = gtline

TO_POS = gtpos

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

others = 2

.

5.5.3 SET_READONLY_MODE

这个方法设置text editor为只读模式，你在创建好text editor之后调用就可以。

CALL METHOD TEXT_EDITOR->SET_READONLY_MODE

EXPORTING

READONLY_MODE = 1 “0:可以修改 1：只读

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

INVALID_PARAMETER = 2

others = 3 .

1.1 总结

因为text editor比较简单，而且使用的不是很频繁，所以就不多介绍，估计这些也就够用了。

1. CL_GUI_SPLITTER_CONTAINER

这个类相对就简单太多了，主要功能就是container的拆分。

6.1首先我们先看看它的几个常用的方法：

CONSTRUCTOR：构造方法

主要参数：

PARENT -- Parent Container

ROWS –需要显示多少行，举例，你想把container分成上下两个部分，那么rows = 2

COLUMNS – 需要分成多少列

接下来主要是一些setter和getter方法

SET_BORDER 设置边框的格式，space：不设置 ‘X’：设置

效果如图：

Space:

‘X’:

SET_ROW_HEIGHT — GET_ROW_HEIGHT 用来设置行的高度

SET_COLUMN_WIDTH - GET_COLUMN_WIDTH 设置列的宽度

SET_ROW_MODE - GET_ROW_MODE 设置行的模式

SET_COLUMN_MODE - GET_COLUMN_MODE 设置列的模式

下面这四个方法原理一样，主要设置splitter的属性，例如能不能移动等等

SET_ROW_SASH - GET_ROW_SASH

SET_COLUMN_SASH - GET_COLUMN_SASH

6.2 小例子

我们就以前面介绍的texteditor来举例，在一个container中添加3个texteditor

6.2.1 创建屏幕，定义一下ok_code就可以了

6.2.2 定义类以及方法

首先初始化屏幕

*创建第一个splitter,水平分割初始化的cl_gui_container

create object splitter_h

exporting parent = cl_gui_container=>screen0

rows = 1

columns = 2.

* 设置边框

CALL METHOD splitter_h->SET_BORDER

EXPORTING

BORDER = 'X' “有边框的

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 设置模式

CALL METHOD splitter_h->SET_COLUMN_MODE

EXPORTING

MODE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 设置属性

CALL METHOD splitter_h->SET_COLUMN_SASH

EXPORTING

ID = 1

TYPE = splitter_h->TYPE_MOVABLE

VALUE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

*设置列的宽度

CALL METHOD splitter_h->SET_COLUMN_WIDTH

EXPORTING

ID = 1

WIDTH = 300

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 取得分开后的两个container

container_left = splitter_h->get_container( row = 1 column = 1 ).

container_right = splitter_h->get_container( row = 1 column = 2 ).

* 然后分割右边的container

create object splitter_v

exporting parent = container_right

rows = 2

columns = 1.

CALL METHOD splitter_v->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

CALL METHOD splitter_v->SET_row_MODE

EXPORTING

MODE = splitter_v->mode_absolute

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

CALL METHOD splitter_v->SET_row_height

EXPORTING

ID = 1

height = 150

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

* 取得分割右边container后的两个container

container_top = splitter_v->get_container( row = 1 column = 1 ).

container_bottom = splitter_v->get_container( row = 2 column = 1 ).

endmethod.

6.2.3 往已经分割好的container中添加texteditor

method add_control.

CREATE OBJECT editor_1

EXPORTING

PARENT = container_left .

CREATE OBJECT editor_2

EXPORTING

PARENT = container_top .

CREATE OBJECT editor_3

EXPORTING

PARENT = container_bottom .

endmethod.

6.2.4 测试程序代码

REPORT ZBOBO_SPLITER_CONTROL .

data: con type ref to cl_gui_container.

DATA OK_CODE LIKE SY-UCOMM.

class create_screen definition create private.

public section.

class-methods:

init_screen.

methods:

constructor,

add_control.

private section.

data:

splitter_h type ref to cl_gui_splitter_container,

splitter_v type ref to cl_gui_splitter_container,

container_left type ref to cl_gui_container,

container_right type ref to cl_gui_container,

container_top type ref to cl_gui_container,

container_bottom type ref to cl_gui_container,

editor_1 type ref to cl_gui_textedit,

editor_2 type ref to cl_gui_textedit,

editor_3 type ref to cl_gui_textedit.

methods:

fill_data.

endclass.

class create_screen implementation.

method init_screen.

data: screen type ref to create_screen.

create object screen.

endmethod.

method constructor.

data:

events type cntl_simple_events,

event type cntl_simple_event.

* container_left type ref to cl_gui_container,

* container_right type ref to cl_gui_container.

* container_top type ref to cl_gui_container,

* container_bottom type ref to cl_gui_container.

create object splitter_h

exporting parent = cl_gui_container=>screen0

rows = 1

columns = 2.

CALL METHOD splitter_h->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_MODE

EXPORTING

MODE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_SASH

EXPORTING

ID = 1

TYPE = splitter_h->TYPE_MOVABLE

VALUE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_WIDTH

EXPORTING

ID = 1

WIDTH = 300

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

container_left = splitter_h->get_container( row = 1 column = 1 ).

container_right = splitter_h->get_container( row = 1 column = 2 ).

create object splitter_v

exporting parent = container_right

rows = 2

columns = 1.

CALL METHOD splitter_v->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_v->SET_row_MODE

EXPORTING

MODE = splitter_v->mode_absolute

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_v->SET_row_height

EXPORTING

ID = 1

height = 150

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

container_top = splitter_v->get_container( row = 1 column = 1 ).

container_bottom = splitter_v->get_container( row = 2 column = 1 ).

call method add_control.

endmethod.

method add_control.

CREATE OBJECT editor_1

EXPORTING

PARENT = container_left .

CREATE OBJECT editor_2

EXPORTING

PARENT = container_top .

CREATE OBJECT editor_3

EXPORTING

PARENT = container_bottom .

endmethod.

method fill_data.

endmethod.

endclass.

start-of-selection.

call screen 100.

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'STATUS_100'.

* SET TITLEBAR 'xxx'.

CALL METHOD CREATE_SCREEN=>INIT_SCREEN.

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

6.2.5 测试结果如图：

6.2.6 更深探讨

我们把整个屏幕都分了，那么能不能我们只分割一个customer_container呢？

答案是当然可以，我们首先放一个customer container到屏幕上，然后创建custom container，然后在此基础上分割custom container.

创建屏幕：

添加代码：

data: con type ref to cl_gui_custom_container.

CREATE OBJECT con

EXPORTING

CONTAINER_NAME = 'BOBO' .

create object splitter_h

exporting parent = con

rows = 1

columns = 2.

看看效果：

到此splitter control介绍完毕。

Make you farmiliar with SAP control framework:

Control framework主要包含两个组件:

1. CL_GUI_CFW:

这个类里面主要包含一些静态方法（Static method）.

主要组件：

Dispatch:

此方法可以触发application event，如果不调用这个方法，application event会在PAI处理结束后自动调用。

Flush:

此方法用于同步automation queue。

Get_living_dynpro_controls:

返回所有active customer control。

Set_new_ok_code:

设置一个新的Function code.该方法只能用于system event的handler方法，以此可以触发PAI处理，然后我们可以对新的ok_code进行处理。

Get_current_event:

获得当前事件。

2. CL_GUI_OBJECT:

子类：CL_GUI_CONTROL

作用：我觉得最主要的功能是提供一个抽象的接口，里面的方法很少使用。

1. CL_GUI_CONTROL

这个就是我们主要要使用的超类了，先看一下它的子类：

CL_GUI_CONTROL

|_ CL_ALV_TREE_BASE

|_ CL_GUI_ALV_TREE

|_ CL_GUI_ALV_TREE_SIMPLE

|_ CL_GUI_PS_ALV_TREE_SIMPLE

|_ CL_GUI_ALV_GRID_BASE

|_ CL_GUI_ALV_GRID

|_ CL_ALV_DD_LISTBOX

|_ CL_FTR_GUI_ENTRY_ALV

|_ CL_HRPAYNA_GUI_ALV_GRID

|_ CL_CALENDAR_CONTROL_SCHEDULE

|_ CL_GUI_BARCHART

|_ CL_GUI_CALENDAR

|_ CL_GUI_CONTAINER

|_ CL_GUI_CUSTOM_CONTAINER

|_ CL_GUI_DIALOGBOX_CONTAINER

|_ CL_GUI_DOCKING_CONTAINER

|_ CL_GUI_EASY_SPLITTER_CONTAINER

|_ CL_GUI_GOS_CONTAINER

|_ CL_GUI_SPLITTER_CONTAINER

|_ CL_GUI_HTML_VIEWER

|_ CL_BFW_HTML_VIEWER_POC

|_ CL_GUI_PDF_VIEWER

|_ CL_GUI_PICTURE

|_ CL_GFW_GP_PRES_WEB

|_ CL_GUI_TEXTEDIT

|_ CL_GUI_TOOLBAR

|_ CL_TREE_CONTROL_BASE

|_ CL_GUI_SIMPLE_TREE

|_ CL_ITEM_TREE_CONTROL

|_ CL_GUI_COLUMN_TREE

|_ CL_GFW_COLUMN_TREE

|_ CL_HU_COLUMN_TREE

|_ CL_GUI_LIST_TREE

4. 关于事件

4.1两种类型：

Application event

System event

4.2关于application event使用步骤

-定义数据类型

it_events TYPE cntl_simple_events,

wa_event TYPE cntl_simple_event.

-添加事件

wa_event-eventid = cl_gui_textedit=>event_double_click.
wa_event-appl_event = ‘X’. “Application event
append wa_event to it_events.

-dispatch

CALL METHOD cl_gui_cfw=>dispatch.

4.3 关于system event使用步骤

-定义数据类型

go_event_handler TYPE REF TO cls_event_handler,

gi_events TYPE cntl_simple_events,

g_event TYPE cntl_simple_event.

-定义并且实施event handler类

CLASS cls_event_handler DEFINITION.

PUBLIC SECTION.

METHODS:

on_function_selected

FOR EVENT function_selected OF cl_gui_toolbar

IMPORTING fcode,

ENDCLASS.

CLASS cls_event_handler IMPLEMENTATION.

METHOD on_function_selected.

……

ENDMETHOD.

ENDCLASS.

-添加事件

       g_event-eventid         = <system-events>.

 g_event-appl_event   = space.    "This is an system event

APPEND g_event TO gi_events.

-注册事件

         CALL METHOD go_toolbar->set_registered_events

EXPORTING events = gi_events.

-创建event handler

CREATE OBJECT go_event_handler.

-设置event handler

         SET HANDLER go_event_handler->on_function_selected

           FOR go_toolbar.

5. CL_GUI_TEXTEDIT

5.1 Constructor

5.1.1 Text Editor

我们首先考虑如何创建texteditor,所有首先要知道的是constructor方法。

看其参数列表：

MAX_NUMBER_CHARS “能够插入的最大字符数，可选

STYLE “

WORDWRAP_MODE “换行模式 可选

“0:不换行 1:在边界换行 2:在固定位置换行

WORDWRAP_POSITION “换行位置,只有WORDWRAP_MODE=2时有效 可选

WORDWRAP_TO_LINEBREAK_MODE “

FILEDROP_MODE “

PARENT “必输 container

LIFETIME “一般不用 可选

NAME “名字 可选

5.1.2 Custom Container

参数：

PARENT “如果你想container里面包含container，那么这个参数就有用了

CONTAINER_NAME “名字 必输

STYLE “风格 可选

REPID “使用该container的程序

DYNNR “使用该constainer的屏幕

1.1 步骤

5.2.1 定义一个屏幕100

5.2.2 在100上放一个container,名字为bobo

5.2.3 设置一个pf-status,定义一个退出function key

5.2.4 添加一个ok_code

 

 

 

 

 

5.2.5 定义数据类型

data:

custom_container type ref to cl_gui_custom_container,

text_editor type ref to cl_gui_textedit.

5.2.6 在pbo中创建container和text editor

CREATE OBJECT CUSTOM_CONTAINER

EXPORTING

CONTAINER_NAME = 'BOBO'

CREATE OBJECT TEXT_EDITOR

EXPORTING

WORDWRAP_MODE = 1

PARENT = custom_container

1.1 事件处理

1.1.1 Application event

1).在前面定义的屏幕上加一个输出字段，以显示事件类型

2).定义事件所需要的结构以及内表

* Internal table for events that should be registred

i_events TYPE cntl_simple_events,

* Structure for oneline of the table

wa_events TYPE cntl_simple_event.

3).定义event handler

class lcl_event_handler definition.

public section.

class-methods:

catch_dbclick for event dblclick

of cl_gui_textedit importing sender.

endclass.

class lcl_event_handler implementation.

method catch_dbclick.

event_type = 'Event dbclick Raised!'.

endmethod.

endclass.

Note:该如何确定control里面都有什么事件呢？常用的event列表如下：

DBLCLICK

double click

F1

F1 pressed

F4

F4 pressed

CONTEXT_MENU

Context Menu requested (by pressing right mouse)

CONTEXT_MENU_SELECTED

Context Menu item selected

ON_DROP

drop occured

ON_DRAG

drag occured

ON_DROP_COMPLETE

complete drag and drop operation

4).在创建text editor之后注册事件

* Link the event handler method to the event and the

* TextEdit control

* 注意，因为是静态方法，所以用=>

SET HANDLER lcl_event_handler=>catch_dbclick FOR text_editor.

* Register the event in the internal table i_events

wa_events-eventid = cl_gui_textedit=>event_double_click.

wa_events-appl_event = 'X'. "This is an application event

append wa_events to i_events.

* Pass the table to the TextEdit control using method

* set_registred_events

call method text_editor->set_registered_events

exporting events = i_events.

5).测试程序效果

双击之后：

 

 

 

 

 

 

 

 

 

 

1.1.1 System event

基本上和application event差不多，只需要注意以下几点：

1).appl_event = space

2).不需要cl_gui_cfw=>Dispatch

3).需要重新设置ok_code

      call method cl_gui_cfw=>set_new_ok_code

        exporting new_code = 'XXX'.

4).需要重新处理新设置的OK_CODE

CASE OK_CODE.

WHEN ‘XXX’.

……

ENDCASE.

1.2 调用方法

1.2.1 可调用常用方法列表

SET_REGISTERED_EVENTS

注册事件

CONSTRUCTOR

创建对象的时候调用

DELETE_TEXT

删除所有文本

EMPTY_UNDO_BUFFER

清空UNDO缓存

FIND_AND_REPLACE

查找替换

FIND_AND_SELECT_TEXT

查找

GET_LINE_TEXT

取得某行的文本

GET_SELECTED_TEXT_AS_R3TABLE

把选择的文本放到内表中

GET_SELECTED_TEXT_AS_STREAM

get selected text as stream

GET_SELECTION_INDEXES

get absolute character indexes of selection

GET_SELECTION_POS

获得选择文本的位置

GET_TEXT_AS_R3TABLE

把文本放到内表

GET_TEXT_AS_STREAM

get whole text as stream from control (incl. "\r" and "\n")

GO_TO_LINE

跳到某一884C

HIGHLIGHT_LINES

高亮显示设定的行

HIGHLIGHT_SELECTION

把选择的文本高亮显示

INDENT_LINES

定义缩进的行

INDENT_SELECTION

对所选内容缩进

MAKE_SELECTION_VISIBLE

OPEN_LOCAL_FILE

打开本地文件，一般已经集成在toolbar里面了

PROTECT_LINES

set protect mode for a range of lines

PROTECT_SELECTION

set protect mode for selection

REGISTER_EVENT_CONTEXT_MENU

registration for event context menu

REGISTER_EVENT_DBLCLICK

registration for event double-click

REGISTER_EVENT_F1

registration for event key F1 pressed

REGISTER_EVENT_F4

registration for event key F4 pressed

REGISTER_EVENT_FILEDROP

egistration for event file dropped

REPLACE_ALL

replace all

SAVE_AS_LOCAL_FILE

save as local file

SELECT_LINES

select area of lines, not necessarily within visible part

SET_AUTOINDENT_MODE

set auto indent behavior on or off

SET_COMMENTS_STRING

set string which indicates the whole line is a comment

SET_FILEDROP_MODE

set file drop mode of TextEdit control

SET_FIRST_VISIBLE_LINE

SET_HIGHLIGHT_COMMENTS_MODE

SET_READONLY_MODE

set TextEdit control 'read only' flag true or flase

SET_SPACES_ON_INDENT

set number of spaces to use for indenting and unindenting

SET_SELECTION_POS

set text selection within control

SET_SELECTION_POS_IN_LINE

set selection to a certain line and position

SET_SELECTION_INDEXES

set selection using character indexes

SET_STATUS_TEXT

set status text in status bar of control

SET_TOOLBAR_MODE

set toolbar visibility of TextEdit control

SET_WORDBREAK_PROCEDURE

set wordbreak procedure

SET_WORDWRAP_BEHAVIOR

set wordwrap behavior of TextEdit control

UNINDENT_LINES

unindent a range of lines

UNINDENT_SELECTION

unindent selected text area

SET_NAVIGATE_ON_DBLCLICK

set navigate on double-click mode of TextEdit control

COMMENT_LINES

change a range of lines into comments

COMMENT_SELECTION

change a selected number of lines into comments

UNCOMMENT_LINES

uncomment a range of lines

UNCOMMENT_SELECTION

uncomment a selceted number of lines

DISPLAY_CONTEXT_MENU

display context menu

REGISTER_EVENT

event registration

UNREGISTER_EVENT

event registration

REGISTER_DRAGDROP

register at control framework for drag & drop

1.1.1 如何调用方法

我们以set_text_as_r3table为例介绍一下具体的步骤：

1).在前面的例子的屏幕上放置一个按钮,名字IMPORT,OK_CODE:IMP

2).定义一个call_meth类，里面包含load_text方法

class call_meth definition.

public section.

types:

begin of t_texttab,

line(255) type c,

end of t_texttab.

data:

i_texttab type table of t_texttab.

methods:

load_text.

private section.

methods:

add_data.

endclass.

class call_meth implementation.

method add_data.

* Create internal table with texts

APPEND 'This a method that fills the TextEdit control' TO i_texttab.

APPEND 'with a text.' TO i_texttab.

DO 10 TIMES.

APPEND 'hallo world !' TO i_texttab.

ENDDO.

endmethod.

method load_text.

Call method add_data.

* Load TextEdit control with texts

CALL METHOD text_editor->set_text_as_r3table

EXPORTING table = i_texttab.

IF sy-subrc > 0.

* Display an error message

EXIT.

ENDIF.

endmethod.

endclass.

3).调用flush方法，同步

* All methods that operates on controls are transferred to the frontend

* by a RFC calls. the method FLUSH is used

CALL METHOD cl_gui_cfw=>flush.

IF sy-subrc > 0.

* Display an error message

ENDIF.

4).在ok_code的处理的时候调用call_met->load_text

when 'IMP'.

create object call_meth_ref.

call method call_meth_ref->load_text.

5).测试结果：

点击import之后：

注意：因为每次调用的时候都会创建call_meth对象，所以会重新添加记录到内表，这样就避免了每次都要clear内表。

1.1 更多的方法和事件

我们上面用到了几个方法，分别是：

SET_TEXT_AS_R3TABLE：这个方法把内表中的数据发送到text control中

SET_TEXT_AS_STREAM: 这个基本和SET_TEXT_AS_R3TABLE差不多

SET_REGISTERED_EVENTS：注册事件

下面我们再介绍几个常用的方法：

5.5.1 GET_REGISTERED_EVENTS

参数:

EVENTS Type CNTL_SIMPLE_EVENTS

这个方法从CL_GUI_CONTROL继承而来,没有重新定义,作用是得到当前已经注册的事件,小例子如下:

定义数据:

data:

rg_events type CNTL_SIMPLE_EVENTS.

定义方法:

class call_meth definition.

public section.

types:

begin of t_texttab,

line(255) type c,

end of t_texttab.

data:

i_texttab type table of t_texttab.

data:

rg_events type CNTL_SIMPLE_EVENTS.

methods:

load_text,

load_events.

private section.

data:

indicator type c.

methods:

add_data importing ind type c.

endclass.

class call_meth implementation.

method add_data.

data: begin of rtab,

e_name(50) type c,

e_type(20) type c,

end of rtab.

data: itab like table of rtab.

data: r_event type CNTL_SIMPLE_EVENT.

case ind.

when '1'.

* Create internal table with texts

APPEND 'This a method that fills the TextEdit control'

TO i_texttab.

APPEND 'with a text.' TO i_texttab.

DO 10 TIMES.

APPEND 'hallo world !' TO i_texttab.

ENDDO.

when '2'.

call method text_editor->GET_REGISTERED_EVENTS

importing events = rg_events.

loop at rg_events into r_event.

case r_event-eventid.

when -601.

rtab-e_name = 'EVENT_DOUBLE_CLICK'.

when 2.

when 0.

when 1.

when 5.

when 6.

when 3.

rtab-e_name = 'EVENT_F1'.

when others.

endcase.

if r_event-appl_event = space.

rtab-e_type = 'System Event'.

else.

rtab-e_type = 'Application Event'.

endif.

append rtab to itab.

endloop.

call method text_editor->SET_TEXT_AS_STREAM

exporting TEXT = itab.

when others.

endcase.

endmethod.

method load_text.

call method add_data exporting ind = '1'.

* Load TextEdit control with texts

CALL METHOD text_editor->set_text_as_r3table

EXPORTING table = i_texttab.

IF sy-subrc > 0.

* Display an error message

EXIT.

ENDIF.

* All methods that operates on controls are transferred to the frontend

* by a RFC calls. the method FLUSH is used to determine when this is don

CALL METHOD cl_gui_cfw=>flush.

IF sy-subrc > 0.

* Display an error message

ENDIF.

endmethod.

method load_events.

call method add_data exporting ind = '2'.

call method cl_gui_cfw=>flush.

endmethod.

endclass.

定义OK_CODE处理

when 'IMP'.

if call_meth_ref is initial.

create object call_meth_ref.

call method call_meth_ref->load_text.

else.

call method call_meth_ref->load_text.

endif.

when 'GRE'.

if call_meth_ref is initial.

create object call_meth_ref.

call method call_meth_ref->load_events.

else.

call method call_meth_ref->load_events.

endif.

5.5.2 GET_SELECTION_POS和SET_SELECTION_POS

定义屏幕字段：

 

 

 

 

 

 

 

定义数据：

data:

fline type i,

tline type i,

fpos type i,

tpos type i,

gfline type i,

gtline type i,

gfpos type i,

gtpos type i.

处理ok_code:

when 'SSP'.

CALL METHOD text_editor->SET_SELECTION_POS

EXPORTING

FROM_LINE = fline

FROM_POS = fpos

TO_LINE = tline

TO_POS = tpos

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

others = 2

.

when 'GSP'.

CALL METHOD text_editor->GET_SELECTION_POS

IMPORTING

FROM_LINE = gfline

FROM_POS = gfpos

TO_LINE = gtline

TO_POS = gtpos

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

others = 2

.

5.5.3 SET_READONLY_MODE

这个方法设置text editor为只读模式，你在创建好text editor之后调用就可以。

CALL METHOD TEXT_EDITOR->SET_READONLY_MODE

EXPORTING

READONLY_MODE = 1 “0:可以修改 1：只读

EXCEPTIONS

ERROR_CNTL_CALL_METHOD = 1

INVALID_PARAMETER = 2

others = 3 .

1.1 总结

因为text editor比较简单，而且使用的不是很频繁，所以就不多介绍，估计这些也就够用了。

1. CL_GUI_SPLITTER_CONTAINER

这个类相对就简单太多了，主要功能就是container的拆分。

6.1首先我们先看看它的几个常用的方法：

CONSTRUCTOR：构造方法

主要参数：

PARENT -- Parent Container

ROWS –需要显示多少行，举例，你想把container分成上下两个部分，那么rows = 2

COLUMNS – 需要分成多少列

接下来主要是一些setter和getter方法

SET_BORDER 设置边框的格式，space：不设置 ‘X’：设置

效果如图：

Space:

‘X’:

SET_ROW_HEIGHT — GET_ROW_HEIGHT 用来设置行的高度

SET_COLUMN_WIDTH - GET_COLUMN_WIDTH 设置列的宽度

SET_ROW_MODE - GET_ROW_MODE 设置行的模式

SET_COLUMN_MODE - GET_COLUMN_MODE 设置列的模式

下面这四个方法原理一样，主要设置splitter的属性，例如能不能移动等等

SET_ROW_SASH - GET_ROW_SASH

SET_COLUMN_SASH - GET_COLUMN_SASH

6.2 小例子

我们就以前面介绍的texteditor来举例，在一个container中添加3个texteditor

6.2.1 创建屏幕，定义一下ok_code就可以了

6.2.2 定义类以及方法

首先初始化屏幕

*创建第一个splitter,水平分割初始化的cl_gui_container

create object splitter_h

exporting parent = cl_gui_container=>screen0

rows = 1

columns = 2.

* 设置边框

CALL METHOD splitter_h->SET_BORDER

EXPORTING

BORDER = 'X' “有边框的

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 设置模式

CALL METHOD splitter_h->SET_COLUMN_MODE

EXPORTING

MODE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 设置属性

CALL METHOD splitter_h->SET_COLUMN_SASH

EXPORTING

ID = 1

TYPE = splitter_h->TYPE_MOVABLE

VALUE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

*设置列的宽度

CALL METHOD splitter_h->SET_COLUMN_WIDTH

EXPORTING

ID = 1

WIDTH = 300

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

* 取得分开后的两个container

container_left = splitter_h->get_container( row = 1 column = 1 ).

container_right = splitter_h->get_container( row = 1 column = 2 ).

* 然后分割右边的container

create object splitter_v

exporting parent = container_right

rows = 2

columns = 1.

CALL METHOD splitter_v->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

CALL METHOD splitter_v->SET_row_MODE

EXPORTING

MODE = splitter_v->mode_absolute

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

CALL METHOD splitter_v->SET_row_height

EXPORTING

ID = 1

height = 150

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3 .

* 取得分割右边container后的两个container

container_top = splitter_v->get_container( row = 1 column = 1 ).

container_bottom = splitter_v->get_container( row = 2 column = 1 ).

endmethod.

6.2.3 往已经分割好的container中添加texteditor

method add_control.

CREATE OBJECT editor_1

EXPORTING

PARENT = container_left .

CREATE OBJECT editor_2

EXPORTING

PARENT = container_top .

CREATE OBJECT editor_3

EXPORTING

PARENT = container_bottom .

endmethod.

6.2.4 测试程序代码

REPORT ZBOBO_SPLITER_CONTROL .

data: con type ref to cl_gui_container.

DATA OK_CODE LIKE SY-UCOMM.

class create_screen definition create private.

public section.

class-methods:

init_screen.

methods:

constructor,

add_control.

private section.

data:

splitter_h type ref to cl_gui_splitter_container,

splitter_v type ref to cl_gui_splitter_container,

container_left type ref to cl_gui_container,

container_right type ref to cl_gui_container,

container_top type ref to cl_gui_container,

container_bottom type ref to cl_gui_container,

editor_1 type ref to cl_gui_textedit,

editor_2 type ref to cl_gui_textedit,

editor_3 type ref to cl_gui_textedit.

methods:

fill_data.

endclass.

class create_screen implementation.

method init_screen.

data: screen type ref to create_screen.

create object screen.

endmethod.

method constructor.

data:

events type cntl_simple_events,

event type cntl_simple_event.

* container_left type ref to cl_gui_container,

* container_right type ref to cl_gui_container.

* container_top type ref to cl_gui_container,

* container_bottom type ref to cl_gui_container.

create object splitter_h

exporting parent = cl_gui_container=>screen0

rows = 1

columns = 2.

CALL METHOD splitter_h->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_MODE

EXPORTING

MODE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_SASH

EXPORTING

ID = 1

TYPE = splitter_h->TYPE_MOVABLE

VALUE = 0

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_h->SET_COLUMN_WIDTH

EXPORTING

ID = 1

WIDTH = 300

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

container_left = splitter_h->get_container( row = 1 column = 1 ).

container_right = splitter_h->get_container( row = 1 column = 2 ).

create object splitter_v

exporting parent = container_right

rows = 2

columns = 1.

CALL METHOD splitter_v->SET_BORDER

EXPORTING

BORDER = 'X'

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_v->SET_row_MODE

EXPORTING

MODE = splitter_v->mode_absolute

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

CALL METHOD splitter_v->SET_row_height

EXPORTING

ID = 1

height = 150

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

.

container_top = splitter_v->get_container( row = 1 column = 1 ).

container_bottom = splitter_v->get_container( row = 2 column = 1 ).

call method add_control.

endmethod.

method add_control.

CREATE OBJECT editor_1

EXPORTING

PARENT = container_left .

CREATE OBJECT editor_2

EXPORTING

PARENT = container_top .

CREATE OBJECT editor_3

EXPORTING

PARENT = container_bottom .

endmethod.

method fill_data.

endmethod.

endclass.

start-of-selection.

call screen 100.

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'STATUS_100'.

* SET TITLEBAR 'xxx'.

CALL METHOD CREATE_SCREEN=>INIT_SCREEN.

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

6.2.5 测试结果如图：

6.2.6 更深探讨

我们把整个屏幕都分了，那么能不能我们只分割一个customer_container呢？

答案是当然可以，我们首先放一个customer container到屏幕上，然后创建custom container，然后在此基础上分割custom container.

创建屏幕：

添加代码：

data: con type ref to cl_gui_custom_container.

CREATE OBJECT con

EXPORTING

CONTAINER_NAME = 'BOBO' .

create object splitter_h

exporting parent = con

rows = 1

columns = 2.

看看效果：

到此splitter control介绍完毕。