关于VisualBasic6.0类开发（下）

在VisualBasic6.0类的技术与应用（上）（以下简称上文）中，我们讨论了类的理论、类的创建和类的方法的编程实践，实际上，类之所以能够在软件工程中广泛应用，最主要的一点是它可以非常方便的封装许多编程需要的属性，这不仅使程序员在一定程度上克服控件（ocx）和链接库（dll）设计和调试中的复杂性，而且能够提高程序代码的简洁和高效性――本文将讨论完整的类的编程，包括方法、属性和基本事件。
　　
　　（一）类的属性的特征和定义；
　　
　　类似于标准控件的属性，类的属性允许用户在指定的数据范围内进行赋值，这些值被类内的各个代码部分所共享。属性的获得和传递需要经过PropertyLet和PropertyGet语句进行编程，当然，我们首先需要在类中进行全局或者模块级的相应变量定义。
　　
　　（二）事件的属性和基本定义；
　　
　　和窗体的事件类似，类也有两个基本的事件，Class_Initialize（类加载时触发）和Class_Terminate（类卸载时触发），这两个事件都是private的。实际上，我们完全可以忽略这两个事件――只要你记得完善类的方法和属性。
　　
　　类同样可以定义自己的事件，它和方法的程序编写格式类似，只不过需要WithEvents关键字进行参数声明,而且事件不能有任何命名参数或者可选参数，它也没有返回值。
　　
　　实际上，结构良好的方法和属性完全可以替代结构复杂的类的事件。
　　
　　（三）类的方法、事件和属性的编程实例；
　　
　　本程序的设计目的是，通过类控制窗体中文本框的内容的全部大写、小写和逆向排序转化。
　　
　　为了方便代码的书写和调用，我在类中引用了枚举的编程方法。
　　
　　以下代码在类Class1：
　　
　　OptionExplicit
　　
　　　PrivateWithEventsmyTXTAsTextBox
　　
　　　'方法的参数接口
　　
　　　PublicEnumsTYLE
　　
　　Lcaseit'小写属性
　　
　　Lbigit'大写属性
　　
　　Nlogoit'逆向排序属性
　　
　　　EndEnum
　　
　　'自定义枚举，用来实现属性的自动赋值
　　
　　PrivatemvarBiaozhiAssTYLE
　　
　　'实现枚举常量的连接
　　
　　PublicFunctiondONE()AsString'
　　
　　'DONE方法用来根据指定的枚举属性，对
　　
　　'窗体文本框进行相应的字符转化操作
　　
　　'并且返回转化后的字符串
　　
　　IfmvarBiaozhi=NlogoitThen
　　
　　　dONE=StrReverse(myTXT)
　　
　　　'逆向排序
　　
　　ElseIfmvarBiaozhi=LcaseitThen
　　
　　　dONE=LCase(myTXT)
　　
　　　'强制小写转化
　　
　　Else
　　
　　　dONE=UCase(myTXT)
　　
　　　'强制大写转化
　　
　　EndIf
　　
　　EndFunction
　　
　　'DONE方法结束
　　
　　PublicPropertyLetBiaozhi(ByValvDataAssTYLE)
　　
　　　'获得属性的被赋的值
　　
　　　mvarBiaozhi=vData
　　
　　EndProperty
　　
　　PublicPropertyGetBiaozhi()AssTYLE
　　
　　　'传递属性值到类中
　　
　　　SetBiaozhi=mvarBiaozhi
　　
　　EndProperty
　　
　　PublicSubAttach(itTEXTAsTextBox)
　　
　　　'连接类的方法
　　
　　　SetmyTXT=itTEXT
　　
　　EndSub
　　
　　PrivateSubClass_Initialize()
　　
　　　'本事件在类倍加载时激活
　　
　　　MsgBox"你好！本程序向您展示使用类的方法、属性、事件进行编程的技术！"
　　
　　EndSub
　　
　　PrivateSubClass_Terminate()
　　
　　　'本事件在类被卸载时激活
　　
　　　MsgBox"你好！记得在Class_Terminate中填写对象撤销后的代码！"
　　
　　EndSub
　　
　　'类的代码全部结束
　　
　　（四）窗体代码的引用编程；
　　
　　在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1（CAPTION="开始转化"），调整三个控件到适当位置。
　　
　　DimmyTAsNewClass1
　　
　　'类的引用
　　
　　PrivateSubForm_Load()
　　
　　　Combo1.Clear
　　
　　　Combo1.AddItem"字符串大写转化"
　　
　　　Combo1.AddItem"字符串小写转化"
　　
　　　Combo1.AddItem"字符串逆向排序"
　　
　　　Combo1.ListIndex=0
　　
　　　'在列表框中添加属性选项
　　
　　EndSub
　　
　　PrivateSubCommand1_Click()
　　
　　　'当命令按钮按下时激活类
　　
　　　myT.AttachText1
　　
　　　'方法参数联接
　　
　　　SelectCaseCombo1.ListIndex
　　
　　Case0
　　
　　　　myT.Biaozhi=Lbigit
　　
　　Case1
　　
　　　　myT.Biaozhi=Lcaseit
　　
　　Case2
　　
　　　　myT.Biaozhi=Nlogoit
　　
　　　EndSelect
　　
　　　'根据列表框的选择，给类的Biaozhi属性赋值
　　
　　　'注意，在编程环境中，上述属性值自动添加
　　
　　　Text1.Text=myT.dONE
　　
　　　'返回排序结束后的字符串
　　
　　EndSub
　　
　　PrivateSubForm_Unload(CancelAsInteger)
　　
　　　SetmyT=Nothing
　　
　　End
　　
　　'良好的编程习惯
　　
　　EndSub
　　
　　怎么样，我们的代码看起来如此的简洁，这种感觉就象是在使用一个控件，不仅可以随心所欲的调用，而且方便的使用了vb的自动提示功能。
　　
　　（五）关于类的编程技术的总结；
　　
　　严格的说，类是vb编程中的一个相当有用的技术，同样也是学习和掌握中的难点，类在大型软件工程中应用是非常广泛和卓有成效的，但是，在小型软件开发中，为了提高软件的效率和代码的清晰度，应该避免使用较多的类模块，控件和联接库，取代以标准模块。
　　
　　本文所示例的代码比较简单，却覆盖了关于模块编程技术的方方面面，希望初学者能够有所借鉴，也希望程序员能够共同探讨。我们应该相信，无论多么复杂的高楼大厦都是由普普通通的方砖堆砌而成的，同样，无论所么复杂的软件工程都是由基本的程序语句所构成的，编程爱好者、程序员和分析员的区别只是在于，用同样的程序语句构建的程序的不同而已。->