面向对象思想在VB游戏开发中的运用
来源：互联网
作者：西部数码
时间：2008-04-09
西部数码-全国
虚拟主机10强！40余项虚拟主机管理功能,全国领先!双线多线
虚拟主机南北访问畅通无阻!免费赠送
企业邮局,.CN域名,
自助建站480元起,免费试用7天,满意再付款! P4
主机租用799元/月.月付免压金!
属性类别
作 用
Property Let
从调用的程序接收属性值,用来设置属性值
Property Get
向调用的程序传送属性值,用来获取属性值
Property Set
特殊情况的Let过程,用来设置对象变量的值 下面是具体个实现方法:
要创建类的属性过程,我们先要进到类的代码窗口,然后从[工具] ( Tool )菜单中选择[添加过程] ( Add Procedure ).在显示的”添加过程”对话框中,输入过程的名字,以及”类型”中的[属性]选项,单击[确定],这样就在类模块中创建了Property Let和Property Get过程.如下图所示:
4、向类中添加方法
任何程序都要实现一定的动作才能体现它的用处,因此,我们也要给类创建一些方法.它实质上也就是通过在类中编写公共过程实现的.这些过程与为程序的其他部分编写的过程类似.所有在类模块中的过程都以声明语句开始.如果这一语句使用Public关键字,那么该过程就是类的方法,并且该过程可以被在任何模块中创建的该类的实例所调用;如果该过程用Private关键字开始,那么该过程只能在定义该类的模块中调用.（方法同上）
5、向类中添加事件
为了在类中创建事件，需要完成下面两个步骤：
（1）在类中声明事件。若要声明事件，只要提供事件名和在事件中要传递的参数，方法和定义属性类似，只是关键字使用Event ，并且开始的关键字必须为Public，这样才能使在不同模块中定义的类的实例能触发该方法。
（2）使用Raise Event语句触发事件。声明了事件之后，就可以使用Raise Event语句在类的代码的任何地方触发该事件。
我们这里不使用对象的事件，所以省略。
二、怎样在程序中使用定义的类呢？ 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过程来确定点击的方格的位置
