1,486
社区成员
发帖
与我相关
我的任务
分享
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate ("www.baidu.com")
Dim webIE As WebBrowser
Set webIE = Me.Controls.Add("VB.WebBrowser", "webIE")
With webIE
.Width = frmInternet.ScaleWidth
.Height = frmInternet.ScaleHeight
.Visible = True
End With
webIE.Navigate ("www.baidu.com")