选择屏幕上添加按钮，按钮上添加图片和文字

代码：

 
REPORT  ZTEST15.
TABLES: sscrfields.
TYPE-POOLS:slis,ole2.
TYPE-POOLS icon.
* 选择屏幕

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK  b1 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 search. " 定义搜索按钮
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '检索条件'.
"but1 = '搜  索'.
  CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
    EXPORTING
      name   = ICON_SEARCH   " 按钮的图片的名字
      text   = '搜   索'                   "按钮的文本
      info   = 'Search'
    IMPORTING
      RESULT = but1
    EXCEPTIONS
      OTHERS = 0.

运行效果为：