[已解决]请教，如果commandbutton1已经画在窗体上了，如果再用代码声明一次会有什么后果？

silenthunter

请教，如果commandbutton1已经画在窗体上了，再用代码声明一次会有什么后果？试过，结果是这个按钮的事件代码无效了但不报错。是什么原理？
Dim WithEvents CommandButton1 As MSForms.CommandButton

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-19 21:02

这种用法还是比较奇怪。
自己在过程中声明的与系统提供的声明貌似不会在编译时报错。
隶属的库不一样。
如果当前模块或工程中有的话，有可能不会找到系统提供的库中查找。

跳转到最佳答案楼层

hwc2ycy

我是这么理解的，因为在你的模块中已经有了相应的方法或函数，原来系统提供的就无效了。

1. Private Sub CommandButton1_Click()
   
2.     msgbox "1"
   
3. End Sub
   
4. 
   
5. Sub msgbox(str)
   
6.     Debug.Print str
   
7.     Stop
   
8. End Sub
   

复制代码

这里我定义了一个msgbox函数，系统提供的就无效了。
如果想调用系统的，

1. VBA.msgbox 1

复制代码

hwc2ycy

再继续挖

1. Dim WithEvents CommandButton2 As MSForms.CommandButton
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     msgbox "1"
   
5.     VBA.msgbox 1
   
6. End Sub
   
7. 
   
8. Sub msgbox(str)
   
9.     Debug.Print str
   
10.     Stop
    
11. End Sub
    
12. 
    
13. Private Sub CommandButton2_Click()
    
14.     VBA.msgbox "test"
    
15. End Sub
    
16. 
    
17. Private Sub UserForm_Click()
    
18. 
    
19. End Sub
    
20. 
    
21. Private Sub UserForm_Initialize()
    
22.     Set CommandButton2 = Me.CommandButton1
    
23. End Sub

复制代码

单击按钮后，先会调用原有的click事件，然后再是commandbutton2的click事件。

hwc2ycy

这种用法还是比较奇怪。
自己在过程中声明的与系统提供的声明貌似不会在编译时报错。
隶属的库不一样。
如果当前模块或工程中有的话，有可能不会找到系统提供的库中查找。