知道 thisform.processbar1.visible=.t
thisform.processbar1.max=
thisform.processbar1.value 意思

但不知道怎么让进度条滚动

谢谢老师

用VFP实现进度条
1.在VFP中建立一新表单,并将其Caption设定为"进度条",Autocenter属性设为.T.;
  2.在表单上建立一个文本框text1,width为200、height为25、top为112、left为87, 并将其Enabled属性设为.T.;
  3.在表单上建立一个标签label1,设定其top为113、left为87、width为200、height 为23、autosize为.F.、backstyle为0、forecolor为(0,0,160)、fontsize为12、 Caption为' 0%';
  4.在表单上建立一个标签label2,设定其top为113、left为87、width为0、height为 23、forecolor为(255,255,255)、backcolor为(0,0,160),fontsize为12;
  5.在表单底部建立一个按钮，设定其Caption属性为"开始"，并在其Click编辑窗中 键入以下代码：
public lhw
if lhw=.f.
  this.caption='正在处理'
  this.enabled=.f.
  do while thisform.label2.width< 200
    thisform.label2.width=thisform.label2.width+1
    thisform.label1.caption=space(11)+allt(
    str(thisform.label2.width/2,3,0))+'%'
    thisform.label2.caption=thisform.label1.caption
    i=inkey(1)
  enddo
  lhw=.t.
  this.caption='结束'
  this.enabled=.t.
  thisform.text1.enabled=.f.
else
  release thisform
  lhw=.f.
endif
  6.运行该表单,即可得到效果很好的进度条。

我的 表单Click 代码是给表加列
alter table  表\b203累1.dbf  ADD c101c1 n(20,0)
alter table  表\b203累1.dbf  ADD c101z1 n(20,2)
alter table  表\b203累1.dbf  ADD c101l1 n(20,2)
alter table  表\b203累1.dbf  ADD c101c2 n(20,0)
alter table  表\b203累1.dbf  ADD c101z2 n(20,2)
alter table  表\b203累1.dbf  ADD c101l2 n(20,2)
alter table  表\b203累1.dbf  ADD c101lc n(20,2)
alter table  表\b203累1.dbf  ADD c101dy n(20,0)
alter table  表\b203累1.dbf  ADD c101ty n(20,0)
alter table  表\b203累1.dbf  ADD c101l3 n(20,2)
alter table  表\b203累1.dbf  ADD c101l4 n(20,2)
alter table  表\b203累1.dbf  ADD c101l5 n(20,2)
alter table  表\b203累1.dbf  ADD c101a1 n(20,0)
请问您那个进度条click 代码怎么加到里面

我这段文章是数年前从网上下载来的，按文制作过一次。

当你点击某个按钮，需要进度条的，就加在这个按钮里。当然你需要作一定的修改，让进度条的代码执行与你的代码执行吻合才行。

用两个不同颜色的矩形控件，其中上面的矩形控件宽度从0动态变化到另一个矩形控件相同的宽度，就是一个非常不错的进度条例子。