Question

命令按钮的事件怎么写。里面的命令怎么写。vfp

VFP设计一个表单,在表单中放置两个文本框,一个命令按钮，其中文本框2为只读。当按下命令按钮时，将文本框1中输入的字符串中所有空格去掉，然后在文本框2输出。

Answer 1

1、把文本框2的readonly属性设置为.t.
2、命令按钮的click代码如下
a=thisform.text1.value
x=''
for i=1 to len(a)
y=subs(a,i,1)
if y<>' '
x=x+y
endif
next
thisform.text2.value=x

Answer 2

假定两个文本框,一个命令按钮的控件名分别是 TEXT1,TEXT2,COMMAND1。
命令按钮的代码：
local c_string
c_string = alltrim(thisform.text1.value)
do while at(" ",c_string)>0
c_string = stuff(c_string,at(" ",c_string),1,"")
ENDDO
thisform.text2.value=c_String

Answer 3

thisform.text2.value = chrtran(thisform.text1.value,' ','')