在VFP中实现进度条

来源：计算机等级考试发布时间：2012-08-28 计算机等级考试视频评论

　　这样一个简单的进度条示例就是：

THISFORM._progressbar1.RESET(0)
nCnt=0
nTotal=1E5
THISFORM._progressbar1.iBasis=nTotal
THISFORM._progressbar1.iProgress=1
FOR nCnt=1 TO nTotal
THISFORM._progressbar1.UPDATE(nCnt)
ENDFOR

===================

也可以用容器+shape+txtlabel自己制作进度条

进度条对象.init

THIS.BarShape.Height = THIS.Height
THIS.BarShape.Width = 0
THIS.TxtLabel.Alignment = 2
THIS.TxtLabel.Left = (THIS.Width-THIS.TxtLabel.Width)/2
THIS.TxtLabel.Top = (THIS.Height-THIS.TxtLabel.Height)/2
THIS.TxtLabel.Caption = "0％"
THIS.Percent=0

进度条对象.show

LPARAMETERS lpPercent
*--合法性检验　

IF lpPercent<0
lpPercent=0
endif
IF lpPercent>100
lpPercent=100
ENDIF
THIS.Percent = lpPercent
THIS.BarShape.Width = THIS.Width*(lpPercent/100)
THIS.TxtLabel.Caption = ALLT(STR(lpPercent))+"％"
THIS.Refresh

使用：

THISFORM.ProgressBar1.Show(i)

此处i应当是任务的相对数

比如：i=已经处理记录数/总记录数*100

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。