***text editer文本編輯器<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
DATA:ref_container_tec TYPE REF TO cl_gui_custom_container.
DATA:ref_edit TYPE REF TO cl_gui_textedit.
DATA:text_line(85), "work area
it_text LIKE STANDARD TABLE OF text_line. "text table
在PBO裏
****文本編輯器
IF ref_container_tec IS INITIAL.
CREATE OBJECT ref_container_tec
EXPORTING
container_name = 'CONTROL_AREA2'
EXCEPTIONS
OTHERS = 6.
CREATE OBJECT ref_edit
EXPORTING
parent = ref_container_tec
EXCEPTIONS
OTHERS = 6 .
CALL METHOD ref_edit->set_toolbar_mode "工具欄
EXCEPTIONS
OTHERS = 3.
CALL METHOD ref_edit->set_statusbar_mode "狀態欄
EXCEPTIONS
OTHERS = 3.
text_line = 'Description of Picture1:'(tl1).
APPEND text_line TO it_text.
CALL METHOD ref_edit->set_text_as_r3table
EXPORTING
table = it_text
EXCEPTIONS
OTHERS = 3.