'控件中添加下面的代码
Event OnShutdown()Private Sub CloseButton_Click()
RaiseEvent OnShutdown
End Sub网页中添加
<OBJECT id=obj1 name=obj1 codeBase="XXXX.ocx" classid="clsid:......."></object>
<script language=vbs>
sub obj1_OnShutdown()
call window.close
end sub
</script>
Event OnShutdown()Private Sub CloseButton_Click()
RaiseEvent OnShutdown
End Sub网页中添加
<OBJECT id=obj1 name=obj1 codeBase="XXXX.ocx" classid="clsid:......."></object>
<script language=vbs>
sub obj1_OnShutdown()
call window.close
end sub
</script>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货