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

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

《VB类模块教程Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB类模块教程Word文件下载.docx（6页珍藏版）》请在冰豆网上搜索。

OptionExplicit

PrivatemyCLSAsNewcis

引用cis

PrivateSubForm_Load（）

Textl

启动类

EndSub

在代码结束时记得释放资源

PrivateSubForm_Unload（CancelAsInteger）

SetmyCLS=Nothing

End

本文代码展示了类的方法的代码编写过程和调用方式（尽管它和类的事件非常相似），它

的效果是，如果密码框中被输入了非字母，则系统振铃，并删除密码框中的原来的数据一一

在一定程度上保护密码。

类的方法可以不需要任何参数，这一点类似一个public的函数或者过程，它也是类中使用最广泛的。

在下一篇文章中我将讨论，如何使用类的属性、事件和方法进行综合编程.

在VisualBasic类的技术与应用（上）（以下简称上文）中，我们讨论了类的理论、类的创建和类的方法的编程实践，实际上，类之所以能够在软件工程中广泛应用，最主要的一点是它可以非常方便的封装许多编程需要的属性，这不仅使程序员在一定程度上克服控件

（OCX）和链接库（dll）设计和调试中的复杂性，而且能够提高程序代码的简洁和高效性一一本文将讨论完整的类的编程，包括方法、属性和基本事件。

这些值被类

（一）类的属性的特征和定义；

类似于标准控件的属性，类的属性允许用户在指定的数据范围内进行赋值，

内的各个代码部分所共享。

属性的获得和传递需要经过PropertyLet和

PropertyGet语句进行编程，当然，我们首先需要在类中进行全局或者模块级的相应变

（二）事件的属性和基本定义；

和窗体的事件类似，类也有两个基本的事件，Class_Initialize（类加载时触发）和Class_Terminate（类卸载时触发），这两个事件都是private的。

实际上，我们完全可以忽略这两个事件一一只要你记得完善类的方法和属性。

类同样可以定义自己的事件，它和方法的程序编写格式类似，只不过需要WithEvents

关键字进行参数声明,而且事件不能有任何命名参数或者可选参数，它也没有返回值。

实际上，结构良好的方法和属性完全可以替代结构复杂的类的事件。

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

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

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

以下代码在类Class1：

OptionExplicit

Private

WithEvents

myTXTAsTextBox

方法的参数接口

PublicEnumsTYLE

Lcaseit'

小写属性

Lbigit'

大写属性

Nlogoit'

逆向排序属性

EndEnum

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

PrivatemvarBiaozhiAssTYLE

实现枚举常量的连接

String

PublicFunctiondONE（）As

'

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

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

并且返回转化后的字符串

dONE=StrReverse（myTXT）

逆向排序

dONE=LCase（myTXT）

强制小写转化

Else

dONE=UCase（myTXT）

强制大写转化

EndIf

EndFunction

DONE方法结束

获得属性的被赋的值

mvarBiaozhi

vData

Property

Public

PropertyGetBiaozhi（）AssTYLE

传递属性值到类中

Set

Biaozhi=mvarBiaozhi

SubAttach（itTEXTAsTextBox）

连接类的方法

myTXT=itTEXT

Sub

PrivateSubClass_Initialize（）

本事件在类倍加载时激活

II

MsgBox"

你好！

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

PrivateSubClass_Terminate（）

本事件在类被卸载时激活

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

类的代码全部结束

四）窗体代码的引用编程；

C0MMAND1

在窗体F0RM1中添加文本控件TEXT1、下拉列表控件COMBO1命令按钮

CAPTION="

开始转化"

），调整三个控件到适当位置。

DimmyTAsNewClass1

类的引用

"

字符串大写转化

字符串小写转化"

字符串逆向排序

在列表框中添加属性选项

PrivateSubCommand1_Click（）

当命令按钮按下时激活类

Text1

方法参数联接

SelectCase

Case0

Lbigit

Case1

Lcaseit

Case2

Nlogoit

EndSelect

根据列表框的选择，给类的Biaozhi属性赋值

注意，在编程环境中，上述属性值自动添加

返回排序结束后的字符串

Integer）

PrivateSubForm_Unload（CancelAs

SetmyT=Nothing

良好的编程习惯

怎么样，我们的代码看起来如此的简洁，这种感觉就象是在使用一个控件，不仅可以随心所

欲的调用，而且方便的使用了vb的自动提示功能。

（要自动提示，可以进行枚举）