VB类模块教程Word文件下载.docx

1、Opti on ExplicitPrivate myCLS As New cis引用cisPrivate Sub Form_Load（）Textl启动类End Sub在代码结束时记得释放资源Private Sub Form_Unload（Cancel As Integer）Set myCLS = NothingEnd本文代码展示了类的方法的代码编写过程和调用方式 （ 尽管它和类的事件非常相似 ），它的效果是，如果密码框中被输入了非字母， 则系统振铃，并删除密码框中的原来的数据一一在一定程度上保护密码。类的方法可以不需要任何参数，这一点类似一个 public 的函数或者过程，它也是类中使用 最广

2、泛的。在下一篇文章中我将讨论，如何使用类的属性、事件和方法进行综合编程 .在 Visual Basic 类的技术与应用（上） （以下简称上文）中，我们讨论了类的理论、 类的创建和类的方法的编程实践， 实际上， 类之所以能够在软件工程中广泛应用， 最主要的 一点是它可以非常方便的封装许多编程需要的属性， 这不仅使程序员在一定程度上克服控件（OCX）和链接库（dll ）设计和调试中的复杂性， 而且能够提高程序代码的简洁和高效性一一 本文将讨论完整的类的编程，包括方法、属性和基本事件。这些值被类（一）类的属性的特征和定义；类似于标准控件的属性， 类的属性允许用户在指定的数据范围内进行赋值，内的各个代

3、码部分所共 享。属性的获得和传递 需要经过 Property Let 和Property Get 语句进行编程，当然，我们首先需要在类中进行全局或者模块级的相应变（二）事件的属性和基本定义；和窗体的事件类似，类也有两个基本的事件， Class_Initialize （类加载时触发）和 Class_Terminate （类卸载时触发） ，这两个事件都是 private 的。实际上， 我们完全可以忽 略这两个事件一一只要你记得完善类的方法和属性。类同样可以定义自己的事件，它和方法的程序编写格式类似，只不过需要 WithEvents关键字进行参数声明 , 而且事件不能有任何命名参数或者可选参数，它也

4、没有返回值。实际上，结构良好的方法和属性完全可以替代结构复杂的类的事件。（三）类的方法、事件和属性的编程实例；本程序的设计目的是， 通过类控制窗体中文本框的内容的全部大写、 小写和逆向排序转 化。为了方便代码的书写和调用，我在类中引用了枚举的编程方法。以下代码在类 Class1 ：Option ExplicitPrivateWithEventsmyTXT As TextBox方法的参数接口Public Enum sTYLELcaseit 小写属性Lbigit 大写属性Nlogoit 逆向排序属性End Enum自定义枚举，用来实现属性的自动赋值Private mvarBiaozhi As sT

5、YLE实现枚举常量的连接StringPublic Function dONE（） AsDONE 方法用来根据指定的枚举属性，对窗体文本框进行相应的字符转化操作并且返回转化后的字符串dONE = StrReverse（myTXT）逆向排序dONE = LCase（myTXT）强制小写转化ElsedONE = UCase（myTXT）强制大写转化End IfEnd FunctionDONE 方法结束获得属性的被赋的值mvarBiaozhivDataPropertyPublicProperty Get Biaozhi（） As sTYLE传递属性值到类中SetBiaozhi = mvarBiaozh

6、iSub Attach（itTEXT As TextBox）连接类的方法myTXT = itTEXTSubPrivate Sub Class_Initialize（） 本事件在类倍加载时激活IIMsgBox 你好！本程序向您展示使用类的方法、属性、事件进行编程的技术！Private Sub Class_Terminate（） 本事件在类被卸载时激活记得在 Class_Terminate 中填写对象撤销后的代码！ 类的代码全部结束四）窗体代码的引用编程；C0MMAND1在窗体F0RM1中添加文本控件 TEXT1、下拉列表控件 COMBO1命令按钮CAPTION= 开始转化 ），调整三个控件到适当

7、位置。Dim myT As New Class1 类的引用 字符串大写转化 字符串小写转化 字符串逆向排序在列表框中添加属性选项Private Sub Command1_Click（）当命令按钮按下时激活类Text1方法参数联接Select CaseCase 0LbigitCase 1LcaseitCase 2NlogoitEnd Select根据列表框的选择，给类的 Biaozhi 属性赋值注意，在编程环境中，上述属性值自动添加返回排序结束后的字符串Integer）Private Sub Form_Unload（Cancel AsSet myT = Nothing良好的编程习惯怎么样，我们的代码看起来如此的简洁， 这种感觉就象是在使用一个控件， 不仅可以随心所欲的调用，而且方便的使用了 vb的自动提示功能。（要自动提示，可以进行枚举）