vbscript使用ocx控件的方法及事件

来源:互联网 发布:小刀源码 编辑:程序博客网 时间:2024/05/18 12:36

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub button1_onclick
DOcxtest1.AboutBox ()

End Sub

Sub DOcxtest1_Click()
   DOcxtest1.AboutBox ()
end sub

-->
</SCRIPT>
</HEAD>
<BODY>

<P>
<INPUT id=button1 type=button value=Button ONCLICK=button1_onclick name=button1>
<OBJECT id=DOcxtest1 classid=clsid:DF20ADA5-E9EF-4941-8B05-439E647049DF>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_StockProps" VALUE="0">
</OBJECT>
</P>
<font color=blue>运行之前请先注册控件!</font><br>
谭宜波 发布于2003.3.14
</BODY>
</HTML>