拿这个证明你是高手：用vf编辑简易计算器的程序

来源：百度知道 编辑：UC知道 时间：2024/06/05 17:38:10
用vf怎样编辑程序才能使得点“1”，那么文本框中就出现“1”啊？还有为什么命令按钮可以把名称改成数字，而改成等号就不行啊？网上有人给出了程序，但是无论怎么运行都不行啊，，希望高手予以解答，，告诉我的网站也可以，希望计算器中的按钮多一点，例如sin，cos，tan之类的也有

1 首先定义一个全局变量（或者自定义一个属性假定为ZFC,这里使用的自定义属性）。
2 在表单的init事件中将其清空：thsiform.zfc=''
3 自定义一个方法XS，用于文本框显示：
THISFORM.TEXT1.VALUE=THISFORM.ZFC
4 “1”的click事件：
THISFORM.ZFC=ALLT(THISFORM.ZFC)+'1'
THISFORM.XS
“2”的click事件：
THISFORM.ZFC=ALLT(THISFORM.ZFC)+'2'
THISFORM.XS
...
一直到“0”，类上。
5 如果想支持键盘操作,FORM1.keypress事件：
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nKeyCode=55 &&7
THISFORM.COMMAND1.CLICK
CASE nKeyCode=52 &&4
THISFORM.COMMAND2.CLICK
CASE nKeyCode=49 &&1
THISFORM.COMMAND3.CLICK
CASE nKeyCode=48 &&0
THISFORM.COMMAND4.CLICK
......

CASE nKeyCode=43 &&+
THISFORM.COMMAND10.CLICK
CASE nKeyCode=45 &&-
THISFORM.COMMAND12.CLICK
......
ENDCASE
可以通过 ?inkey(0),查到键盘的ASCII值。
这里COMMANDn你要根据表单的实际名称填写。

6 “=”的click:
THISFORM.JS
THISFORM.XS

7 自定义一个方法JS用于计算结果：
K=THISFORM