Подскажите как правильно написать, при нажатии по ссылке (которая открывает новое окно) создавалась новая вкладка и webbrowser1.
Private Sub web_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles web.NewWindow
e.Cancel = True
Dim nTab As New TabPage
Dim stext As String
stext = Me.web.StatusText
Dim web As New WebBrowser
nTab.Text = stext
tab.TabPages.Add(nTab)
tab.SelectTab(tab.TabCount - 1)
nTab.Controls.Add(web)
web.Location = web.Location
web.Size = nTab.Size
web.Navigate(stext)
End Sub
это работает но не так как надо :(
а именно если есть вторая ссылка на новое окно, то почему то открывает експлорер а не создает новую вкладку
Ответить
|