一、给选择屏幕按钮添加图标和文本:ICON_CREATE
1.定义按钮:
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 2(15) but1 USER-COMMAND view. "定义搜索按钮
SELECTION-SCREEN PUSHBUTTON 30(15) but2 USER-COMMAND edit. "定义维护按钮
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
PERFORM frm_init_data
2,.调用函数:
FORM frm_init_data.
* 定义 but1 = '查看' but2 = '维护'
* 给按钮添加图标和文本
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_display
text = '查看'
info = '查看'
IMPORTING
result = but1
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_display
text = '维护'
info = '维护'
IMPORTING
result = but2
EXCEPTIONS
OTHERS = 0.
ENDFORM.