浅谈VB中面向对象技术的封装性_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

浅谈VB中面向对象技术的封装性

作者：闵涛文章来源：闵涛的学习笔记点击数：734 更新时间：2009/4/23 18:59:45

摘要: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程序就可以运行了。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VB中各种数据类型转换函数

下一篇教程：实时曲线的绘制和保存

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……