ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Screen BUTTON的图标和文字更改

Screen BUTTON的图标和文字更改

原创 Linux操作系统 作者:hzq2010 时间:2011-05-07 14:51:12 0 删除 编辑

PROGRAM z_barry_test_button_icon .

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code,
      output(8) TYPE c.
DATA: button1(50) ,flag .

START-OF-SELECTION.
  button1 = 'Start'.
  CALL SCREEN 100.

*----------------------------------------------------------------------*
*  MODULE user_command_0100 INPUT
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BUTTON_EXIT'.
      LEAVE PROGRAM.
    WHEN 'BUTTON_1'.
      utput = 'Button 1'(001).
    WHEN 'BUTTON_2'.
    WHEN OTHERS.
      utput = save_ok.
  ENDCASE.
  IF flag = 'X'.
    button1 = '@0P\QDisplay text@测试'.
    flag = ''.
  ELSE.
    CALL FUNCTION 'ICON_CREATE'
      EXPORTING
        name                  = 'ICON_DISPLAY'
        text                  = 'TEST'
        info                  = 'Display text'
        add_stdinf            = 'X'
      IMPORTING
        RESULT                = button1
      EXCEPTIONS
        icon_not_found        = 1
        outputfield_too_short = 2
        OTHERS                = 3.
    flag = 'X'.
  ENDIF.
ENDMODULE.                    "user_command_0100 INPUT


*PROCESS BEFORE OUTPUT.
*
*PROCESS AFTER INPUT.
*  MODULE USER_COMMAND_0100.

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

下一篇: 弹出窗口的ALV
请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    172134