第六计算机等级考试二级VF程序设计精要.ppt

（3）“在…之后”的click事件代码： this.parent.parent.text1.enabled=.F. this.parent.parent.text2.enabled=.T. this.parent.parent.text3.enabled=.F. this.parent.parent.text4.enabled=.F. （4）“在…之间”的click事件代码： this.parent.parent.text1.enabled=.F. this.parent.parent.text2.enabled=.F. this.parent.parent.text3.enabled=.T. this.parent.parent.text4.enabled=.T. （5）“添加”按钮的CLICK事件代码 for i=1 to this.parent.list1.listcount if this.parent.list1.selected(i) this.parent.list2.additem(this.parent.list1.list(i)) endif Endfor （6）“移去”按钮的click事件代码 i=1 do while i=this.parent.list2.listcount if this.parent.list2.selected(i) this.parent.list2.removeitem(i) else i=i+1 endif enddo （7）“确认”按钮的click事件代码 c= m=thisform.pageframe1.page1.optiongroup1.value do case case m=2 c=出生日期ctod(thisform.pageframe1.page1.text1.value) case m=3 c=出生日期ctod(thisform.pageframe1.page1.text2.value) case m=4 c=出生日期ctod(thisform.pageframe1.page1.text3.value) and; 出生日期ctod(thisform.pageframe1.page1.text4.value) endcase items= if thisform.pageframe1.page2.list2.listcount=0 items=* else for i=1 to thisform.pageframe1.page2.list2.listcount items=items+thisform.pageframe1.page2.list2.list(i)+ endfor items=subs(items,1,len(items)-1) endif if c== select items from 学生 else select items from 学生 where c endif 线条控件是一种用来显示水平、竖直或对角线条的图形控件，所显示的线条不能直接更改。 1.添加线条控件 操作步骤如下： （1）单击控件工具栏中的线条控件工具； （2）在表单上需要添加线条的位置按下鼠标左键，向水平或竖直方向拖曳时，画出的线条为直线；当向对角方向拖曳时，画出的线条是斜线。 2.属性设置 BorderWidth：指定一个线条的宽度，范围是 0 ~ 8192。如果属性的设置大于 1，则忽略 BorderStyle 属性的设置。 BorderStyle: 指定对象的边框样式，表6.4中列出了属性的取值和边框样式对应关系。 设置 说明 设置 说明 0 透明 4 点划线 1 (默认值)实线。边框的外边缘就是形状的外边缘 5 双点划线 2 虚线 6 内实线 3 点线 表6.4 线条类型 形状控件工具可创建一个矩形或圆角矩形，圆或椭圆的控件。 1.属性设置 Curvature：属性决定图形边线的曲率，其变化范围是 0 到 99。 0，表示无曲率，用来创建矩形；99，表示最大曲 率，创建圆和椭圆。 同一个控件对象，当曲率从0开始不断增大时，图形也随之变化。 BackColor：设置所画图形的背景色，即可以各种颜色画出实心 图形。 说明 ： BackStyle属性及BorderStyle属性与图像控件和线条控件的用法相同。时当BorderStyle取不同值时，可绘制具有不同边线的图形，如图所示。