SAP 选择屏幕的收起与展开（Collapse and Expand）

今天做的一个项目中用到将SELECTION-SCREEN 展开和收起的功能，现总结如下： 首先 include <icon>.因为要用到 icon_data_area_expand 和icon_data_area_collapse
这两个图标， 其次：就干脆贴代码显示算了，语言能力太差了。 *&———————————————————————*
*& Report  ZVOL_SCREEN_COLLAPSE
*&
*&———————————————————————*
*&
*&
*&———————————————————————* REPORT  ZVOL_SCREEN_COLLAPSE.
include <icon>.
SELECTION-SCREEN:BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN : PUSHBUTTON 50(10) volcano USER-COMMAND pbvol modif id NEW.
SELECTION-SCREEN:BEGIN OF LINE.
PARAMETERS: r1 RADIOBUTTON  GROUP gr1.
SELECTION-SCREEN:COMMENT 4(10)  text-002 for field r1 modif id new.
PARAMETERS: R2 RADIOBUTTON  GROUP gr1.
SELECTION-SCREEN:COMMENT 17(10)  text-003 for field r1 modif id new.
SELECTION-SCREEN:END OF LINE. SELECTION-SCREEN:BEGIN OF LINE.
PARAMETERS : c1 AS CHECKBOX DEFAULT ‘X’ modif id old.
SELECTION-SCREEN:COMMENT 4(20)  text-004 modif id old.
PARAMETERS: V_TEXT(4) TYPE C modif id old.
SELECTION-SCREEN:end OF LINE. SELECTION-SCREEN:END OF BLOCK bk1. DATA : FULL(1). AT SELECTION-SCREEN.
  IF SY-UCOMM EQ ‘PBVOL’. IF FULL EQ SPACE.
      FULL = ‘X’.
    ELSE.
      FULL = ‘ ‘.
    ENDIF.
  ELSE.
    EXIT.
  ENDIF. AT SELECTION-SCREEN OUTPUT.
* IF FULL EQ  ‘X’.
    LOOP AT SCREEN.
      if screen-group1 = ‘OLD’.
        screen-active    = ‘0′.
        screen-input     = ‘0′.
        screen-output    = ‘0′.
        modify screen.
      endif.
    ENDLOOP.
    CALL FUNCTION ‘ICON_CREATE’
 EXPORTING
   NAME                        = icon_data_area_expand
*   TEXT                        = ‘niha’
   INFO                         = ‘expand’
      ADD_STDINF                  = ‘ ‘
 IMPORTING
   RESULT                      = volcano
        . ELSE.
    LOOP AT SCREEN.
      if screen-group1 = ‘OLD’.
        screen-active    = ‘1′.
        screen-input     = ‘1′.
        screen-output    = ‘1′.
        modify screen.
      endif.
    ENDLOOP.
    CALL FUNCTION ‘ICON_CREATE’
 EXPORTING
   NAME                        = icon_data_area_collapse
*   TEXT                        = ‘niha’
  INFO                         = ‘collapse’
  ADD_STDINF                  = ‘ ‘
 IMPORTING
   RESULT                      = volcano
        . ENDIF. 几点注意事项： 1.modif id ,就是modification group id,会自动的 system table screen 的group1  里面。 2.对于FM icon_create 里面的RESULT = VOLCANO ,其中的VOLCANO就是你要改变图标的这个屏幕字段名称, INFO  = ‘collapse’ ,就是鼠标移到这个图标的附近时要显示的文字。 其余大家可以自己试验吧。 3.如果你发现你要显示的图标是一线乱7八拐的字符，那是因为你的字段长度太短了，不信你可以将 PUSHBUTTON 50(20) volcano 里面的20改为10，或更小试试？

总结

以上是生活随笔为你收集整理的SAP 选择屏幕的收起与展开（Collapse and Expand）的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。