求助：为什么我的自定义事件不能触发？

Question

把代码发一份给我吧。
[email protected]

Answer 1

WithEvents 
可选的。关键字，说明 varname 是用来响应由 ActiveX 对象触发的事件的对象变量。
只有在类模块中才是合法的。
~~~~~~~~~~~~~~~~~~~~~~~~~注意啦!
使用 WithEvents，可以定义任意个所需的单个变量，但不能用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。 

Answer 2

一般自定义事件的方法
Public Event BarButtonClose()
Public Event BarButtonOn()在其他事件激发时:Private Sub cmd_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
  Case "close"
    RaiseEvent BarButtonClose
  Case "on"
    RaiseEvent BarButtonOn
    cmd.Buttons(1).Tag = "close"
    cmd.Buttons(1).Image = 1
    
End Select
End Sub这是做控件进才做的!

Answer 3

这句有问题
dim withevents fdlgchn as dlgchn应该只能是
dim withevents fdlgchn as form
才可以用啊!