VBA中类的解读及应用第三十四讲 枚举的利用----“二师兄”的成长历程之六

《VBA中类的解读及应用》教程【10165646】是我推出的第五套教程目前已经是第一版修订了。这套教程定位于最高级是学完初级中级后的教程。类是非常抽象的更具研究的价值。随着我们学习、应用VBA的深入有必要理解这些抽象的理论知识。对象类过程方法属性事件接口接口如何实现等等。掌握了这些理论不仅对于VBA这种寄生语言的实质有所深入的理解也对自然界的很多事物将同样有所感悟。目前这套教程程序文件已经通过32位64位两种office系统测试。这套教程共两册八十四讲今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是VBA中类的解读及应用第三十四讲 枚举的利用----“二师兄”的成长历程之六【分享成果随喜正能量】生活就像是一杯苦茶而情感是茉莉花调兑在一起才会馥郁芬芳。人活在世上有诸多苦楚萦心若不懂得自我调解终究会被纷呈的世相掩埋。所以更多的时候我们要淡看事世只有这样才可淡然前行自在清明。​第三十四讲 枚举的利用----“二师兄”的成长历程之六大家好今日继续类的讲解到上一讲我们的pigsy类的羽翼已经逐渐丰满本篇的内容将让它变得更加专业。不知道你注意到没有pigsy类中对Gender性别属性的设计存在一点缺陷我们用私有模块级字符串变量myGender宿主来保存性别数据既然是一个字符串变量那就可以往里面保存任何字符串数据比如“女”“女性”“Female”“男”“男性”“male”。虽然字面上都是可以理解的意思但是写法上都不相同你无法控制使用者会给myGender赋什么值这样就会造成信息处理和判断上的混乱。作为一个较为专业的类的设计者我们要提供一套规范的取值范围。在上面的文字中我提到了六个取值这些值可以说是一个相对固定的常量我们可以在类中使用像这种固定的常量名称这种在类中使用常量的方式是非常普遍的。现在我们就来介绍如何在自己的类中使用这种常量。1 枚举类型Enumeration的应用这种常量实际上是枚举类型Enumeration中的一个值。我们在pigsy类的头部为性别属性定义一个枚举类型pGenderPublic Enum pGenderFemaleMaleEnd Enum这里的枚举是pGender其中“p”代表类名“pigsy”我们定义的是公有的Public枚举类型这个枚举类型在整个项目范围内都是可见的将类名缩写作为前缀有利于与其他类中的枚举类型相互区分。特别注意点一般的常量在定义的时候需要给定一个常量值可以为各种类型比如Const PI As Double 3.14就是双精度型。但是枚举类型常量很特殊它只能是长整形Long比如Female 0。但是我们这里连“0”都没有写。如果什么都没写叫表示“从0开始依次加1”所以上述代码与下述代码是一样的Public Enum pGenderFemale 0Male 1End Enum好了枚举类型的定义就介绍到这里。我们来看看如何使用它。可以用Select Case 语句控制返回的枚举值2 枚举在代码中的实际应用有了pGender这个类型我们就可以将性别属性定义为这种类型了。我们将Private myGender As String 改为Private myGenderA As pGender将Gender的读写属性做相应修改相关代码最后效果如下Private myGenderB As pGenderPublic Enum pGenderFemale 0Male 1End EnumPublic Property Get Gender() As pGenderGender myGenderAEnd PropertyPublic Property Let Gender(inGender As pGender)Static myFlag As BooleanIf myFlag False ThenmyFlag TruemyGenderA inGenderElseMsgBox 对不起二师兄不能做性别修改End IfEnd Property类修改枚举部分的代码截图有了这些修改以后我们在类的测试代码中就会发现不一样的效果了如下图:通过以上的修正类的使用者模块1中的测试代码在给性别赋值的时候IDE的智能提示就会自动显示出来供其选择。类中的枚举常量使用起来非常简单但是它极大地增加了类的友好性也是开发人员专业性的直观体现。是一项投资回报率非常高的技能。今日内容回向1 本讲中讲了枚举读者是否明白了?2 本讲的代码中类的属性是否发生了改变本讲内容参考程序文件VBA-CLASS34.xlsm我20多年的VBA实践经验全部浓缩在下面的各个教程中