ITPub博客

首页 > Linux操作系统 > Linux操作系统 > ABAP中TEXT編輯事例

ABAP中TEXT編輯事例

原创 Linux操作系统 作者:yixiangcheng 时间:2009-08-21 08:29:22 0 删除 编辑
 *&---------------------------------------------------------------------*
*& 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/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2009-08-18

  • 博文量
    1
  • 访问量
    3452