请问怎么用VBScript调用ActiveX里面的代码?(50分)

  • 主题发起人 主题发起人 janestory
  • 开始时间 开始时间
J

janestory

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个ActivexForm, 里面有一个按钮Button1,点击事件为Button1Click。我想在IE中
利用JavaScript或者VBScript调用Button1Click事件,代码出错,请问各位何解?
代码如下:



<HTML>
<H1> Delphi 6 ActiveX Test Page </H1><p>
You should see your Delphi 6 forms or controls embedded in the form below.
<HR><center>
<P>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
aaa.Button1.Button1Click()
End Sub
-->
</SCRIPT>

<OBJECT
classid="clsid:6A54274F-1C7E-42CD-9B6B-EB2F0D608DB7"
name="aaa"
codebase="file:///c:/temp/ActiveFormProj1.ocx#version=1,0,0,2"
width=0
height=0
>
</OBJECT>

<p>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="单击此处">
</HTML>
 
难道没有人知道吗?这个问题很难?还是觉得太简单了,不愿意告诉我?
 
你不了解activex的原理。不可能直接调button1的click事件。
你在view --type libaray可以看到没有Button1Click方法,即没有对外的接口
所以不能调用。
只有一种方法:
在type libaray里添加一个方法如 HEllo;
在Hello方法里写下
Button1.onclick;
在a.asp里写下:
<%
set aaa=Server.CreateObject("HelloProj1.Hello")
aaa.Hello
%>
调用a.asp可以了。
HelloProj1.Hello是project名+activeform名
 
已经成功了,谢谢!
 
后退
顶部