To:liuzhw
­首先謝謝你的指教,但我按以下作法卻仍無法將參數傳入ActiveForm中,如有不當請多指教!
在ActiveForm中利用Type Library定義一個BSTR,Read/Write類型的Property(test),
在unit中產生兩個方法Get_Test()和Set_Test(),我在單元的Private中定義String類型的變
量test,下面是這兩個方法的實作代碼:
function TafModule.Get_Test: WideString;
begin
result:=Test;
end;
procedure TafModule.Set_Test(const Value: WideString);
begin
Test:=Value;
end;
我在FrontPage中按照你給我的腳本代碼改寫如下:
"
<HTML>
<Body BgColor="#AAAAAA">
<OBJECT
ID="MsCode"
classid="clsid:4FEF9E70-A34D-11D4-88EB-0000210015E1"
codebase="http://gfc0220/MD52Scripts/afp_module.ocx#version=1,0,45,0"
width=767
height=530
align=center
hspace=0
vspace=0
>
</OBJECT>
<SCRIPT language="VBScript">
sub some_name
MsCode.set_test("LiJiYu")
end sub
</Script>
<input type=button value=開始 onclick=some_name>
</Body>
</HTML>
"
在FrontPage中瀏覽出現"物件不支持該屬性或方法:MsCode.Set_Test()"
以上錯誤,急盼幫忙解決!
