电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>VB面向对象的程序设计-“类”之初:

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

来源:网络 | 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”这么几句,前两句在控件是在拖放时自动产生的,后一句是在设计属性时加入的,也就是说类的使用其实不比控件多了什么步骤,只是需要显式的写出来罢了,对于熟练使用控件的同志们使用类应该不成问题的吧。     
VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号