vfp表单设计实例

在表单设计器中如下图设置控件和属性

在确定按钮中设置command1.click方法：

thisform.text1.value=""

n=reccount()

for i=1 to n

if thisform.list1.selected(i)=.t.

  thisform.text1.value=thisform.text1.value+thisform.list1.list(i)

endif

endfor

在退出按钮中设置command2.click方法：thisform.release

运行结果如下图：