摘要:VB是门面向对象程序设计的语言,该语言有四个主要的特征:抽象、
封装、继承、多态。本文主要针对封装性做就实例性的阐述。
操作系统: Windows 2000 Advanced Server
编程工具: Visual Basic 6.0
这里我们将通过一个具体的实例来认识它的封装性! 在面向对象方法
中，对象可看成是属性（数据）以及这些属性上的专用操作的封装体。
封装是一种信息屏蔽技术，封装的目的是使对象的定义和实现分离。
Step1:
1.1新建一个工程命名为VBOOP；
1.2单击工程菜单，选择添加类模块后并单击确定按钮；
1.3在其属性窗口中将类的名称改为TScore。
Step2:编辑TScore类模块代码
2.1.这里为TScore类定义四个私有(Private)变量,它们只能在本模块
中是可见的,即类的一些成员被隐藏起来,用户只能通过属性过程
或函数等方法来访问,从而对对象进行封装。
定义变量的基本语法:
Private/Publc <变量名> As <变量类型>
代码部分：
Private FName As String '学生的姓名
Private FMath As Single '数学成绩
Private FEnglish As Single '英语成绩
2.2.为TScore类定义六个公用(Public)的属性(Property)过程和一
个计算总分的方法函数。
定义方法的基本语法:
Private/Publc Property Get <读属性过程名> As <属性返回值类型>;
Private/Public Property Let <写属性过程名>(ByVal 变量名 As 返回值类型);
Private/Publc Function <函数名> As <函数返回值类型>;
get: 将模块中的私有变量的值赋给属性过程,通常称为读;
Let: 通过属性过程给模块中的私有变量值赋,通常称为写。
代码部分：
Public Property Get GetName() As String
GetName = FName
End Property
Public Property Let SetName(ByVal Name As String)
FName = Name
End Property
Public Property Get GetMath() As Single
GetMath = FMath
End Property
Public Property Let SetMath(ByVal Math As Single)
FMath = Math
End Property
Public Property Get GetEnglish() As Single
GetEnglish = FEnglish
End Property
Public Property Let SetEnglish(ByVal English As Single)
FEnglish = English
End Property
Public Function Total() As Single '计算总成绩函数
Total = GetMath + GetEnglish
End Function
Step3:回到Form1窗口，在窗口上添加12个控件:
3.1添加5个文本框txtName、txtMath、txtEN、txtTotal;
3.2添加5个标签labName、labMath、labEN、labTotal
其Caption属性分别为姓名、数学、英语、总成绩;
3.3添加2个命令按钮ComSetValues、ComSearch
其Caption属性分别为赋值、查询。
Step4:编辑窗口事件
4.1.构造Score对象及查询关键字SearchKey。在面向对象方法
中，我们可以这样说定义类就是定义数据类型，而声明对
象就是声明变量。也就是说，对象实际上就是变量。
Dim Score As New TScore
Dim SearchKey As String
4.2.给模块中四个私有变量赋值的单击事件
Private Sub ComSetValues_Click()
If Val(txtMath.Text) >= 0 And Val(txtMath.Text) <= 100
And Val(txtEN.Text) >= 0 And Val(txtEN.Text) <= 100
Then
With Score
.SetName = txtName.Text
.SetMath = Val(txtMath.Text)
.SetEnglish = Val(txtEN.Text)
End With
txtName.Text = ""
txtMath.Text = ""
txtEN.Text = ""
Print "姓名:" & Score.GetName & "数学:" & Score.GetMath & "英语:" & Score.GetEnglish
Else
MsgBox "成绩的取值范围:[0,100]", 64, "提示"
End If
End Sub
4.3.查询各科成绩及总分的单击事件
Private Sub ComSearch_Click()
SearchKey = InputBox("请输入您要查询的姓名关键字:", "查询")
If word = Score.GetName Then
txtTotal.Text = Score.Total
txtName.Text = Score.GetName
txtMath.Text = Score.GetMath
txtEN.Text = Score.GetEnglish
txtTotal.Visible = True
labTotal.Visible = True
Else
MsgBox "抱歉!无此记录!", 64, "提示"
End If
End Sub
4.4.窗口载入事件
Private Sub Form_Load()
txtTotal.Visible = False
labTotal.Visible = False
End Sub
4.5窗口关闭事件,在这里我们将释放对象变量,否则将会发生存储器泄露
Private Sub Form_Unload(Cancel As Integer)
Set Score = Nothing
End Sub
Step5：到这里，程序就全部写好了，您只要按F5程序就可以运行了。
