Visual Foxpro 数据库10周教案.ppt

第6章 表单的基本知识 6.7代码 6.7.1 对象的引用 在面向对象的程序设计中常常需要引用对象，或引用对象的属性、事件与调用方法程序。可以用下面列出的这些关键字来引用对象： Parent：引用对象的直接容器对象。 This：引用对象或对象的过程或事件。 Thisform：引用包容这个对象的表单。 ThisformSet：引用包容这个对象的表单集。(表单集的概念参阅9.1.2节) 引用格式：引用关键字后跟一个点号，再写出被引用对象或者对象的属性，事件或方法程序。 例如： This.Caption 引用对象(表单或控件)的Caption属性 Thisform.Cls 引用表单的Cls方法程序，清除表单中的图形和 文本 允许多级引用，但要逐级引用。 例如： Thisform.Commandl.Caption 引用本表单的Commandl命令按钮 的Caption属性 This.Commandl.Click 本对象的Command1命令按钮的 Click事件 控件也可引用包含它的容器，格式为： This.Parent 其中This表示控件，Parent表示容器。 例如： This.Parent.Command1.Caption 表示引用本对象的容器(例如表单)的Commandl命令按钮的Caption属性。 第6章 表单的基本知识 6.7代码 6.7.2 用代码设置属性的值 在设置属性值时可以取默认值，也可在属性窗口中进行更改。属性值也可通过编写事件代码来设置，现说明如下。 1、属性值设置 属性值设置格式： ObjectName.Property=Setting 其中Setting为要设置的属性值。例如： This.FontBold=.T. 设置本对象的FontBold属 性的值为.T. This.Parent.Caption=time() 设置本对象的容 器的Caption属性的值为当前时间 2、颜色设置 RGB函数能返回一种颜色，它的格式为： RGB(RedValue，GreenValue，BlueValue) 参数RedValue、GreenValue、BlueValue分别表示颜色中含有红、绿、蓝的成分，范围都是0到255。例如： Thisform.ForeColor＝RGB(255,0,0) 本表单前景色 设置为红色 颜色的RGB参数不必硬记，在对象属性窗口中可以查看。方法是先在属性列表中选定某个需要指定颜色的属性，然后通过属性设置框右边的对话按钮选定一种颜色，属性设置框中便会显示这种颜色的RGB参数值。 表6-7列出了8种标准色的RGB参数。 表6-7 标准色的RGB参数 3、表单举例 [例6-10] 设计一个如下图所示的计算器，并实现标签中说明的功能。 操作步骤如下： 步骤一、新建一个名为jsqc的表单，设置表单的Caption属性值为：计算器；Icon的属性值为你喜欢的图标文件。 步骤二、在表单中添加一个文本框控件，16个命令按钮控件，一个标签控件，两个形状控件，将所有命令按钮的属性Height和属性Width均设置为25，并设置命令按钮及标签的Caption属性值如上一页图所示的外观，调整控件到合适的位置，将形状控件置后，并设置SpecialEffect的属性值为：0。 设置命令按钮的Caption属性值为“=”号时，在Caption属性设置处输入： == 执行一下表单，外观是否与要求相同？如不合适再作调整。 “” 步骤三、设置文本框的Format属性的值设置为T，定义一个名为x的表单属性。 步骤四、设置所有标有0~9以及“.”的命令按钮的Click事件的代码如下： IF Thisform.x 如果刚按过=按钮 This.Parent.Text1.Value= 清除式子 Thisform.x=.F. 表示已按其它按钮 ENDIF This.Parent.Text1.Value=This.Parent.Text1.Value+This.Caption 操作步骤如下： 设置所有标有