Question

vfp表单中的数据怎样传递到程序里加以应用？

比方：在程序里调用表单，用表单构成一个友好的界面，提示输入一个圆的半径，然后传递回程序里，通过程序计算圆的周长及面积，再用到别的程序段里面，那么怎么实现将表单中“文本框”中的数据收集然后传递回程序里呢？注意，不想用accept 、input 及wait 等语句获得交互的用户输入值，也不想用过程来实现，同样，也不想在同一表单中实现计算并显示，或在另一表单中实现计算并显示，就想用表单的文本框获取，然后传递回程序里。如下图所示：





Answer 1

在程序第一行定义全局变量(程序、表单等都能传值)
public R
R=0

do form 请输入园的半径.scx

【在表单的确定按钮中写上：
R=val(thisform.text1.value) 将text1中的数值传给R，其他程序或表单再用这个R】

mj=3.14*R*R 其它变量来使用R值

Answer 2

直接执行程序，把文本框的值用参数赋值过去。
do programname.prg with p1.
其中P1就是文本框的值
同时在程序的顶部中定义一个形参
lparameter p1