[]
[我要回覆]
|
|||||
|
|||||
樓主 林明隆 
 發送站內信 |
我將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
|
||||
0
1
33
1
