VB6控件 WebBrowser中加载的网页问题？？？？？？如题，给出能用的方法我会在加分。。。 100
ForEachItem1InWebBrowser1.Document.frames("popup_dialog_frame").Document.getElementsB...
For Each Item1 In WebBrowser1.Document.frames("popup_dialog_frame").Document.getElementsByTagName("span")
If Item1.innerText = "选择文件" Then
Item1.parentElement.Click
End If
Next
其中POPUP_dialog_frame 是框架名，是个浮动框架，此代码的在IE8中能用，但IE10中却不能用，提示为对象‘frames’的方法 'JScriptTypeInfo'失败 展开
If Item1.innerText = "选择文件" Then
Item1.parentElement.Click
End If
Next
其中POPUP_dialog_frame 是框架名，是个浮动框架，此代码的在IE8中能用，但IE10中却不能用，提示为对象‘frames’的方法 'JScriptTypeInfo'失败 展开
2个回答
展开全部
可以尝试下边这个
Private Sub Command1_Click()
Set ie = CreateObject("internetexplorer.application")
ie.menubar = 1 '不显示IE对象菜单栏
ie.AddressBar = 1 '不显示IE对象地址栏
ie.ToolBar = 1 '不显示IE对象工具栏
ie.StatusBar = 1 '不显示IE对象状态栏
ie.FullScreen = 0 '全屏化IE对象
ie.Width = 800 '设置IE对象宽度
ie.Height = 600 '设置IE对象高度
ie.Resizable = 0 '设置IE对象大小是否可以被改动
ie.Visible = 1 '设置是否可见
ie.Navigate "web.qq.com" '设置IE对象默认指向的页面
End Sub
Private Sub Command1_Click()
Set ie = CreateObject("internetexplorer.application")
ie.menubar = 1 '不显示IE对象菜单栏
ie.AddressBar = 1 '不显示IE对象地址栏
ie.ToolBar = 1 '不显示IE对象工具栏
ie.StatusBar = 1 '不显示IE对象状态栏
ie.FullScreen = 0 '全屏化IE对象
ie.Width = 800 '设置IE对象宽度
ie.Height = 600 '设置IE对象高度
ie.Resizable = 0 '设置IE对象大小是否可以被改动
ie.Visible = 1 '设置是否可见
ie.Navigate "web.qq.com" '设置IE对象默认指向的页面
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
微测检测5.10
2023-05-10 广告
您好！建议咨 深圳市微测检测有限公司，已建立起十余个专业实验室，企业通过微测检测就可以获得一站式的测试与认 证解决方案；(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量），认证遇...
点击进入详情页
本回答由微测检测5.10提供
展开全部
VB6中的WebBrowser1只支持到IE7
追问
这个软件是以前写的一个小程序,向一指定网页中上传文件.前面还有几步操作,都在IE10中能正常使用,运行到去单击(click)一个框架中的标签就出错了,程序在WIN7下能正常使用,但如果把IE升级到IE10,运行到去点框架中的标签就会出错!!!!!!!!!!!!!!!!!!!!
追答
VB6中的WebBrowser1只支持到IE7
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
