VB面向对象的程序设计-“类”之初

“类”之初    :
现在，就让我们来熟悉一下“类”的设计和使用。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”这么几句，前两句在控件是在拖放时自动产生的，后一句是在设计属性时加入的，也就是说类的使用其实不比控件多了什么步骤，只是需要显式的写出来罢了，对于熟练使用控件的同志们使用类应该不成问题的吧。