关于ocx与html的问题?

xjbx

博客专家认证

2003-07-11 03:45:42

请教如何在ocx中创建HTML元素并将它们插入到页面而不是用“页面设计器”。我用了insertAdjacentHTM方法不行！
谢谢！

...全文

137 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

xjbx 2003-07-25

打赏
举报

xjbx 2003-07-21

打赏
举报

有人可以帮我么？

since1990 2003-07-20

打赏
举报

xjbx 2003-07-20

打赏
举报

我发现着方面的资料太少了，msdn也没给什么！

我是想用方法来写一个上传的控件！

xjbx 2003-07-19

打赏
举报

我的代码是ocx中动态生成一个html的元素：file（就是用于上传文件的那个组件，点击“浏览”，选择文件），我的代码是这样写的：

Private Sub Command1_Click()
Dim inputname As String
Dim oDoc As HTMLDocument
Dim oFileInput As HTMLFormElement
Dim odiv As HTMLDivElement
Dim pathname As String
inputname = "name1"
Dim pathname As string

Set oDoc = New HTMLDocument
'生成一个file
Set oFileInput = oDoc.createElement("input")
oFileInput.setAttribute "name", inputname
oFileInput.setAttribute "id", inputname
oFileInput.setAttribute "type", "file"
oFileInput.outerHTML = "<input type='file' id='" + inputname + "' name='" + inputname + "' >"

'打开file
oFileInput.click
pathname=oFileInput.value
debug.print pathname
end sub

问题是：我在html里加载这个ocx后，单击“command1”后，没有任何的反应？当然也就得不到pathname的值。

另外：我引用的是“Microsoft HTML Object Library”，没有使用“页面设计器”。

请高手指点我的代码有什么问题？

since1990 2003-07-19