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

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

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK  b1 WITH FRAME TITLE t1. "选择屏幕块
              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.

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

转载于:http://blog.itpub.net/23495244/viewspace-694662/