V中类模块入门教程之一:你是VIP用户吗?

xdwy81129

学校了了。。。。。。。。。。。

2288liu

<p>代码要怎么写啊</p>

Hersheys

似懂非懂啊

xqgcb1000

很生动的一说

EZD

你们是懂了，我呢，。。。。有谁可以教教我啊。。。。[em04][em06]

鱼求雨

<p>万物皆可归为某种类</p><p>有相同特征的东西即为一类。</p><p></p>

苗春雨

加倍努力。

liuguansky

{:311:}定义几个可读不可写的属性就可以了吧。在类初始化下赋值初始值。

liuguansky

1. Private col As New Collection, i%, j%, k&
   
2. Public Sub add(rng As Range)
   
3.     col.add rng
   
4.     rng.Interior.Color = i
   
5.     rng.Font.Size = j
   
6.     rng.Font.Color = k
   
7. End Sub
   
8. Private Sub Class_Initialize()
   
9.     i = 192: j = 14: k = 13995347
   
10. End Sub

复制代码

1. Sub df()
   
2.     Dim v As New VIPs
   
3.     v.add Range("A1")
   
4. End Sub

复制代码

桌面.rar (24.87 KB, 下载次数: 22)

2011-1-21 10:38 上传

点击文件名下载附件

老糊涂

谢谢分享{:1112:}