来源:网络 | 2007-3-23 | (有3702人读过)
“类”之初 :
现在,就让我们来熟悉一下“类”的设计和使用。VB 中类是用“类模块”来封装的,所以要生成一个类,就需要先生成一个“类模块”,然后在其中加入代码就可以了。下面用一个比较简单的类来做例子,它是有一个属性,一个方法,两个事件的“狼”类:
Option Explicit
Public 体重 As Single
Public Event 摔了下去()
Public Event 扑了过去()
Public Sub 扑食()
If 体重 > 50 Then
RaiseEvent 摔了下去
Else
RaiseEvent 扑了过去
End If
End Sub
在这个例子里,“体重”就是“属性”,在这里,我只用了“Public”定义了一个“Single”类型的变量,VB 将在内部完成其它的代码,以便“体重”被作为属性看待,如果我们不需要属性做一些赋值之外的操作,这种方法就是最简单的属性的编制方法了。“扑食”在这里就是“方法”了,和定义过程的方法一模一样,不过要注意一定要加上“Public”关键字,否则就真的和过程一模一样了。事件“摔了下去”需要先用“Event”关键字定义,然后在适当的时机如“体重 > 50”时用“RaiseEvent”关键字调用。
要使用类,需要用“Dim”或“Private”或“Public”定义变量,用“New”产生对象并赋值给定义的变量,如果需要事件支持,在定义变量时还要用关键字“WithEvents”定义,如下在窗体中有一名为“运动”的按钮,让我们见识一下悲惨的“麦克狼”:
Option Explicit
Private WithEvents 麦克 As 狼
Private Sub Form_Load()
Set 麦克 = New 狼
麦克.体重 = 100
End Sub
Private Sub 麦克_扑了过去()
MsgBox "麦克门牙磕掉了"
End Sub
Private Sub 麦克_摔了下去()
MsgBox "麦克摔扁了"
End Sub
Private Sub 运动_Click()
麦克.扑食
End Sub
上面的调用方法和控件比起来,一共多了“Private WithEvents 麦克 As 狼”“Set 麦克 = New 狼”和“麦克.体重 = 100”这么几句,前两句在控件是在拖放时自动产生的,后一句是在设计属性时加入的,也就是说类的使用其实不比控件多了什么步骤,只是需要显式的写出来罢了,对于熟练使用控件的同志们使用类应该不成问题的吧。
|