* 1、创建文本框

 DATA: g_container TYPE REF TO cl_gui_custom_container,

         g_editor TYPE REF TO cl_gui_textedit.

   IF g_container IS INITIAL.

     "创建 协查处理需求 编辑框

     CREATE OBJECT g_container

       EXPORTING

         container_name              = 'GC_CCTRL'

       EXCEPTIONS

         cntl_error                  =

         cntl_system_error           =

         create_error                =

         lifetime_error              =

         lifetime_dynpro_dynpro_link =  .

     IF sy-subrc <> .

       EXIT .

     ENDIF .

     CREATE OBJECT g_editor

       EXPORTING

         max_number_chars       =     "字数限制

         parent                 = g_container

         wordwrap_mode         =        "边框模式，设置为0可以去掉编辑框的滚动条

         wordwrap_position     =      "换行宽度

       EXCEPTIONS

         error_cntl_create      =

         error_cntl_init        =

         error_cntl_link        =

         error_dp_create        =

         gui_type_not_supported =

         OTHERS                 = .

     IF sy-subrc <> .

       MESSAGE e000(oo ) WITH '创建编辑框失败 ！' .

     ENDIF .

    ENDIF .

 "wordwrap_mode：边框模式，设置为0可以去掉编辑框的滚动条设置为2可以自动换行

 * 2、设置文本框的内容

 * PS: set_text_as_stream 无法设置多行，需要设置多行，用 set_text_as_r3table

 FORM frm_set_text  USING pi_text TYPE char100 .

   DATA:

     BEGIN OF ls_text ,

       line TYPE char255,

       END OF ls_text ,

         lt_text LIKE TABLE OF ls_text .

   CHECK pi_text IS NOT INITIAL .

   ls_text-line = pi_text .

   APPEND ls_text TO lt_text .

   CALL METHOD g_editor->delete_text.

   CALL METHOD g_editor->set_text_as_stream

     EXPORTING

       text            = lt_text

     EXCEPTIONS

       error_dp        =

       error_dp_create =

       OTHERS          = . 

 ENDFORM.   

 * 3、读取文本

 FORM frm_get_text  CHANGING pc_text TYPE char100 .

   DATA:

     BEGIN OF ls_lines,

       line () TYPE c,

     END OF ls_lines,

     lt_lines LIKE TABLE OF ls_lines.

   DATA: ls_textlines TYPE tline,

         lt_textlines TYPE STANDARD TABLE OF tline.

   DATA: l_string TYPE string. 

   CALL METHOD g_editor->get_text_as_stream

     IMPORTING

       text                   = lt_lines

     EXCEPTIONS

       error_dp               =

       error_cntl_call_method =

       OTHERS                 = . 

   CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'

     EXPORTING

       language    = sy-langu

     TABLES

       text_stream = lt_lines

       itf_text    = lt_textlines.

   CLEAR: l_string .

   LOOP AT lt_textlines INTO ls_textlines.

     CONCATENATE l_string ls_textlines INTO l_string .

   ENDLOOP.

   IF l_string IS NOT INITIAL .

     pc_text = l_string.

   ENDIF.

 ENDFORM.

 * 4、清除文本内容

      CALL METHOD g_editor_xcclxq->delete_text.

 * 5、g_editor->set_statusbar_mode( 0 ).  "去除状态栏

         g_editor->set_toolbar_mode(  ).    "去除工具栏

         g_editor->set_readonly_mode (  ).   "只读