门面向对象
设计
语言,该语言有 4个主要特征:抽象、封装、继承、多态
本文主要针对封装性做就例子性阐述操作系统: Windows 2000 Advanced Server
编程工具: Visual Basic 6.0
这里我们将通过
个具体例子来认识它封装性! 在面向对象思路方法中
对象可看成是属性(数据)以及这些属性上专用操作封装体封装是
种信息屏蔽技术封装目是使对象定义和实现分离 Step1:
1.1新建
个工程命名为VBOOP；1.2单击工程菜单
选择添加类模块后并单击确定按钮；1.3在其属性窗口中将类
名称改为TScoreStep2:编辑TScore类模块代码
2.1.这里为TScore类定义 4个私有(Private)变量,它们只能在本模块
中是可见
,即类些成员被隐藏起来,用户只能通过属性过程或
等思路方法来访问,从而对对象进行封装定义变量
基本语法:Private/Publc <变量名> As <变量类型>
代码部分:
Private FName As String´学生
姓名Private FMath As Single´数学成绩
Private FEnglish As Single ´英语成绩
2.2.为TScore类定义 6个公用(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 SingleGetMath = FMath
End Property
Public Property Let SetMath(ByVal Math As Single)
FMath = Math
End Property
Public Property Get GetEnglish
As SingleGetEnglish = 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个Control控件: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.给模块中 4个私有变量赋值
单击事件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 = \"\"
Pr
\"姓名:\" & Score.GetName & \"数学:\" & Score.GetMath & \"英语:\" & Score.GetEnglishElse
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就可以运行了
最新评论