ABAP中TEXT編輯事例

  *&---------------------------------------------------------------------*
*& Report  ZTEXTSAMPLE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEXTSAMPLE.
data: vc_con  type  REF  TO cl_gui_custom_container.
data: vc_edit  TYPE  REF  TO CL_GUI_TEXTEDIT.
data: ok_code  TYPE sy-ucomm.
data: tline  type string  VALUE  '123'.
START- OF-SELECTION.
call  SCREEN  100.
*&---------------------------------------------------------------------*
*&      Module  MD_CREATE_OBJECT  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE MD_CREATE_OBJECT  OUTPUT.
if vc_con  is  INITIAL.
     CREATE OBJECT vc_con
       EXPORTING
        CONTAINER_NAME =  'CON'.
     CREATE OBJECT VC_EDIT
       EXPORTING
        PARENT                     = vc_con
        WORDWRAP_MODE              = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
        WORDWRAP_POSITION          =  80
        WORDWRAP_TO_LINEBREAK_MODE = CL_GUI_TEXTEDIT=>TRUE.
     CALL  METHOD vc_edit->SET_TOOLBAR_MODE
       EXPORTING
        TOOLBAR_MODE = CL_GUI_TEXTEDIT=>FALSE.
     CALL  METHOD VC_EDIT->SET_STATUSBAR_MODE
       EXPORTING
        STATUSBAR_MODE = CL_GUI_TEXTEDIT=>FALSE.
     CALL  METHOD vc_edit->SET_TEXTSTREAM
       EXPORTING
         TEXT                   = TLINE
       EXCEPTIONS
        ERROR_CNTL_CALL_METHOD =  1
        NOT_SUPPORTED_BY_GUI   =  2
         OTHERS                 =  3
            .
*  CALL METHOD CL_GUI_CFW=>FLUSH
*    EXCEPTIONS
*      OTHERS = 1.
     endif.
ENDMODULE.                  " MD_CREATE_OBJECT  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100  OUTPUT.
  SET PF-STATUS  'ZTEXT'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                  " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100  INPUT.
   if ok_code =  'EXIT'.
     LEAVE  to  SCREEN  0.
   ENDIF.
   if ok_code =  'SAVE'.
    BREAK-POINT.
     endif.
ENDMODULE.                  " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  MD_REFRESH_TEXT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE MD_REFRESH_TEXT  INPUT.
*  BREAK-POINT.
   CALL  METHOD VC_EDIT->GET_TEXTSTREAM
*    EXPORTING
*      ONLY_WHEN_MODIFIED     = 1
     IMPORTING
       TEXT                   = TLINE
*    IS_MODIFIED            =
     EXCEPTIONS
      ERROR_CNTL_CALL_METHOD =  1
      NOT_SUPPORTED_BY_GUI   =  2
       OTHERS                 =  3.
   CALL  METHOD CL_GUI_CFW=>FLUSH
     EXCEPTIONS
       OTHERS =  1.
ENDMODULE.                  " MD_REFRESH_TEXT  INPUT

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/268503/viewspace-612792/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/268503/viewspace-612792/