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

摘要: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