《实验七面向对象的程序设计新版.docx》由会员分享，可在线阅读，更多相关《实验七面向对象的程序设计新版.docx（7页珍藏版）》请在三一文库上搜索。
1、资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。实验七面向对象的程序设计一、实验目的1 掌握面向对象程序中对象、属性、方法和事件等概念。2 了解面向对象程序设计的特点。3 掌握对象的相对引用和绝对引用。4 掌握自定义类的创立、修改和使用。二、实验内容与步骤1.掌握并了解根据需要向表单添加任意数量的新属性,并引用表单的其它属性和方法引用它们。( 1)表单添加新属性的步骤如下: 选择”文件 / 新建 / 表单” ,进入表单设计器。 选择”表单”菜单中的”新建属性”命令,打开”新建属性”对话框。 在”名称”框中输入属性名Newx。 有选择地在”说明”框中输入新建属性的说明信息。这些信息
2、将显示在”属性”窗口的底部。 在表单的”属性”窗口的列表框中显示出新建的属性Newx。资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。( 2)表单添加新方法的步骤如下: 选择”表单”菜单中的”新建方法程序”命令,打开”新建方法程序”对话框。 在”名称”框中输入方法名newf。 有选择地在”说明”框中输入新建方法的说明信息。 在表单的” 属性” 窗口的列表框中显示出新建的方法Newf。能够双击它 ,打开代码编辑窗口,然后输入或修改方法的代码:Thisform.newx=Thisform.newx+5Wait”newx=” +str(Thisform.newx) Window 若删去
3、用户添加的属性或方法,能够选择”表单”菜单中的”编辑属性 / 方法程序”命令 ,打开对话框。然后在列表框中选择不需要的属性或方法并单击”移去”按钮。( 3)使用新属性和新方法。 经过”表单控件”工具栏向表单添加一个命令按钮Command1。 双击命令按钮 ,进入命令按钮的click代码窗口 ,键入以下代码 :Thisform.newx=5Thisform.newf资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。 保存并运行表单,单击命令按钮Command1, 结果如图 1 所示。图 1 自定义属性和方法的使用2. 了解常见的事件和方法 , 并为不同对象设置相应的事件代码 , 启动
4、 Visual FoxPro 6.0。 在命令窗口输入命令:Create form myForm,打开表单设计器窗口。 从”文件”菜单中选择”保存”命令,保存表单文件。过”表单控件”工具栏向表单添加一个命令按钮,在属性窗口设置其 Caption 属性为”退出”。 从”显示”菜单中选择”代码”命令,打开代码编辑窗口。从”对象”框中选择Form1, 从”过程”框中选择Load,然后在编辑区输入的代码:WAIT”引发表单Load 事件 ! ” WINDOW从”过程”框中选择Init,然后在编辑区输入相应的代码:WAIT”引发表单Init事件 ! ” WINDOW从”过程”框中选择Destroy,然后
5、在编辑区输入相应的代码:资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。WAIT ”引发表单Destroy 事件 ! ” WINDOW从”过程”框中选择Unload,然后在编辑区输入相应的代码:WAIT”引发表单Unload 事件 ! ” WINDOW 从”对象”框中选择Command1, 从”过程”框中选择Click,然后在编辑区输入的代码:Thisform.release 从”文件” 菜单中选择” 保存” 命令 ,保存表单文件。 然后单击”关闭”按钮 ,关闭表单设计窗口。 在命令窗口中输入命令: DO FORM myForm从运行表单到打开表单后单击”退出”按钮,屏幕显示结果
6、 ,并分析原因 :3. 掌握和熟悉对象的引用。 启动 Visual FoxPro 6.0。 选择”文件 / 新建 / 表单” ,进入表单设计器。资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。 在表单上添加1 个标签 label1,1个文本框 text1和 1 个命令按钮 command1。 在”属性”窗口 ,将表单的autocenter属性设为 .T.(把表单的autocenter属性设为 .T.,运行时 ,表单会自动居中在主窗口的中央) ,Label1 的 caption属性设为”欢迎使用VFP” , command1 的 caption属性设为”复制”,如图 2 所示。图
7、2 初始属 单击复制按钮 , 把标签 label1 的内容复制到文本框 text1 中。编写 Command1的 Click 事件过程代码 :第一种方法 :绝对引用的事件过程代码:Thisform.text1.value=thisform.label1.caption第二种方法 :相对引用的事件过程代码:Thisform.text1.value=this.parent.label1.caption资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。(注意 :两种方法都能够实现) 保存并运行表单。4. 掌握自定义类的建立和使用。 启动 Visual FoxPro 6.0。 选择”文件
8、/ 新建类 / 新建文件” ,启动”类设计器”。在”新建类”对话框的”类名”文本框输入新类的名称MyClass, 在”派生于”栏中为新类指定基类CommandGroup,在”存储于” 栏中输入保存新类的类库名为 MyLib.VCX,如图 3 所示 ,单击”确定”按钮 ,系统打开” 类设计器”如图 4 所示。图 3 ”新建类”对 将 MyClass 子类的 ButtonCount 属性值设置为 4, 即设置命令按钮组中包含的命令按钮个数为4,重新横向排列4 个命令按钮 ,并将 4资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。个命令按钮的Caption 属性分别设置为”首记录”,”前一个” ,”后一个” ,”末记录”。图 4 类设计 打开代码生成器 , 编写 MyClass 子类的 Click 事件过程代码 , 代码如下 :sel=This.valuedo casecase sel=1go topcase sel=2if !bof()skip-1endifcase sel=3