用vbscript如何访问activex控件中某个类的变量和函数

document.all.Id名字.属性document.all.Id名字.函数

解决方案 »

  1.   

    在HTML中加载activex用<OBJECT>标记,把要加载的activex控件的ID,CLASSID,PARAM等包含在<OBJECT></OBJECT>之间.
      

  2.   

    <html>
    <head>
    <script language="VBScript">
    <!--
    document.write("<center>")
    Sub SubClick()
    dim temp
    temp=CStr(date())
    document.f1.text1.value=temp
    End Sub
    Sub IeLabel1_Click()
    document.f1.text1.value="ActiveX "
    End Sub
    -->
    </script>
    </head>
    <body>
    <OBJECT ID="IeLabel1" WIDTH=148 HEIGHT=39 CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2">
    <PARAM NAME="_ExtentX" VALUE="3916">
    <PARAM NAME="_Extenty" VALUE="1032">
    <PARAM NAME="Caption" VALUE="ActiveX ">
    <PARAM NAME="Angle" VALUE="0">
    <PARAM NAME="Alignment" VALUE="4">
    <PARAM NAME="Mode" VALUE="1">
    <PARAM NAME="FillStyle" VALUE="0">
    <PARAM NAME="FillStyle" VALUE="0">
    <PARAM NAME="ForeColor" VALUE="#FF00EE">
    <PARAM NAME="BackColor" VALUE="#FF0000">
    <PARAM NAME="FontName" VALUE="Arial">
    <PARAM NAME="FontSize" VALUE="12">
    <PARAM NAME="FontItalic" VALUE="0">
    <PARAM NAME="FontBold" VALUE="0">
    <PARAM NAME="FontUnderline" VALUE="0">
    <PARAM NAME="FontStrikeout" VALUE="0">
    <PARAM NAME="TopPoints" VALUE="0">
    <PARAM NAME="BotPoints" VALUE="0">
    </OBJECT>
    <br>
    <form action="xydl.asp" method="post" name="f1">
    <input type="button" value="clickme" onclick="Subclick()" name="b1">
    <input type="text" vlue="Chg" name="text1">
    </form>
    </body>
    </html>
    这只是一个大概的例子.用的ActiveX标签控件的click事件.