建立OLEObject 并用类 WithEvents 设定其事件的问题

lolmuta

欲在sheet1中建立3个Command button,并利用类设定各按钮的事件，不过一直不成功…
有一类名class1，作用是设定按钮事件用
代码

1. Public WithEvents Comm As CommandButton
   
2. Private Msg$
   
3. Public Sub SetMsg(pMsg$)
   
4.     Msg$ = pMsg$
   
5. End Sub
   
6. 
   
7. Private Sub Comm_Click()
   
8.     MsgBox Msg$
   
9. End Sub
   

复制代码

另有模块 ，作用是产生Commandbutton 并设定其事件

1. Public EvCC As New Collection
   
2. 
   
3. Sub WithEventsTest()
   
4. 
   
5.     'Dim OLeObj As OLEObject
   
6.     Dim Cmd As CommandButton
   
7. 
   
8.     For i = 0 To 2
   
9.         'Create OLEObject process--------------------
   
10.         Set Cmd = Sheet1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
    
11.             , DisplayAsIcon:=False, Left:=225.75 + i * 72, Top:=138, Width:=72, Height:=24 _
    
12.             ).Object
    
13. 
    
14.         Cmd.Caption = i
    
15.         '--------------------------------------------
    
16.         
    
17.         'Set Oleobject  Event-------------------
    
18.         Dim E As New Class1
    
19.         Set E.Comm = Cmd
    
20.         E.SetMsg "This is " & CStr(i)
    
21.                
    
22.         '--------------------------------------------
    
23.         
    
24.         'Set Event Object to public Var
    
25. 
    
26.         EvCC.Add E
    
27.             
    
28.         '--------------------------------------------
    
29.         
    
30.         'Clear E event class
    
31.         Set E = Nothing
    
32.     Next
    
33.    
    
34. End Sub

复制代码

运行模块中的sub WithEventsTest()一直不成功

我有试过若不是创件按钮的话，代码是可以运作的。

tianying

试了几遍，貌似不能在一个过程中实现，只能分两次过程，添加控件，设置类属性。且不能用添加控件的过程，调用设置类属性来达到目的。

tianying

我推测，用代码当向工作表中插入ActiveX控件时，处于设计模式，故无法实现对所插入的模块进行类化处理（实时模式）；只有退出设计模式后，才能实现。
可以将代码分开，插入控件用自定义的sub实现，激活控件的类化用工作表事件。但是其中还是会有一点问题。

jpj123

如果方便的话，建议上传附件

tianying

这次好像可以了，用Ontime调用设置类的过程，基本上差不多了，见附件。 withevents1.rar (20.43 KB, 下载次数: 282)

2015-3-15 12:55 上传

点击文件名下载附件
例子

风筝那根线

学习学习........