sap process bar 显示

进度条在一些游戏加载文件中经常使用  特别是要加载一些大文件  

加载进程比较慢的时候  给用户一个提醒  不然还以为死机了  或者程序出问题 有可能在任务管理器里直接杀死进程 给一个进程条可以直观的给出信息  现在正在运行并且运行

sap 里也提供一个这样的function 下面是有人写的一个例子  可做参考
REPORT zprogressbar.
DO 100 TIMES.
PERFORM show_progressbar USING sy-index.
WAIT UP TO 1 SECONDS.
ENDDO.
MESSAGE 'Finished!'(fin) TYPE 'S'.
*&---------------------------------------------------------------------*
*& Form show_progressbar
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PCT text
*----------------------------------------------------------------------*
FORM show_progressbar USING upct TYPE i.
DATA: fbar TYPE c LENGTH 13,
fmsg TYPE c LENGTH 70.
CONSTANTS: percent1 TYPE c VALUE '▏',
percent2 TYPE c VALUE '▎',
percent3 TYPE c VALUE '▍',
percent4 TYPE c VALUE '▌',
percent5 TYPE c VALUE '▋',
percent6 TYPE c VALUE '▊',
percent7 TYPE c VALUE '▉',
percent8 TYPE c VALUE '█'.
DATA: fmod TYPE n,
ftim TYPE i,
ffield TYPE c LENGTH 10,
fidx TYPE c LENGTH 3.
FIELD-SYMBOLS: <fs> TYPE c.
ftim = upct DIV 8.
fmod = upct MOD 8.
CLEAR: fbar.
DO ftim TIMES.
CONCATENATE fbar percent8 INTO fbar.
ENDDO.
IF fmod NE 0.
CONCATENATE 'percent' fmod INTO ffield.
ASSIGN (ffield) TO <fs>.
CONCATENATE fbar <fs> INTO fbar.
ENDIF.
fidx = sy-index.
CONCATENATE fbar fidx '%' INTO fmsg.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = upct
text = fmsg.
.
ENDFORM. "show_progressbar

 

http://blog.sina.com.cn/s/blog_701594f40100l8wq.html