二、怎样在程序中使用定义的类呢?
1、创建类的对象
要使用一个已经定义的类,首先要创建一个该类的对象。有两种方法可以从用户开发的类中创建对象:使用声明语句或使用Set语句。一旦用这两种方法创建了该类的对象后,就可以在程序中使用该对象,并能通过给对象访问对象的属性和方法。
当一个类的对象被创建后,类模块中的Initialize事件首先运行,为了的属性方法的访问做准备,相当于C++语言中的构造函数。
(1)使用声明语句: 当定义了一个类之后,我们就可以像使用一般的类型一样使用这个类.形式上唯一不同之处就是,在dim . . . as ..之后,还要加一个New关键字,形式变为 Dim . . . As New . . . 使用这种方式时,声明语句直接创建对象的实例,我们可以通过这个对象的实例在程序中访问对象的属性和方法.
(2)使用Set语句:这是创建对象的第二种方法.使用这种方法时,首先要声明对象变量,然后用Set语句创建对象的实例.如我们在游戏中使用了以下代码定义了一个clsCoords类型的实例objCoords 。
Dim objCoords As New clsCoords |
同样,在我们用Set语句创建了对象变量之后,我们可以通过这个对象的实例在程序中访问对象的属性和方法.与前一种方法的不同之处在于,虽然我们先创建了一个对象的类型,但是我们还是不能使用这个对象,直到使用Set语句时才实际创建了对象的实例,这是我们才可以通过这个对象的实例在程序中访问对象的属性和方法.
2、设置和读取属性值:
对象的实例创建了,必然要对它的属性进行访问.对于这一步其实很简单,
例如我们在coords.cls类模块中定义的两个变量
'定义了一个对象用来保存被错误标记的地雷的x , y轴坐标 Public mintX As Integer Public mintY As Integer |
当我们要访问它的值时,我们只要使用像下面的方式即可.
Dim objCoords As New clsCoords '在新建的clsCoords类的实例中存储被标记错误的地雷的X , Y坐标位置 objCoords.mintX = intX objCoords.mintY = intY |
这里我们给clsCoords类的新的实例objCoords的两个属性mintX和mintY赋予了新值.
3、使用对象的方法
要使用用户自己创建的对象的方法,与在v b中使用内在对象和控件的方法一样.只要提供要执行对象的名称和方法名,以及方法中要传递的数据即可.下面是我们在代码中的使用对象的方法的一个例子.
Private objMine As New clsWinMine
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'当鼠标左键被按下时,出发此事件,调用clsWinMine类的BeginHitTest过程来确定点击的方格的位置
objMine.TrackHitTest Button, x, y
End Sub
|
此段代码调用clsWinMine类的BeginHitTest过程来确定点击的方格的位置