IDC资讯中心
在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编程中的一个相当有用的技术，同样也是学习和掌握中的难点，类在大型软件工程中应用是非常广泛和卓有成效的，但是，在小型软件开发中，为了提高软件的效率和代码的清晰度，应该避免使用较多的类模块，控件和联接库，取代以标准模块。
本文所示例的代码比较简单，却覆盖了关于模块编程技术的方方面面，希望初学者能够有所借鉴，也希望程序员能够共同探讨。我们应该相信，无论多么复杂的高楼大厦都是由普普通通的方砖堆砌而成的，同样，无论所么复杂的软件工程都是由基本的程序语句所构成的，编程爱好者、程序员和分析员的区别只是在于，用同样的程序语句构建的程序的不同而已。->
