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

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.