怎么通过代码定义webbrowser控件

如何通过代码定义webbrowser控件？
在VBA中，我想通过代码定义一个WebBrowser控件。

VB code

dim WebBrowser1 as WebBrowser

当使用以下代码调用时，

VB code

WebBrowser1.navigate HhcFilename

总是报“对象变量或者With块变量未设置”的错误，其中hhcfilename的值为“c:\……\content.hhc”
而通过工具栏添加这个控件时就没有这样的错误？为什么？

[解决办法]

VB code

'工程--部件--添加Microsoft Internet Contols到工具栏'工程--属性--生成--去掉“删除有关未使用的ActiveX控件的信息”前的对勾Private Sub Form_Load()    Dim WebBrowser1 As WebBrowser    Set WebBrowser1 = Controls.Add("shell.explorer.2", "WebBrowser1", Me)    WebBrowser1.Move 0, 0, 3000, 1500    WebBrowser1.Visible = True    WebBrowser1.Navigate "http://www.baidu.com"End Sub
[解决办法]
探讨

引用:
VB code

'工程--部件--添加Microsoft Internet Contols到工具栏
'工程--属性--生成--去掉“删除有关未使用的ActiveX控件的信息”前的对勾
Private Sub Form_Load()
Dim WebBrowser1 As WebBrowser
Set WebBrowser1 = Cont……

[解决办法]
建议看看这个著名的Ｗebbrowser控件的高级封装：
http://www.mvps.org/emorcillo/download/vb6/ctl_wb.msi
Custom WebBrowser control
  Go 

 

查看更多 下一篇