1.?在SCREEN100 中創建一個定制控制(容器)，命名為PP

*&---------------------------------------------------------------------*
*&?Report??ZTEST_TEXT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT?ZTEST_TEXT.

DATA:?OK_CODE?TYPE?SY-UCOMM,
??????SAVE_OK?LIKE?OK_CODE.
*定制控制?編輯對象定義
DATA?CONTAINER?TYPE?REF?TO?CL_GUI_CUSTOM_CONTAINER.
DATA?EDITOR?TYPE?REF?TO?CL_GUI_TEXTEDIT.

DATA:?INIT,
M1(256)?TYPE?C?OCCURS?0,
LINE(256)?TYPE?C.

LINE?=?'請輸入：'.
APPEND?LINE?TO?M1.

CALL?SCREEN?100.

REFRESH?M1.
CALL?METHOD?EDITOR->GET_TEXT_AS_R3TABLE
??IMPORTING
????TABLE?=?M1.

LOOP?AT?M1?INTO?LINE.
??WRITE?/?LINE.
ENDLOOP.
*&---------------------------------------------------------------------*
*&??????Module??STATUS_0100??OUTPUT
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
MODULE?STATUS_0100?OUTPUT.
*??SET?PF-STATUS?'xxxxxxxx'.
*??SET?TITLEBAR?'xxx'.
??IF?INIT?IS?INITIAL.
????INIT?=?'X'.
????CREATE?OBJECT:?CONTAINER?EXPORTING?CONTAINER_NAME?=?'PP'.

????CREATE?OBJECT?EDITOR
??????EXPORTING
????????PARENT?????????????????????=?CONTAINER
????????WORDWRAP_MODE??????????????=?CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
????????WORDWRAP_POSITION??????????=?256
????????WORDWRAP_TO_LINEBREAK_MODE?=?CL_GUI_TEXTEDIT=>TRUE.
??ENDIF.

??CALL?METHOD?EDITOR->SET_TEXT_AS_R3TABLE
????EXPORTING
??????TABLE?=?M1.
ENDMODULE.?????????????????"?STATUS_0100??OUTPUT
*&---------------------------------------------------------------------*
*&??????Module??USER_COMMAND_0100??INPUT
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
MODULE?USER_COMMAND_0100?INPUT.
??SAVE_OK?=?OK_CODE.
??CLEAR?OK_CODE.
??CASE?SAVE_OK.
????WHEN?'EXIT'.
??????LEAVE?TO?SCREEN?0.
??ENDCASE.
ENDMODULE.?????????????????"?USER_COMMAND_0100??INPUT

原文：http://blog.csdn.net/ibeanode/article/details/4422837

總結

以上是生活随笔為你收集整理的SAP 对话屏幕长文本编辑框的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。