在屏幕中实现按钮效果

很多桌面程序的设计习惯通过按钮来实现与用户动作的交互。在SAP选择开发中也可以实现按钮功能。

REPORT ztest_sum.
TABLES:sscrfields. "引用屏幕字段属性结构
TYPE-POOLS icon.   "声明引用图标

SELECTION-SCREEN:  "创建按钮对象
PUSHBUTTON 2(10) but1 USER-COMMAND cli1,  "2是按钮的位置，10是按钮的长度

PUSHBUTTON 20(30) but2 USER-COMMAND cli2 VISIBLE LENGTH 10.  "10为按钮正式输出长度，语法VISIBLE LENGTH控制了按钮的输出长度

INITIALIZATION.
  CONCATENATE icon_message_information '按钮1' INTO but1.    "为按钮设置初始化文本及图标
  CONCATENATE icon_message_information '按钮2' INTO but2.

AT SELECTION-SCREEN. "捕捉按钮功能代码，也可以用SY-UCOMM代替SSCRFIELDS参数
  CASE sscrfields.
    WHEN 'CLI1'.
      MESSAGE '按钮1事件' TYPE 'I'.
    WHEN 'CLI2'.
      MESSAGE '按钮2事件' TYPE 'I'.
    WHEN OTHERS.
  ENDCASE.

效果如下：