可以 如: events Click() events MyClick() 1. public sub usercontrol_Click() msgbox "1" raiseevent Click end sub 2. public sub MClick() msgbox "2" raiseevent myClick end sub
我想在点击按钮的时候调用自定义时间,自定义处理函数中msgbox,为什么没有反应? Public Event MyClick()Public Sub MyClick() MsgBox "2" End SubPublic Sub Command1_Click() RaiseEvent MyClick End Sub
Re: //我想在点击按钮的时候调用自定义时间,自定义处理函数中msgbox,为什么没有反应? Public Event MyClick()Public Sub MyClick() MsgBox "2" End SubPublic Sub Command1_Click() RaiseEvent MyClick End Sub //自定义事件不是这样用的。
假设你的控件名为MyControl,在代码中这样写:Public Event MyClick() ' 声明一个事件'' 如果这样,那么需要在你的自定义控件中加入一个命令按钮!当点击这个控件中的按钮时去激发你的事件。 Public Sub Command1_Click() RaiseEvent MyClick End Sub 在引用控件的窗口中才能使这个MyClick事件触发。 Private sub MyControl1_MyClick() MsgBox "2" End Sub如果我没理解错,应该是上面的样子了。
如:
events Click()
events MyClick()
1.
public sub usercontrol_Click()
msgbox "1"
raiseevent Click
end sub
2.
public sub MClick()
msgbox "2"
raiseevent myClick
end sub
events Click()->Event Click()
events MyClick()->Event MyClick()第一种是把已有的事件提交出去
第二种是自定义的事件,但要控件在运行时能响应这个事件,就要自定义消息处理了
Public Event MyClick()Public Sub MyClick()
MsgBox "2"
End SubPublic Sub Command1_Click()
RaiseEvent MyClick
End Sub
Public Event MyClick()Public Sub MyClick()
MsgBox "2"
End SubPublic Sub Command1_Click()
RaiseEvent MyClick
End Sub
//自定义事件不是这样用的。
Public Sub Command1_Click()
RaiseEvent MyClick
End Sub
在引用控件的窗口中才能使这个MyClick事件触发。
Private sub MyControl1_MyClick()
MsgBox "2"
End Sub如果我没理解错,应该是上面的样子了。