第九章面向对象程序设计基础.pptVIP

9.3 面向对象程序设计方法 例如，定义一个表单，添加cmdok和cmdCancel两个命令按钮对象到表单，并设置cmdok的属性值。 Define Class MyForm AS Form Add object cmdok As CommandButtom With; Caption=确定, Width=80, Height=20 Add object Protected cmdCancel As CommandButtom EndDefine 9.3 面向对象程序设计方法 例如，为添加的cmdok命令按钮对象定义事件过程 Define Class MyForm AS Form Add object cmdok As CommandButtom With; Caption=确定, Width=80, Height=20 Procedure cmdok.Click Do form cx 调用cx表单 EndProcedure EndDefine 9.3 面向对象程序设计方法 9.3.2 对象的设计 1．创建与释放对象 （1）对象的创建 所谓创建对象，就是在内存中创建一个内存变量。对象必须创建后才能使用，使用命令创建对象的一般格式是： 对象名 = Createobject (“ClassName”) （2）对象变量的释放 格式 ：Release对象名 例如： Release m1 9.3 面向对象程序设计方法 2．对象的属性设置 对象的属性可以在对象设计阶段设置，在对象运行过程中进行修改。设置对象属性的语句格式有两种。 格式1：对象名.属性名=属性值 格式2： WITH对象名 属性名1=属性值1 … 属性名n〉=属性值n ENDWITH 9.3 面向对象程序设计方法 例如： m2= Createobject(“CommandButton”) m2．Caption=“确定” m2．Width=80 m2．Height=20 或者 WITH m2 Caption=“确定” Width=80 Height=20 ENDWITH 9.3 面向对象程序设计方法 3．AddObject()方法 在容器对象中添加对象，应使用AddObject()方法，格式是： 〈容器对象名〉.AddObject(对象名，类名，［参数1，参数2...］) 功能：该方法在已经建立的容器对象中加入一个由类名派生的对象 9.3 面向对象程序设计方法 【例9.3】 设计一个表单对象，并在表单上加入一个命令按钮对象和两个文本框对象，其中在一个文本框中输入信息，当单击命令按钮时，在另一个文本框中显示前一个文本框的信息。 My= Createobject(MyForm) 建立一个MyForm对象 My.Caption= 复制信息 My.Width=300 My.Height=200 My.AddObject(Text1,TextBox) My.AddObject(Text2,TextBox) My.Text1．Top=20 My.Text1．left=100 My.Text2．Top=60 My.Text2．left=100 My.Text1．Visible=.T. My.Text2．Visible=.T. my.show（1） 9.3 面向对象程序设计方法 【例9.3】 设计一个表单对象，并在表单上加入一个命令按钮对象和两个文本框对象，其中在一个文本框中输入信息，当单击命令按钮时，在另一个文本框中显示前一个文本框的信息。 9.3 面向对象程序设计方法 程序如下： My= Createobject(MyForm) 建立一个MyForm对象 My.Caption= 复制信息 My.Width=300 My.Height=200 My.AddObject(Text1,TextBox) My.AddObject(Text2,TextBox) My.Text1．Top=20 My.Text1．left=100 My.Text2．Top=60 My.Text2．left=100 My.Text1．Visible=.T. My.Text2．Visible=.T. my.show（1） 9.3 面向对象程序设计方法 定义MyForm类 Define Class MyForm AS Form Add object cmdok As CommandBut