VBA类：隐者的秘密

Suntime · 发表于 2012-11-4 22:57

我下载了，如此优秀的作品，感谢楼主的无私分享，谢谢！

jgmhmtdh · 发表于 2012-11-4 23:26

对类的概念一直很模乎，不知道能不能用现实中很形象的东西来描述一下它1

zdl0516 · 发表于 2012-11-5 11:56

fghfgdgfdgfdhghdgfdg

chensuiwei · 发表于 2012-11-10 16:24

类是实现办公自动化的关键，不仅仅是类作为技术，更是思考理念的变革。
从使用工具到自制工具。
陆陆续续学了好久虽然还没什么大的进展，但这是必须要过的一关

dingboy_VBA · 发表于 2012-11-28 22:27

qee用发表于 2006-11-7 20:47
四、创建类属性让我们想一下作为类的使用者时，我们是如何操作对象的属性的，对象属性的操作不外乎读和写两 ...

看这段吃了个亏, 上面那个用公共变量作为属性(其实不是属性)的代码不能带到下面那一例子,否则出现"二义性的名称"而无法运行.(我还误以为是Get后面的名字要与某个变量同名才能关联.)

feixinmuji · 发表于 2012-11-28 22:48

非常感谢施教

mchscofield · 发表于 2012-12-18 14:42

下载，学习了。谢谢了

astrkkk · 发表于 2012-12-19 10:03

下载了，感谢楼主无私的奉献

小口草 · 发表于 2013-1-15 22:37

真是好东西！谢谢楼主分享

haijindi · 发表于 2013-3-4 23:49

看了"qee用"版主的vba类: 隐者的秘密想自己试一下，可是没成功，可我是照搬了这上面的例子啊，不知道哪位高手给解释一下缘由?
代码如下，先定义了类模块为"myClass"
option Explicit
Public WithEvents NewCB As CommandButton

Public Sub NewCB_Click()
UserForm5.Label1 = NewCB.Caption
End Sub

然后在UserForm5做了如下定义:

Private Sub UserForm_Initialize()
Dim mycb As myClass

Set mycb = New myClass
Set mycb.NewCB = Me.Controls("CommandButton1")

End Sub
也就是说当UserForm5 出现的时候 Label1的Caption 应该变为 Userform5的 CommandButton1的caption 即字符串" CommandButton1"。
但结果是没有任何反应，通过监视发现 mycb.NewCB 已经被 Me.Controls("CommandButton1") 付了值了啊。
困惑啊
谢谢高手的解答

		自动登录	找回密码
密码			免费注册