DATA GV_TEXT TYPE STRING. "进度条文本信息
DATA GV_PERCENTAGE TYPE P . "进度条图标GV_PERCENTAGE = '50'.
GV_TEXT = '获取FTP服务器的图片信息,请等待....'. "文本自己写就成PERFORM FRM_PROGRESS_SHOW USING GV_TEXT GV_PERCENTAGE.
"参数PERCENTAGE 1~100 控制图标进程
"参数TEXT 用来显示文本
FORM FRM_PROGRESS_SHOW USING P_GV_TEXT P_GV_PER.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = P_GV_PER
TEXT = P_GV_TEXT
EXCEPTIONS
OTHERS = 1.
ENDFORM.
"可以通过变量灵活运用
DATA(LINE_SPILT) = LINES( GT_SPILT ).
LOOP AT GT_SPILT ASSIGNING FIELD-SYMBOL(<FS_SPILT>).GV_PERCENTAGE = SY-TABIX / LINE_SPILT * 100.
GV_TEXT = '下载图片发给xx系统,' && SY-INDEX && '/' && LINE_SPILT && '请等待....'.
PERFORM FRM_PROGRESS_SHOW USING GV_TEXT GV_PERCENTAGE.ENDLOOP.