abap中选择屏幕上添加按钮，按钮上添加文字和图片，并添加响应事件

最新推荐文章于 2026-08-21 12:19:38 发布

原创最新推荐文章于 2026-08-21 12:19:38 发布 · 3.3k 阅读

8 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

SAP

本文介绍了一个 ABAP 程序示例，展示了如何在 SAP 的 SELECTION-SCREEN 中添加自定义按钮，并实现相应的功能。通过创建图标、设置按钮文本及处理用户命令等步骤，实现了两个自定义按钮的功能，当用户点击按钮时会显示相应的消息。

**选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK main WITH FRAME TITLE TEXT-001.

PARAMETERS:p_matnr LIKE mara-matnr OBLIGATORY,
           p_werks LIKE marc-werks,
           p_vkorg LIKE tvta-vkorg,
           p_vtweg LIKE tvta-vtweg.

SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(15) but1 USER-COMMAND bt1.
SELECTION-SCREEN PUSHBUTTON 18(15) but2 USER-COMMAND bt2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK main.

INITIALIZATION.
*  t1 = '输入栏名称'.
  "but1 = '按键'.
  CALL FUNCTION 'ICON_CREATE' "给按钮添加图标和文本
    EXPORTING
      name   = icon_check   "按钮的图片的名字
      text   = '检查'                   "按钮的文本
      info   = '检查'
    IMPORTING
      result = but1
    EXCEPTIONS
      OTHERS = 0.

  CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
    EXPORTING
      name   = icon_execute_object   " 按钮的图片的名字
      text   = '扩充'                   "按钮的文本
      info   = '扩充'
    IMPORTING
      result = but2
    EXCEPTIONS
      OTHERS = 0.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'BT1'.
      MESSAGE  '您单击了自定义按钮'  TYPE 'S'.
    WHEN 'BT2'.
      MESSAGE  '您单击了自定义按钮222'  TYPE 'S'.
  ENDCASE.

标签

#abap中选择屏幕上添加按钮，按钮上添加文字和图片，并添加响