VB6 usercontrol提升事件，如何在VBSCRIPT中捕获事件？

Question

我正在尝试在html页面的VBSCRIPT中捕获一个事件，但我无法使其工作。我一定错过了一步。

这是我的usercontrol（VB6）的代码：

Public Event sendText(ByVal Text As String)

Private Sub Command1_Click()
    RaiseEvent sendText(Text1.Text)
End Sub

这是我的网页代码（HTML）：

<form>

<OBJECT name="ActiveX" id="ActiveX" classid="clsid:..."></OBJECT>
<script language="VBScript">

Sub ActiveX_sendText(Text)
 Msgbox("aaa" & Text)
End Sub

</script>
</form>

单击Command1按钮时会在用户控件中引发Event，但我从未进入VBSCRIPT函数。

我使用的是IE8 / IE8 Standard。

有任何线索吗？

Answer 1

在Internet Explorer中配置安全规则时出现问题。启用未签名的ActiveX后，问题就解决了。