ABAP状态栏将自定义按钮置灰

由于目前不能上传站外图片,遗憾~~~~~

1.SE38 创建程序名为:ZLRB_001

2.SE41 为程序创建状态为:TEST001,创建两个测试按钮。

CS1        CS2
测试一     测试二

3. 在菜单栏 ‘GOTO ’->  ‘Attributes’ -> ‘Pushbutton’ 选择‘display all’ 保存,激活。

4.在程序中增加如下代码

REPORT  ZLRB_001.

TYPE-POOLS:slis.
DATA:rt_extab TYPE slis_t_extab.

INITIALIZATION.

START-OF-SELECTION.
*  APPEND 'CS1' TO rt_extab.
  APPEND 'CS2' TO rt_extab.
  SET PF-STATUS 'TEST001' EXCLUDING rt_extab.

  WRITE '两个按钮,左边那个被灰掉了'.
  WRITE / '虽然显示但是不可以按'.

*AT USER-COMMAND.
  IF sy-ucomm = 'BACK'.
    LEAVE PROGRAM.
  ELSEIF sy-ucomm = 'CS1'.
    REFRESH rt_extab.
    APPEND 'CS2' TO rt_extab.
    SET PF-STATUS 'TEST001' IMMEDIATELY EXCLUDING rt_extab.
  ENDIF.

 

5.操作完成,就可以看到一个按钮变成灰色的。

 

你可能感兴趣的:(ABAP)