亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

關于vbs WebBrowser導航問題

 更新時間：2008年05月23日 19:19:54   作者：  
1、如何確定打開的新窗口的URL 2、如何使新窗口不彈出而是在原來頁面中顯示
實際上屬于轉貼。。呵呵:-)
原始文章來自微軟，微軟么，是大家的微軟嘛！所以稍微修改了一下，帖到這里。
原文的中文地址是：
http://support.microsoft.com/kb/185538/zh-cn
實際上，這個實現(xiàn)就是獲取一個接口，還是叫事件吧。。。。更明顯，反正我是分不清這些東西的。
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

163的鏈接一般都是彈出窗口，就用163吧

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub

如果你想知道彈出窗口的URL呢，那就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = False
MsgBox URL

End Sub

如果你想讓彈出窗口在原來的窗體里顯示呢，就

Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)

Processed = True
WebBrowser1.Navigate URL
End Sub

相關文章

最新評論