表单的二三题 表单的二三题,要设置默认目录 1.
属性=DATE =DATE() 1. 在属性中设置 TEXT1 的 VALUE 属性=DATE() 事件编写代码如下 编写代码如下: 2. 对 SPINNER1 的 UPCLICK 事件编写代码如下: THISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUE+1 事件编写代码如下 编写代码如下: 对 SPINNER1 的 DOWNCLICK 事件编写代码如下: THISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUETHISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUE-1
2.
事件的代码编写如下: 对“计算”的 CLICK 事件的代码编写如下: 计算” a=thisform.text1.value b=thisform.text2.value b=thisform.text2.value c=thisform.text3.value b$"*/+if B="/" AND c=0 or not b$"*/+-" thisform.text4.value="非法计算 非法计算" thisform.text4.value="非法计算" ENDI DO CASE CASE B="+" thisform.text4.value=A+C B="CASE B="-" thisform.text4.value=Athisform.text4.value=A-C CASE B="*" thisform.text4.value=A*C B="/" CASE B="/" thisform.text4.value=A/C ENDC
3.
事件编写代码如下: 对“计算”的 CLICK 事件编写代码如下: 计算” x=thisform.text1.value do case case x<10 y=x/3 case x>=10 and x<20 y=2*x+1 CASE X>=20 Y=3*XY=3*X-10 ENDC THISFORM.TEXT2.VALUE=Y
4.
事件编写代码如下: 对“更新”的 CLICK 事件编写代码如下: 更新” a=thisform.spinner1.value a=thisform.spinner1.value b=thisform.spinner2.value c=thisform.spinner3.value thisform.shape1.backcolor=rgb(a,b,c) do case case thisform.shape1.backcolor=rgb(255,0,0) thisform.shape1.curvature=0 case thisform.shape1.backcolor=rgb(0,0,255) thisform.shape1.curvature=99 thisform.shape1.curvature=99 endc
5.
对“删去数字字符后的字符串是”的 CLICK 事件的代码 删去数字字符后的字符串是” 编写如下: 编写如下: a=thisform.text1.value &;&;输入的字符串的长度 b=len(a) &;&;输入的字符串的长度 c="" d="" for i=1 to b c=substr(a,i,1)&;&; &;&;将每个字符单独取出 c=substr(a,i,1)&;&;将每个字符单独取出 c$"0123456789"$$ $$排除包含数字的情况 if not c$"0123456789"$$排除包含数字的情况 d=d+c endi endfor thisform.text2.value=d &;&;如果判断大小写 如果判断大小写, &;&;如果判断大小写,小写字母 a 的 ASCII 码值为 97 ASCII 大写字母 A 的 ASCII 码值为 65
6.
补充介绍 列表框的方法选介: 列表框的方法选介: ADDITEM:当 ADDITEM:当 ROWSOURCETYPE 值为 0 时,使用本方法可以在
列表中添加一个新项 例如:THISFORM.LIST1.ADDITEM( ”), :THISFORM.LIST1.ADDITEM(“ ),字符型 例如:THISFORM.LIST1.ADDITEM( ),字符型 增加一个项” ” 就为 LIST1 增加一个项 REMOVEITEM: 当 ROWSOURCETYPE 值为 0 时,使用本方法可 以在列表中删除一项 格式:THISFORM.LIST1.REMOVEITEM(NINDEX) 格式:THISFORM.LIST1.REMOVEITEM(NINDEX) 1~LISTCOUNT,数值型 NINDEX 的取值范围是 1~LISTCOUNT,数值型 添加并计算”的 事件代码编写如下: 对”添加并计算 的 CLICK
事件代码编写如下: 添加并计算 a=thisform.text1.value thisform.list1.additem(a) thisform.list2.additem(str(len(a)))
7.
天空”(PAGE1) 事件代码如下: 1) 对”天空 (PAGE1)的 CLICK 事件代码如下: 天空 (PAGE1)的 this.backcolor=rgb(0,0,255) 沙漠”(PAGE2) 事件代码如下: 2) 对”沙漠 (PAGE2)的 CLICK 事件代码如下: 沙漠 (PAGE2)的 this.backcolor=rgb(255,255,0 255,255,0) this.backcolor=rgb(255,255,0) 雪原”(PAGE3) 事件代码如下: 3) 对”雪原 (PAGE3)的 CLICK 事件代码如下: 雪原 (PAGE3)的 this.backcolor=rgb(255,255,255) r=rgb(255,255,255 this.backcolor=rgb(255,255