关于Visual Basic 6.0类开发之五(转)

（三） 类的方法、事件和属性的编程实例 ；

　　 本程序的设计目的是，通过类控制窗体中文本框的内容的全部大写、小写和逆向排序转化。

　　 为了方便代码的书写和调用，我在类中引用了枚举的编程方法。

　　 以下代码在类Class1：

　　 Option Explicit

　　　 Private WithEvents myTXT As TextBox

　　　 '方法的参数接口

　　　 Public Enum sTYLE

　　　　 Lcaseit'小写属性

　　　　 Lbigit'大写属性

　　　　 Nlogoit'逆向排序属性

　　　 End Enum

　　 '自定义枚举，用来实现属性的自动赋值

　　 Private mvarBiaozhi As sTYLE

　　 '实现枚举常量的连接

　　 Public Function dONE() As String'

　　 'DONE方法用来根据指定的枚举属性，对

　　 '窗体文本框进行相应的字符转化操作

　　 '并且返回转化后的字符串

　　 If mvarBiaozhi = Nlogoit Then

　　　 dONE = StrReverse(myTXT)

　　　 '逆向排序

　　 ElseIf mvarBiaozhi = Lcaseit Then

　　　 dONE = LCase(myTXT)

　　　 '强制小写转化

　　 Else

　　　 dONE = UCase(myTXT)

　　　 '强制大写转化

　　 End If

　　 End Function

　　 'DONE方法结束

　　 Public Property Let Biaozhi(ByVal vData As sTYLE)

　　　 '获得属性的被赋的值

　　　 mvarBiaozhi = vData

　　 End Property

　　 Public Property Get Biaozhi() As sTYLE

　　　 '传递属性值到类中

　　　 Set Biaozhi = mvarBiaozhi

　　 End Property

　　 Public Sub Attach(itTEXT As TextBox)

　　　 '连接类的方法

　　　 Set myTXT = itTEXT

　　 End Sub

　　 Private Sub Class_Initialize()

　　　 '本事件在类倍加载时激活

　　　 MsgBox "你好！本程序向您展示使用类的方法、属性、事件进行编程的技术！"

　　 End Sub

　　 Private Sub Class_Terminate()

　　　 '本事件在类被卸载时激活

　　　 MsgBox "你好！记得在Class_Terminate中填写对象撤销后的代码！"

　　 End Sub

　　 '类的代码全部结束[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925246/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925246/