如何实现在这个功能，谢了
如何实现在这个功能，谢了在一个表单中text1...等及按钮1，点击按钮1-------执行a.prg，
1、在a中如得到TEXT1的值及改变text1的值？
2、在表单有一进度条，想根据A.PRG处理数据的量的大小来实现，如何做？
在网上找的程序，原程序可以实现，但被加密，用VD解出，重编译运行出错：
.activeform.label11.caption = "1 0 0 %" 在些出错“WITH/ENDWITH之外的表达式无效"(程序中并无用with/endwith）
store "" to .fm2,.fm4 出错与上面一样，把”.“去掉改store "" to fm2,fm4可以过
A= SUBSTR(ALLTRIM(STR(.ACTIVEFORM.TEXT1.value)),3,6)出错与上面一样
cs = mmjk/.ACTIVEFORM.SHAPE2.width
cscs = cs
.activeform.shape2.width = 0-------------这个动态显示百分之几的值，但在这里也出错，同上提示
