我的精品类模块！－部分使用详解1

welcpa

我的精品类模块！http://club.excelhome.net/viewth ... extra=&page=1#90099

对于象我这样的初学者，在开始接触类模块时都会觉得比较难，不过不要紧，随着我们学习的深入，我们会发现，其实它没有我们想象的这么难，其实它和我们模块编辑是一样的，不同的是它给我们更大的灵活性。

就目前来讲，综合我反复体会类模块的经验，我把类模块看成产生自己的对象的代码。

比如我们都很熟悉Worksheets 集合对象，Worksheet对象，

而在我的类模块里设计了Settings集合对象，setting对象。

Worksheets和Settings两者的重要区别是前者是EXCEL内置的，后者是自己设计的。通过自己的类模块编辑，我们就可以产生自己想要，但EXCEL里没有的对象。

一旦我们设计好了自己的对象，就可以象EXCEL的内置对象那样使用它。

你将可以用 对象.属性＝属性值 这样在VBA中最广泛公式来编辑。在我的类模块中

settings类的成员，设计了

*************************************************

成员 类型 用途

Add 方法 向集合中添加一个新的Setting

Count 属性 计算设置数目

Delete 方法 删除所有的设置

Item 方法 通过索引或名称返回1个setting对象

ItemByValue 方法 通过设置值返回1个setting对象

************************************************

在有setting文件中，添加1个新模块，加入下test()的过程，请看

Sub test() Dim moSetting As Setting Dim moSettings As Settings '删除".",再加上"."看变化 moSettings. moSetting. End Sub

---------------------------------------------

'moSettings' + '.' 时,你发现了什么，是不是很惊奇！

你还可以在对象浏览器，中VBAProject中查看！

Setting类的成员……，未完待续

[此贴子已经被作者于2005-4-3 15:57:43编辑过]

stanleypan

对,总结的不错,类是比较不错的研究方向对于我们喜欢EXCEL编程的人来说.类可以增加一些自定义的事件和方法.

[此贴子已经被作者于2005-4-2 15:44:32编辑过]

welcpa

setting类 的成员

*******************************************************************************************

成员名称 类型 用途

ChangeEditMode 方法 打开/关闭编辑设置功能

Delete 方法 删除设置

Description 属性 设置描述

GetSetting 方法 初始化对象

Index 属性 设置的索引

Name 属性 设置的名称

SettingType 属性 设置的类型（不可读写、只读、读－写、读－保护写）

Value 属性 设置值

***********************************************************************************

未完待续……

setting类的其他优点

[此贴子已经被作者于2005-4-2 18:05:01编辑过]

shuiyuan

好东东，收藏。

建议：最好是放到一个文件中

foshan

我有一件事情始终不明白，shuiyuan 大师是什么人？有时我看到他有的帖子是在凌晨三、四点回复的，这次是在早晨五点十一分回帖子，他怎么晚上不睡觉？

DC.Direct

以下是引用foshan在2005-4-3 10:10:00的发言： 我有一件事情始终不明白，shuiyuan 大师是什么人？有时我看到他有的帖子是在凌晨三、四点回复的，这次是在早晨五点十一分回帖子，他怎么晚上不睡觉？

可能不在一个时区？？？哈哈~~

welcpa

以下是引用shuiyuan在2005-4-3 5:11:00的发言：

建议：最好是放到一个文件中

响应shuiyuan兄建议,参考转回，

http://club.excelhome.net/viewth ... extra=&page=1#90099

18楼。

[此贴子已经被作者于2005-4-3 15:58:41编辑过]

boy8238

先做记号以后学习

xull1983

类收藏。。。。