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

原创 2003年04月07日 10:26:00
摘要: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程序就可以运行了。

面向对象三大特性---封装性

思路:1,封装是什么?-->为什么要封装(即封装的好处)--
  • u014167212
  • u014167212
  • 2014年04月22日 16:36
  • 2200

Java面向对象:封装性

1 Java面向对象思想 1.1面向对象三大特征 (一)封装性:对外部不可见 (二)继承:扩展类的功能 (三)多态性:方法的重载,对象的多态性 2封装性 1. 类中并不是所...
  • qq_31126879
  • qq_31126879
  • 2016年07月22日 09:52
  • 569

php面向对象(OOP)—封装性

封装性是面象对象编程中的三大特性之一,封装性就是把对象的属性和服务结合成一个独立的相同单位,并尽可能隐蔽对象的内部细节,包含两个含义: 1. 把对象的全部属性和全部服务结合在一起,形成一个不可分割的...
  • guoshaoqing001
  • guoshaoqing001
  • 2015年06月03日 15:30
  • 634

面向对象的特点,封装性,继承性,多态性!

1.面向对象程序设计有三大特点,分别是封装,继承,多态,接下来就介绍一下这三个特点,积累一下。 2.封装,封装是面向对象编程的核心思想,将对象的属性和行为封装起来,而将对象的属性和行为封装起来的载体是...
  • u012561176
  • u012561176
  • 2015年01月29日 19:37
  • 1519

面向对象程序设计具有4个共同特征:抽象性、封装性、继承性和多态性

面向对象程序设计具有4个共同特征:抽象性、封装性、继承性和多态性
  • gdut2015go
  • gdut2015go
  • 2015年10月08日 16:13
  • 2016

面向对象 封装

引自:http://blog.csdn.net/kangmiao89757/article/details/10656473  一、理解面向对象         面向对象和面向过程都是一种思想,就...
  • the_first_step
  • the_first_step
  • 2015年02月02日 18:46
  • 1467

JAVA 面向对象 隐藏和封装

本页面更新日期: 2016年07月22日前言 在前面程序中,经常出现通过某个对象直接访问其成员变量的情况. 这可能引起一些潜在问题,比如将某个 Person 的 age 成员变量直接设为 1...
  • tmdlife
  • tmdlife
  • 2016年07月22日 22:25
  • 2638

浅谈面向对象

这段时间天天被米老师洗脑式的上课,讲的都是一个中心,面向对象!     但是,面向对象到底是怎么回事儿呢?我们看一下维基百科里是怎么说的:     面向对象程序设计(英语:Object-oriente...
  • laner0515
  • laner0515
  • 2014年06月29日 15:33
  • 3251

谈谈面向对象 之 封装

一、封装有什么好谈的? 封装就是封装啊,把成员变量呀、方法呀封装到一个类中。允许其它类访问的,就设置为public;允许子类访问的,就protected;只能自己访问的,就设置为private。不就是...
  • hxtan
  • hxtan
  • 2013年12月15日 17:17
  • 1005

php面向对象编程之--封装

php面向对象编程的三大特征 ①、封装 ②、继承 ③、多态 抽象:我们在前面研究类时,实际上是把一类事物的共有的属性和行为提取出来,形成一个物理模型。这种研究问题的方法称为抽象。 封装:  封装...
  • u013372487
  • u013372487
  • 2015年07月01日 17:20
  • 1182
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:浅谈VB中面向对象技术的封装性
举报原因:
原因补充:

(最多只允许输入30个字)