各位大神关于窗口定义的问题

jccg15160

窗口名称：userform4，代码如下
Public WithEvents appevent As Application
Private Sub appevent_newworkbook(ByVal wb As Workbook)
   MsgBox "你好!你将新建", vbOKOnly
End Sub
模块内出错代码如下：
Sub 测试新建工作簿事件()
Dim frm As UserForm
Set frm = New UserForm4
Set frm.appevent = Application
Workbooks.Add
End Sub
模块内正确代码如下：
Sub 测试新建工作簿事件()
Dim frm as new UserForm4
Set frm.appevent = Application
Application.Workbooks.Add
End Sub
请问下上下两种方式定义窗口有什么差别？谢谢

taller

这个是类模块代码，不是窗体代码

microyip

1. Sub 测试新建工作簿事件()
   
2. Dim frm As Object
   
3. Set frm = New UserForm4
   
4. Set frm.appevent = Application
   
5. Workbooks.Add
   
6. End Sub

复制代码

或者

1. Sub 测试新建工作簿事件()
   
2. Dim frm As UserForm4
   
3. Set frm = New UserForm4
   
4. Set frm.appevent = Application
   
5. Workbooks.Add
   
6. End Sub

复制代码

jccg15160

microyip 发表于 2020-2-20 08:02
或者

大神，我想问下为什么定义一定要定义成为AS userform4?,如果定义为AS userform有什么问题吗？userforms、userform、userform4这三个不同的定义有什么区别能告诉下吗?谢谢。

jccg15160

taller 发表于 2020-2-19 23:11
这个是类模块代码，不是窗体代码

大神，问下呢，把UserForm_Click()函数删除后可以用窗体来代替类吗？我看书上说的两者都是差不多的。