谁做过通过html向ActiveX文档中传参数呀？

slylyfox 2004-03-15 10:30:52

向ActiveX控件中传到可以，但如果是ActiveX文档呢？

html源文件为:
<HTML>
<HEAD>
<TITLE>Project1.CAB</TITLE>
</HEAD>
<BODY>

<OBJECT ID="UserDocument1"
CLASSID=""CLSID:933FB300-D683-4F42-A088-25C70226EB68""
CODEBASE="Project1.CAB#version=1,0,0,0" VIEWASTEXT>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad
Document.Open
Document.Write "<FRAMESET>"
Document.Write "<FRAME SRC=""UserDocument1.VBD"">"
Document.Write "</FRAMESET>"
Document.Close
End Sub
</SCRIPT>

</BODY>
</HTML>

如果ActiveX文档有一个属性MyTest，并想把它设成"Http://haha.html"的话，怎么该这个html呀？

谢谢！

...全文

76 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

slylyfox 2004-03-17

打赏
举报

没有人会吗？

我现在解决了ActiveX Document Dll模板的传参数问题，具体如下：
VB代码：
*********************************************************
Option Explicit

Private SOAPAddr As String
'Public ws As New MSSOAPLib30.SoapClient30

Public Property Get MyURL() As String
MyURL = s ' s在Modules中，声明为：Public s As String
End Property

Public Property Let MyURL(ByVal NewStrDocProp As String)
s = NewStrDocProp
PropertyChanged "MyURL"
End Property

Private Sub UserDocument_Initialize()
MsgBox "In UserDocument_Initialize"
MsgBox "MyURL is:" + MyURL
End Sub

Private Sub UserDocument_InitProperties()
Dim i As Integer
End Sub

Private Sub UserDocument_ReadProperties(PropBag As PropertyBag)
MyURL = PropBag.ReadProperty("MyURL", "")
End Sub

Private Sub UserDocument_Show()
MsgBox "In UserDocument_Show"
MsgBox "MyURL is:" + MyURL
End Sub

Private Sub UserDocument_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "MyURL", MyURL, ""
End Sub
*******************************************************************

HTML网页中有：
********************************************************
<HTML>
<HEAD>
<TITLE>Project1.CAB</TITLE>
</HEAD>
<BODY>

<OBJECT ID="UserDocument1"
CLASSID="CLSID:2BF3C06C-8A32-44A8-98D2-F768A927C738">

<PARAM NAME="MyURL" value="http://haha.htm">

</OBJECT>

<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad
Location.Href = "UserDocument1.VBD"
End Sub
</SCRIPT>

</BODY>
</HTML>
***************************************************

但现在的问题是用ActiveX Document EXE模板创建的工程用同样的方法却无法传进去参数，请问该怎么做？

天限天空 2004-03-15

打赏
举报

IPersistPropertyBag

slylyfox 2004-03-15

打赏
举报

这句UserDocument1.MyTest="Http://haha.html";加在哪里？难道在<SCRIPT></SCRIPT>之间吗？

我知道如果是ActiveX控件的话，可以用下面的来实现：
<BODY onload="return window_onload()">
<script language=javascript>

</script>
<OBJECT ID="HelloWorldCtl" CLASSID="CLSID:6CAF74B9-3F8A-47A7-AEED-A7173A386D4D" VIEWASTEXT>
</OBJECT>
</BODY>
但如果是ActiveX文档的话我就不太清楚了！

另外我的文档是用VB中的ActiveX Document EXE模版来产生的，好像不是来自COleClientItem接口吧！

gjd111686 2004-03-15