过程是这样的:
1、启动vb6,创建一个“ActiveX控件”类型的新工程
2、在“UserControl1”上画一个Command1,并添加下列代码:Option Explicit
Public Event upevent()
Private Sub Command1_Click()
RaiseEvent upevent
End Sub3、f5启动调试,这时浏览器打开一个URI,并显示出这个控件。
4、在不关闭调试的情况下,打开这个URI,修改代码如下:<HTML>
<BODY>
<OBJECT id="obj1" classid="clsid:13F535A9-259F-4691-A8EF-F4FB6E23BDC5"></OBJECT>
</BODY>
<script language="javascript" type="text/javascript" for="obj1" event="upevent">
<!--
alert("upevent")
// -->
</script>
</HTML>5、保存,刷新IE
6、点击控件上的Command1,页面中没有响应很郁闷,不知道是怎么回事
1、启动vb6,创建一个“ActiveX控件”类型的新工程
2、在“UserControl1”上画一个Command1,并添加下列代码:Option Explicit
Public Event upevent()
Private Sub Command1_Click()
RaiseEvent upevent
End Sub3、f5启动调试,这时浏览器打开一个URI,并显示出这个控件。
4、在不关闭调试的情况下,打开这个URI,修改代码如下:<HTML>
<BODY>
<OBJECT id="obj1" classid="clsid:13F535A9-259F-4691-A8EF-F4FB6E23BDC5"></OBJECT>
</BODY>
<script language="javascript" type="text/javascript" for="obj1" event="upevent">
<!--
alert("upevent")
// -->
</script>
</HTML>5、保存,刷新IE
6、点击控件上的Command1,页面中没有响应很郁闷,不知道是怎么回事
按道理点击了vb的Command1后执行RaiseEvent upevent引发事件,这是javascript 会接收到事件,触发 javascript 的 alert("upevent")
然后你这样看看。
obj1.upevent = function(){
alert("upevent");
}
真叫个别扭