发 option,停止自动 thisform.optiongroup2.click() endif 在 check2-click(): if this.value=1 ?thisform.text1.value &;&;打印,但每点击一次方更新. Endif 在 check3-click(): if this.value=1 thisformmandgroup1mand2.click() endif 12, 微调控件 Spinner , increment 属性:步长 Value 属性:设定值的类型,如 0.00 Spinnerhighvalue 属性:设定最高限值 Spinnerlowvalue 属性:设定最低限值 操作: ① 数值型微调例: A.spinner1 控件属性: value=0.00 &;&;一定要有两位小数,否则步长看不见 increment=0.01 Spinnerhighvalue=200000(默认值) Spinnerlowvalue=-200000(默认值) B.Text1 右击/生成器/选择数值型,并将 value 设置为 5 C.Form1-init() public a &;&;必须要把程序中的变量 a 设为全局变量, &;&;如果在程序中,则 a 的初值设为 0 后,总是 0
5
&;&;播放音乐
D.spinner1-interactivechange 事件编程: if a
xml:namespace prefix = this.value thisform.text1.value= thisform.text1.value+2 else thisform.text1.value= thisform.text1.value-this.increment endif a=this.value 注意 1 />
的 value 要赋值,否则运行时为空,因为无所参照. 注意 2:文本框右击生成器选择数据类型. ② 字符微调例 A.Spinner2 控件属性: value=1 &;&;是最低限值 increment=1 Spinnerhighvalue=7 Spinnerlowvalue=1 &;&;限值范围为 1-7 B.Spinner2-interactivechange 事件编程: Thisform.Text2.Value=Subs("星期一星期二星期三星期四星期五星期六星期天 ",this.value*6-5,6) Thisform.Refresh C.注意 1,在属性窗口向文本框的 value 属性赋数字,则文本框会自动成为数值 型,因此,value 值必须写字符. 注意 2,必须要用 spinner1-interactivechange 事件,不能使用 spinner1-click 事 件 13,编辑框 Edit , 编辑框用于编辑字符类型的内存变量,数组元素,字段或备注字段,允许换 行并能用方向键和滚动条. 将编辑框的 cotrosource 属性设置为内存变量名,字段或备注字段即可. 操作: ① 在表单上引入编辑框 Edit1,text1,command1,label1 ② 在属性窗口设置属性 Edit1.cotrosource=xsxx.简历 Text1.cotrosource=xsxx. Command1.caption="修改" ③ 程序 command1-click(): if not eof() skip else go top endif
6
thisform.label1.caption="记录号:"+str(recn(),2) &;&;记录号是数值型 thisform.refresh &;&;使表单上所有控件的信息刷新,否则记录不下行. form1-load():use xsxx form1-unload():use &;&;打开要修改的表 &;&;退出前关闭表
14,列表框控件 Listbox(只能阅读,不能修改,可显示多项 只能阅读, , 只能阅读 不能修改,可显示多项) 列表框控件提供一些选项和信息的可滚动列表. ① rowsourcetype=0 需在程序中用 additem 和 addlistitem 在列表框增加项 ② rowsourcetype=1 在 rowsource 属性输入数据项列表 ③ rowsourcetype=2 用打开的表的字段作为列表项,rowsource 指定表名, columncount 属性指定按顺序显示的字段列数. ④ rowsourcetype=3 在列表中为 SQL 查询语句的运行结果. ⑤ rowsourcetype=4 与 rowsourcetype=3 相仿 操作:与表联接 例列表框 1,列表框中显示指定数量的字段 在表单上引入 list1 rowsourcetype=2 rowsource=xsxx columncount=4 &;&;如果 7,则全部字段均显示 form1-load():use xsxx &;&;打开要修改的表 form1-unload():use &;&;退出前关闭表 检查:右击列表框/生成器