《编程ppt电子课件教案第9章oop（上）》由会员分享，可在线阅读，更多相关《编程ppt电子课件教案第9章oop（上）（28页珍藏版）》请在金锄头文库上搜索。
1、第9章 OOP（上）,9.1 使用.NET创建类 9.2 构造函数 9.3 Public和Private 9.4 共享方法 9.5 共享变量 9.6 方法重载(Overload) 9.7 自定义事件 9.8 属性过程和属性重载（了解）,9.1 使用.NET创建类,类：类只是一个模板，相当于类型。.NET的控件都是类，比如Button。 对象：对象是类的实例，相当于变量，编程实际使用的控件，比如Button1，都是对象。 类可以自行定义 类定义语法：Public Class 类名属性定义，比如String Name方法定义，Sub或FunctionEnd Class,类定义例子 Public C
2、lass WorkerPublic Name As String 属性Public Address As StringPublic Salary As DoublePublic Function total(ByVal monthes As Double) As Doubletotal = Salary * monthes 方法（函数）End Function End Class,9.1 使用.NET创建类,对象（类实例）例子Dim x As New Worker定义对象x.Name=“Tom“x.Address = “FuZhou University“x.Salary = 2000.0Ms
3、gBox(x.total(10)计算10个月的总收入,9.1 使用.NET创建类,Form1的对象： VB.NET应用程序的默认启动窗体是Form1 Form1的对象在运行时由.NET自动生成。 在程序中使用Me引用Form1的对象 一个应用程序可以同时运行多个，此时Form1的对象被创建了多个。 其它类的对象必须在程序中用Dim/New语句创建。 如果默认启动窗体是Form2或其他窗体，则其对象也是自动被创建。 如果无默认启动窗体，则每个窗体的对象都必须用Dim/New语句创建。,9.1 使用.NET创建类,添加类操作 1、菜单操作 文件|添加新项|类 项目|添加类 默认类名是Class1，
4、可以修改。 不要使用MyClass，因为它是VB.NET的关键字 类文件默认名Class1.vb,9.1 使用.NET创建类,2、直接在代码窗口中输入 打开Form1.vb，将类定义输入在Form1的End Class 之后， 或者Public Class Form1之前。 与Form1.vb共用一个文件 3、多个类可以共用一个文件， 4、类可以嵌套定义,9.1 使用.NET创建类,作用：一般用于初始值设置。 特点： 可以没有构造函数，定义对象时用New，不带参数，也不带扩号。如Dim x As New Worker 如果有构造函数，定义对象时也用New，要带扩号，而且所带参数必须于某个构造函
5、数定义一致。 构造函数可以有一个，名字是New，参数自定。 构造函数也可以有多个，名字都是New，但各个构造函数参数必须不同。,9.2 构造函数,构造函数例子1Public Sub New(ByVal name As String)Me.Name = nameEnd Sub 构造函数例子2Public Sub New(ByVal name As String, ByVal address As String)Me.Name = nameMe.Address = addressEnd Sub,9.2 构造函数,构造函数例子3Public Sub New(ByVal name As String,
6、 ByVal address As String, ByVal salary As Double)Me.Name = nameMe.Address = addressMe.Salary = salaryEnd Sub,9.2 构造函数,上述3个构造函数可以共存在类定义中。调用时根据参数的不同，自动选择合适的构造函数。下列定义都可以使用。Dim x As New Worker(“Peter“)x.Address = “XiaMen University“x.Salary = 1500.0Dim y As New Worker(“Mike“, “Beijing“)y.Salary = 2200.0
7、Dim z As New Worker(“Tony“, “NY“,3000),9.2 构造函数,Public和Private：用在属性或方法前面。 Public：表示属性或方法可以被对象引用。 Private：表示属性或方法不可以被对象引用。 Public和Private：用在类定义前面。 Public：表示类可以在工程外部引用定义对象。 Private：表示类不可以被工程外部引用定义对象。,9.3 Public和Private,Public Class WorkerPublic Name As String 公共属性Public Address As StringPrivate Salary
8、 As Double 私有属性Public Sub New() 构造函数End SubPrivate Function total(ByVal monthes As Double) As Doubletotal = Salary * monthes 方法（函数）End Function End Class,9.3 Public和Private,例子： Dim x As New Worker(“Peter“)x.Address = “XiaMen University“x.Salary = 1500.0 错误MsgBox(x.Salary) 错误 MsgBox(x.total(10) 错误 其它
9、：Protected、Friend等，见表9-1。在第十章中进一步说明。,9.3 Public和Private,作用：可以直接使用的方法，不必创建对象。也叫静态方法或者类方法。（S型） 定义：在Sub或Function前加上Shared 例子：Class AbcPublic Shared Function Sum(ByVal x As Double,ByVal y As Double) As DoubleReturn x+2*yEnd FunctionEnd Class,9.4 共享方法,使用：Dim x As Doublex=Abc.Sum(2.3 ，4.5)Dim obj As New A
10、bcx=obj.Sum(2.3 ，4.5) 说明： 非共享方法叫做实例方法（I型）。一般的方法都是非共享方法。,9.4 共享方法,作用：在同一类的每个对象中共有的变量，大家共用同一个内存空间，而且取值一样。（S型） 定义：在变量名前加上Shared。 例子：Class StudentPublic NamePublic Shared School As StringEnd Class,9.5 共享变量,使用例子：Dim Stu1 As New StudentStu1.Name=”张三”Stu1.School=”福州大学”Dim Stu2 As New StudentStu2.Name=”李四”此
11、时李四的School也是”福州大学” 说明： 非共享变量叫做实例变量（I型），在每个对象中使用不同的内存空间，取不同的值。如上述的Name变量。,9.5 共享变量,作用：在类定义中允许多个函数有相同的名字，但参数必须不同。调用时根据参数的不同来决定执行哪一个函数。 构造函数也可以重载：例子如前。 定义： 方法1：直接写多个同名函数定义。 方法2：在同名的Sub或Function前加上Overloads。 注意： Overloads要加都加，要不然都别加。,9.6 方法重载(Overload),例子：Class StudentPublic NamePublic Overloads Sub A()
12、Name=“”End SubPublic Overloads Sub A(Byval x As String)Name=xEnd SubEnd Class,9.6 方法重载(Overload),例子：Class StudentPublic NamePublic Sub A()Name=“”End SubPublic Sub A(Byval x As String)Name=xEnd SubEnd Class,9.6 方法重载(Overload),自定义事件的使用方法 1、在某个类定义中，比如c，定义自己的事件，如et。 2、在类的某个方法，比如a，让自定义事件发生。 3、在主程序中定义类c的对
13、象，比如x。 4、在主程序中写处理x.et的过程，如b。 5、在主程序中调用x.a激发事件et，让b去处理。,9.7自定义事件,在类中自定义事件方法 在类中某个成员函数中让事件发生Public Class CPublic Event et(参数表)Sub a（参数表） 用Function亦可。RaiseEvent et(参数)End SubEnd Class,9.7自定义事件,在类外定义带事件类对象：WithEvents x As New C 在类外编写自定义事件处理过程：Sub b(参数表) Handles x.etEnd Sub 在类外激发自定义事件：x.a(参数),9.7自定义事件,控件
14、ProgressBar： 功能：显示进度条。 属性Value：设置进度值，范围0-100。在程序中不断改变Value数值，就可以显示进度动画。 属性Step：设置进度变化的步长， 默认值为10。 自定义事件例子：使用进度条PrograssBar控件。 运行效果：单击窗体后，进度条显示动画。 步骤如下。,9.7自定义事件,1、新建项目，增加进度条控件PrograssBar1 2、打开代码窗口，在类Form1后增加带事件的新类 Public Class cPublic Event et(ByVal x As Integer)Public Sub a()Dim i As IntegerFor i =
15、 0 To 100 Step 10RaiseEvent et(i)NextEnd Sub End Class,9.7自定义事件,3、在类Form1中增加类变量WithEvents x As New c 4、在类Form1中增加处理x.et的过程Sub b(ByVal p As Integer)Handles x.etProgressBar1.Value = pEnd Sub 5、在类Form1中增加窗体“Click”事件，在其中激发x.et。Sub Form1_Click() Handles Form1.Clickx.a()End Sub,9.7自定义事件,不要求,9.8 属性过程和属性重载（了解）,
