ABAP-选选择屏幕上添加按钮并响应

SELECTION-SCREEN XXX.
SELECTION-SCREEN  BEGIN  OF  BLOCK   XXX WITH  FRAME  TITLE  t1.  "选择屏幕块
 

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
 SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND bt1. " BT1作为按钮驱动事件码（如下按钮操作响应代码所示）
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '输入栏名称'.
"but1 = '按键'.
  CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
    EXPORTING
      name   = ICON_SEARCH   " 按钮的图片的名字
      text   = '功能名称'                   "按钮的文本
      info   = '功能'
    IMPORTING
      RESULT = but1
    EXCEPTIONS
      OTHERS = 0.

*在单击时驱动
AT SELECTION-SCREEN.
      case sscrfields-ucomm.
        when 'BT1'.
           MESSAGE  '您单击了自定义按钮'  TYPE 'S'.
          ENDCASE.

转载自：http://blog.sina.com.cn/s/blog_6ffd503d01011ffw.html

http://wfly2004.blog.163.com/blog/static/117642720116591650812/