第1个回答 2007-12-18
首先要认识“类”和“对象”这两个概念
类是用来模拟现实中某样“东西”的,可以是具体的,如打印机,汽车,学生等等……也可以是抽象的,如坐标轴上的点,矩形等等……
举个例吧:一个人,有年龄,身高,体重等等属性。这时就可以建一个类模块Person,然后给它设定几个字段age, height, weight
代码如下
'类模块 Person
Private mAge as Integer
Private mHeight as Double
Private mWeight as Double
'mAge设定为Private,所以在类外部的代码不能访问它
'需通过下面的属性方法访问。mHeight和mWeight也一样,此处省略。
Property Get Age() as Integer
Age = mAge
End Property
Property Let Age(age as Integer)
mAge = age
End Property
'此时,它就像用Type……End Type定义出来的类型一样。
'为了显示它的区别,再给它加两个方法吧
'方法Init,用来初始化三个成员字段
Sub Init(age as Integer, height as Double, weight as Double)
mAge = age
mHeight = height
mWeight = weight
End Sub
'函数ToString,返回三个字段的信息
Function ToString() as String
ToString = "年龄: " & mAge & " 身高:" & mHeight & " 体重:" & mWeight
End Function
然后在你其它的代码里就可以用它了,如下
Sub Main()
Dim a as Person
'看到吗?Person就像个自定义类型一样
Set a = New Person
'和其它类型不同的是,它要执行一个New操作才能用
'而New了之后,a就称为一个“对象”了
'这两句也可以并成一句
'Dim a as New Person
'可以用同一个类,New很多个不同的对象出来,如下
Dim b as New Person
a.Init(24, 170, 65) '初始化a
b.Init(25, 180, 70) '初始化b
'调用ToString函数
MsgBox "a: " & a.ToString() & vbNewLine _
"b: " & b.ToString()
End Sub
简单讲就像上面一样,如果要进一步了解,要看看一些面向对象化编程的书了~~
顺带一提,如果真要学面向对象化编程,建议不要学VB6了,它不是纯粹的面向对象化语言,很多特性它都不支持的,所以微软就搞了个VB.NET来补全它,其实那玩意也不咋地,要学就学C#.NET或者Java吧~~爽~~