1.需要引用 Microsoft Internet Controls。
2.工程配置中，“删除有关未使用的 ActiveX 控件的信息” 不能勾选。
3.具体代码如下
Option Explicit
Private WithEvents MyWebBrowser As WebBrowser
Private Sub Command1_Click() '创建
Set MyWebBrowser = Me.Controls.Add("SHELL.EXPLORER.2", "MyWebBrowser", Me)
MyWebBrowser.Visible = True
MyWebBrowser.Move 0, 0, 8000, 3000
MyWebBrowser.Navigate "http://www.cppblog.com/zezese"
End Sub
Private Sub Command2_Click() '移除
Me.Controls.Remove "MyWebBrowser"
End Sub
posted on 2012-02-07 14:19
张志松 阅读(484)
评论(0) 编辑 收藏 引用 所属分类:
VB/VBS