实验面向对象的程序设计

《实验面向对象的程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验七面向对象的程序设计一、实验目的1．掌握面向对象程序中对象、属性、方法和事件等概念。2．了解面向对象程序设计的特点。3．掌握对象的相对引用和绝对引用。4．掌握自定义类的创建、修改和使用。二、实验内容与步骤1.掌握并了解根据需要向表单添加任意数量的新属性，并引用表单的其他属性和方法引用它们。（1）表单添加新属性的步骤如下：①选择“文件/新建/表单”，进入表单设计器。②选择“表单”菜单中的“新建属性”命令，打开“新建属性”对话框。③在“名称”框中输入属性名Newx。④有选择地在“说明”框中输入新建属性的说明信息

2、。这些信息将显示在“属性”窗口的底部。④在表单的“属性”窗口的列表框中显示出新建的属性Newx。（2）表单添加新方法的步骤如下：①选择“表单”菜单中的“新建方法程序”命令，打开“新建方法程序”对话框。②在“名称”框中输入方法名newf。③有选择地在“说明”框中输入新建方法的说明信息。④在表单的“属性”窗口的列表框中显示出新建的方法Newf。可以双击它，打开代码编辑窗口，然后输入或修改方法的代码:Thisform.newx=Thisform.newx+5Wait“newx=”+str(Thisform.newx)

3、Window⑤若删去用户添加的属性或方法，可以选择“表单”菜单中的“编辑属性/方法程序”命令，打开对话框。然后在列表框中选择不需要的属性或方法并单击“移去”按钮。（3）使用新属性和新方法。①通过“表单控件”工具栏向表单添加一个命令按钮Command1。②双击命令按钮，进入命令按钮的click代码窗口，键入以下代码：Thisform.newx=5Thisform.newf③保存并运行表单，单击命令按钮Command1，结果如图1所示。-6-图1自定义属性和方法的使用结果2.了解常用的事件和方法，并为不同对象设置相

4、应的事件代码，①启动VisualFoxPro6.0。②在命令窗口输入命令:CreateformmyForm,打开表单设计器窗口。③从“文件”菜单中选择“保存”命令，保存表单文件。④过“表单控件”工具栏向表单添加一个命令按钮，在属性窗口设置其Caption属性为“退出”。-6-⑤从“显示”菜单中选择“代码”命令，打开代码编辑窗口。⑥从“对象”框中选择Form1，从“过程”框中选择Load，然后在编辑区输入的代码：WAIT“引发表单Load事件!”WINDOW从“过程”框中选择Init，然后在编辑区输入相应的代码：

5、WAIT“引发表单Init事件!”WINDOW从“过程”框中选择Destroy，然后在编辑区输入相应的代码：WAIT“引发表单Destroy事件!”WINDOW从“过程”框中选择Unload，然后在编辑区输入相应的代码：WAIT“引发表单Unload事件!”WINDOW⑦从“对象”框中选择Command1，从“过程”框中选择Click，然后在编辑区输入的代码：Thisform.release⑧从“文件”菜单中选择“保存”命令，保存表单文件。然后单击“关闭”按钮，关闭表单设计窗口。⑨在命令窗口中输入命令：DOFO

6、RMmyForm从运行表单到打开表单后单击“退出”按钮，屏幕显示结果，并分析原因：-6-3.掌握和熟悉对象的引用。①启动VisualFoxPro6.0。②选择“文件/新建/表单”，进入表单设计器。③在表单上添加1个标签label1,1个文本框text1和1个命令按钮command1。④在“属性”窗口，将表单的autocenter属性设为.T.（把表单的autocenter属性设为.T.,运行时，表单会自动居中在主窗口的中央），Label1的caption属性设为“欢迎使用VFP”，command1的captio

7、n属性设为“复制”，如图2所示。图2初始属性设置⑤单击复制按钮，把标签label1的内容复制到文本框text1中。编写Command1的Click事件过程代码：-6-第一种方法：绝对引用的事件过程代码：Thisform.text1.value=thisform.label1.caption第二种方法：相对引用的事件过程代码：Thisform.text1.value=this.parent.label1.caption（注意：两种方法都可以实现）⑥保存并运行表单。4.掌握自定义类的建立和使用。①启动VisualF

8、oxPro6.0。②选择“文件/新建类/新建文件”，启动“类设计器”。在“新建类”对话框的“类名”文本框输入新类的名称MyClass,在“派生于”栏中为新类指定基类CommandGroup,在“存储于”栏中输入保存新类的类库名为MyLib.VCX，如图3所示，单击“确定”按钮，系统打开“类设计器”如图4所示。图3“新建类”对话框③将MyClass子类的ButtonCount属性值设置为