关闭

进度条实例

392人阅读 评论(1) 收藏 举报
分类:
*&---------------------------------------------------------------------*
*& Report  ZTEST_SCHEDULE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_SCHEDULE.
DO 100 TIMES.
  PERFORM SHOW_PROGRESSBAR USING SY-INDEX.
  WAIT UP TO SECONDS.
ENDDO.
MESSAGE 'Finished!'(FINTYPE 'S'.
*&---------------------------------------------------------------------*
*& Form show_progressbar
*&---------------------------------------------------------------------*
FORM SHOW_PROGRESSBAR USING UPCT TYPE I.
  DATAFBAR TYPE LENGTH 13,
  FMSG TYPE LENGTH 70.
  CONSTANTSPERCENT1 TYPE VALUE '▏',
  PERCENT2 TYPE VALUE '▎',
  PERCENT3 TYPE VALUE '▍',
  PERCENT4 TYPE VALUE '▌',
  PERCENT5 TYPE VALUE '▋',
  PERCENT6 TYPE VALUE '▊',
  PERCENT7 TYPE VALUE '▉',
  PERCENT8 TYPE VALUE '█'.
  DATAFMOD TYPE N,
  FTIM TYPE I,
  FFIELD TYPE LENGTH 10,
  FIDX TYPE LENGTH 3.
  FIELD-SYMBOLS<FS> TYPE C.
  FTIM UPCT DIV 8.
  FMOD UPCT MOD 8.
  CLEARFBAR.
  DO FTIM TIMES.
    CONCATENATE FBAR PERCENT8 INTO FBAR.
  ENDDO.
  IF FMOD NE 0.
    CONCATENATE 'percent' FMOD INTO FFIELD.
    ASSIGN (FFIELDTO <FS> .
    CONCATENATE <FS>  FBAR  INTO FBAR.
  ENDIF.
  FIDX SY-INDEX.
  CONCATENATE FBAR FIDX '%' INTO FMSG.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE UPCT
      TEXT       FMSG.

ENDFORM"show_progressbar


显示效果非常拉风:


1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4074172次
    • 积分:58633
    • 等级:
    • 排名:第51名
    • 原创:1707篇
    • 转载:2504篇
    • 译文:101篇
    • 评论:312条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你