4-2015-VFP第78部分(控件多重循环循环辅助语句数组).pptx

Visual Foxpro 6.0;要点： 1.掌握表单设计中常用控件的使用 2. 掌握循环辅助语句的使用 3.数组在程序中的应用 4.了解多重循环（考试不涉及）;进一步讨论对象的事件和方法;1、事件（Event）教科书P9 事件是作用于对象的某些行为和动作。 事件(Event) 是预先定义好的特定的动作，不能修改、增加和删除，由用户或系统激活。 对象不同，事件也不完全相同。;事件;圆面积程序修改1;;圆面积程序修改2;;2、方法（Event）教科书P10 方法是指对象自身可以进行的动作或行为。它实际上是对象本身所内含的一些特殊的函数或过程，以便实现对象的一些固有功能。可以通过调用对象的方法实现该对象的动作及行为。 ;直接调用的对象方法程序不多，主要有：刷新(Refresh)、释放(Release)、设置焦点(setfocus)。 在面向对象的程序设计过程中，可为对象创建新的??性和方法程序。;(教材P6) 【例1-2】设计如图1-11所示表单，表单运行后，在两个文本框中分别输入一个数，比较大小，光标移到文本框text3时，在其中显示最大数；单击“关闭”按钮，可以关闭表单。 ;①文本框text3的“GotFocus”事件代码： Thisform.text3.value=max(thisform.text1.value,thisform.text2.value) ② “关闭”按钮的“Click”事件的程序代码： Thisform.release ;表单设计中的常用控件;生成器锁定;输入类控件;输出类控件;选择类控件; 控制类控件; 容器类控件;标签（label）;命令按钮（command）;Click事件代码： if mand2.caption=可用 mand2.caption=不可用 Tmand2.enabled=.f. else mand2.caption=可用 Tmand2.enabled=.t. endif;文本框（text）;改写圆面积程序;组合框（Combo）;;计时器（timer）;【例】运行表单后在标签label1中自动显示时钟。 ;命令按钮组（commandGroup）;【例】运行表单后单击命令按钮组中的不同按钮，标签label1的文本改为相应的字体，单击关闭按钮可以关闭表单。 ;命令按钮组Commandgroup1的click事件代码如下： do case case this.value=1 thisform.label1.fontname=宋体 case this.value=2 thisform.label1.fontname=黑体 case this.value=3 thisform.label1.fontname=楷体 case this.value=4 thisform.label1.fontname=隶书 case this.value=5 thisform.release endcase;1表示逻辑真，0表示逻辑假;;“斜体”复选框的click事件代码 if this.value=1 thisform.label1.fontitalic=.t. else thisform.label1.fontitalic=.f. endif;选项按钮组（OptionGroup）;【例】如图所示，编写一个简易计算器。要求在文本框Text1中输入数字，然后在OptionGroup1中选择运算符，然后在Text2中输入另一个数字，按回车，则在文本框Text3中显示计算结果。请编写Text2的LostFocus事件代码。 ;列表框（List）;【例】设计如图所示表单，单击“输出”按钮，列表框中显示一个由“*”构成的直角三角形。（利用列表框的AddItem方法） ;【例】运行表单后单击“输出”按钮，在列表框中输出斐波拉切数列的前20项，每行显示5个数。(注：斐波拉切数列的前两个数是1、1，第三个数是前两个数的和，以后的每个数都是前两个数之和。) ;列表框的columncount属性初值为5，columnLines属性初值为.F.，columnwidths属性初值为30,30,30,30,30;;“输出”命令按钮的“click”事件代码： f1=1 f2=1 thisform.list1.addlistitem( 1,1,1) thisform.list1.addlistitem( 1,1,2) x=1 y=3 for i=3 to 20 f3=f1+f2 thisform.list1