台灣最大程式設計社群網站
線上人數
1594
 
會員總數:246276
討論主題:189810
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何指定web browser 的target視窗
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何指定web browser 的target視窗
價值 : 50 QP  點閱數:1330 回應數:0
樓主

林明隆
門外漢
0 1
33 1
發送站內信

想請教
我將form1 設為無框 且 嵌入index.htm
所以整個頁面就是由htm控制連結
在這頁面上有許多連結按鈕 我希望都顯示在form2
作為唯一的目標視窗

應該要怎樣讓 form1知道目標為form2
且讓form2顯示所有來自form1的連結指令?
Public Class Form1
Friend WithEvents WB As New WebBrowser '我將index.htm置入form1並使用htm的按鈕使所有頁面都顯示在form2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim form2 As New Form2
Me.Controls.Add(WB)
WB.Location = New Point(0, 30)
WB.Size = New Size(286, 490)
WB.ScrollBarsEnabled = False
WB.Navigate("C:\mspc\indexXP.htm") '設index.htm為首頁

End Sub

Private Sub wb_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WB.NewWindow
Dim link As HtmlElement = WB.Document.ActiveElement
Dim target As String = link.GetAttribute("href")
Form2.Show()
e.Cancel = True
End Sub
============================================================================================================
以下為form2:

Public Class Form2
Friend WithEvents WB2 As New WebBrowser
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Controls.Add(WB2)
WB2.Location = New Point(5, 40)
WB2.Size = New Size(900, 700)
WB2.ScrollBarsEnabled = False
WB2.Navigate("target") '我希望form1可以認識這位置是target.但是顯然form2沒收到指令,我用任何網址替代括弧內target自混正常顯示

End Sub

Private Sub wb2_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WB2.NewWindow
Dim link As HtmlElement = WB2.Document.ActiveElement
Dim target As String = link.GetAttribute("href")
e.Cancel = True
End Sub
============================================
搞不清楚哪娷_掉 請高手指點 謝謝

本篇文章發表於2014-04-15 07:50
目前尚無任何回覆
   

回覆
如要回應,請先登入.