vfp 表单设计

2024-12-24 12:15:20

推荐回答（2个）

回答1：

命令按钮里面
thisform.label2.visible=.T.
t=alltrim(thisform.text1.value)
b=""
n=len(t)
for i=n to 1 step -1
b=b+subs(t,i,1)
endfor
thisform.label2.caption=b
在Dblclic 里面
thisform.release

回答2：

逆序显示按钮的CLICK事件
lcInput = alltrim(thisform.text1.text)
lcOutput = ""
for i= len(lcInput) to 1 step -1
lcOutput = lcOutput + substr(lcInput,i,1)
Endfor
thisform.label2.caption = lcOutput

表单的CLICK事件
Thisform.Release