webbrowser 原窗口打开页面代码

(2011-11-17 22:07:06)

转载▼

标签： 杂谈

分类： vb控件

webbrowser原窗口打开页面代码

 

Dim WithEvents Web_V1 AsSHDocVwCtl.WebBrowser_V1

PrivateSub Form_Load()
    Set Web_V1 =WebBrowser1.Object
End Sub
   
PrivateSub Web_V1_NewWindow(ByVal URL AsString, ByVal Flags AsLong,ByVal TargetFrameName AsString, PostData As Variant, ByVal HeadersAsString, Processed AsBoolean)
    Processed=True
   WebBrowser1.Navigate URL
End Sub

’在vb6.0中，用通用 部分编写代码