item("退出系统") 2、表单的 MouseMove 事件代码: LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.list1.visible=.f.
6
3.表单的 init 事件代码: cc=sys(16) start=at(":",cc)-1 cend=rat("\",cc,1) set default to (substr(cc,start,cend-start+1)) thisform.list1.visible=.f. thisform.label1.visible=.f. 4、命令按钮“开始”的 click 事件代码:thisform.list1.visible=.t. 5、列表框控件 List1 的 click 事件代码: do case this.listindex case this.selected(5) &;&;退出系统 thisform.release case this.selected(4) &;&;去掉背景 thisform.picture="" this.visible=.f. case th
is.selected(3) &;&;显示背景 thisform.picture="风景.jpg" this.visible=.f. case this.selected(2) &;&;关闭动画 thisform.timer1.interval=0 thisform.label1.visible=.f. this.visible=.f. case this.selected(1) &;&;显示动画 thisform.timer1.interval=40 thisform.label1.backstyle=0 thisform.label1.visible=.t. this.visible=.f. endcase6、计时器控件 timer1 的 timer 事件代码: if thisform.label1.left+thisform.label1.width>0 thisform.label1.left=thisform.label1.left-3 else thisform.label1.left=thisform.width endif 四、运行“表单 1.scx” 。 本文来自编程入门网:bianceng/Programming/vfp/200903/11293.htm
7
选项按钮组控件(OPtiongroup) ,也可以叫做“单选按钮组” ,是 vfp 的
常用控件之一。在 vfp 基础教程-单选按钮组一文中已经给出了该控件的常用属性和方法, 并且给出了一个将该 控件的 controlsource 属性与表中某一字段绑定的例子。本文来补充一个对该控件的 click 事 件进行编程的例子,运行界面如下图:
在上图中可以根据用户的选择计算长方形的周长或面积。制作步骤如下: 一、新建表单,将其 caption 属性值设为“编程入门网-计算长方形周长及面积” ,AutoCenter 属性值设为.t.,height 属性值设为 235,width 属性值设为 280,保存为“计算长方形周长及 面积.scx” 。 二、向表单添加两个 label 控件:label1 和 label2,将它们的 caption 属性值依次设置为“请 输入长: ”和“请输入宽:,AutoSize 属性值均设为.t.,BackStyle 属性值均设为“0-透明” ” 。 三、在 label 控件的右侧添加两个文本框控件 Text1 和 Text2,把它们的位置依次与 label1 和 label2 对应起来。 四、在 label 控件及文本框控件的下方添加一个选项按钮组控件 Optiongroup1,首先将它的 AutoSize 属性值设置为.t., ButtonCount 属性值设置为 3; 然后右击选项按钮组控件选 “编辑” 命令,在它的编辑状态下拖动其中的三个选项按钮成水平排列,并依次选中三个选项按钮, 将它们的 caption 属性值依次设置为“周长”“面积”和“周长及面积” 、 ,如下图:
8
五、在选项按钮组控件的下方添加两个 label 控件:label3 和 label4,将它们的 visible 属性值 设置为.f.;在 label 控件的右侧添加一个命令按钮控件 command1,将它的 caption 属性值设 置为“退出” 。适当调整各控件的大小和在表单上的位置,表单设计器如下图所示:
六、添加事件代码: (一)选项按钮组 Optiongroup1 的 click 事件代码: thisform.label3.visible=.t. thisform.label4.visible=.t. a=2*(val(thisform.text1.value)+val(thisform.text2.value)) b=val(thisform.text1.value)*val(thisform.text2.value) do case case this.value=1 thisform.label3.caption="长方形的周长为:"+str(a) thisform.label4.caption="" case this.value=2 thisform.
label4.caption="长方形的面积为:"+str(b)
9
thisform.label3.caption="" case this.value=3 thisform.label3.caption="长方形的周长为:"+str(a) thisform.label4.caption="长方形的面积为:"+str(b) endcase(二)命令按钮 command1 的 click 事件代码:thisform.release 七、运行“计算长方形周长及面积.scx” 。
<