如何在Vb.net应用程序中打开新的Webbrowser选项卡
我有一个带有如何在Vb.net应用程序中打开新的Webbrowser选项卡,vb.net,webbrowser-control,tabcontrol,Vb.net,Webbrowser Control,Tabcontrol,我有一个带有按钮1的表单1和一个网络浏览器1。当我点击按钮1时,我想以相同的形式打开一个新的web浏览器选项卡,而不是在Firefox、Internet Explorer或Chrome中 我试过使用TabControl,但不确定它是如何工作的,因为它不会调整大小,而且有点烦人。我只想在表单中使用web浏览器打开一个新选项卡 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handle
按钮1的表单1
和一个网络浏览器1
。当我点击按钮1
时,我想以相同的形式打开一个新的web浏览器选项卡,而不是在Firefox、Internet Explorer或Chrome中
我试过使用TabControl,但不确定它是如何工作的,因为它不会调整大小,而且有点烦人。我只想在表单中使用web浏览器打开一个新选项卡
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim wb As New WebBrowser
wb.Navigate("www.google.com")
Dim tab As New TabPage("Title")
tab.Controls.Add(wb)
TabControl1.TabPages.Add(tab)
TabControl1.SelectedTab = tab
tab.Size = New System.Drawing.Size(280, 174)
End Sub
End Class
要添加新的选项卡式浏览器,首先需要在现有的选项卡控件中添加新的选项卡,
添加新的选项卡后,您需要在创建的选项卡中添加新的浏览器控件
Private Sub btnAddTab_Click(sender As Object, e As EventArgs)
Dim page As New TabPage(String.Format("Tab # {0}", tabControl1.TabPages.Count + 1))
tabControl1.TabPages.Add(page)
Dim browser As New WebBrowser()
page.Controls.Add(browser)
browser.Dock = DockStyle.Fill
browser.Navigate(New Uri("http://www.google.co.in"))
End Sub
要添加新的选项卡式浏览器,首先需要在现有的选项卡控件中添加新的选项卡,
添加新的选项卡后,您需要在创建的选项卡中添加新的浏览器控件
Private Sub btnAddTab_Click(sender As Object, e As EventArgs)
Dim page As New TabPage(String.Format("Tab # {0}", tabControl1.TabPages.Count + 1))
tabControl1.TabPages.Add(page)
Dim browser As New WebBrowser()
page.Controls.Add(browser)
browser.Dock = DockStyle.Fill
browser.Navigate(New Uri("http://www.google.co.in"))
End Sub
创建自己的选项卡页面
,以便轻松处理事件和控件:
Public Class WBTab
Inherits TabPage 'it actually is a tabpage
Public WithEvents WB As New WebBrowser 'that has a single webbrowser in it
Sub New(ByVal URL As String) 'when the page is created, show it and load the URL
WB.Dock = DockStyle.Fill
Me.Controls.Add(WB)
WB.Navigate(URL)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
Me.Text = WB.DocumentTitle 'when the page is loaded you may now show its title in your tab.
End Sub
Private Sub WB_Navigating(sender As Object, e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB.Navigating
Me.Text = e.Url.ToString
End Sub
End Class
现在可以使用了:
Dim google As New WBTab("google.com") 'create a new tab with URL
TabControl1.TabPages.Add(google) 'show it
创建自己的选项卡页面
,以便轻松处理事件和控件:
Public Class WBTab
Inherits TabPage 'it actually is a tabpage
Public WithEvents WB As New WebBrowser 'that has a single webbrowser in it
Sub New(ByVal URL As String) 'when the page is created, show it and load the URL
WB.Dock = DockStyle.Fill
Me.Controls.Add(WB)
WB.Navigate(URL)
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
Me.Text = WB.DocumentTitle 'when the page is loaded you may now show its title in your tab.
End Sub
Private Sub WB_Navigating(sender As Object, e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB.Navigating
Me.Text = e.Url.ToString
End Sub
End Class
现在可以使用了:
Dim google As New WBTab("google.com") 'create a new tab with URL
TabControl1.TabPages.Add(google) 'show it
这应该起作用:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim tabpage As New TabPage
tabpage.Text = "New Tab"
TabControl1.TabPages.Add(tabpage)
Dim webBrowser As New WebBrowser
TabControl1.SelectedTab = tabpage
tabpage.Controls.Add(webBrowser)
webBrowser.Dock = DockStyle.Fill
webBrowser.Navigate("http://www.stackoverflow.com")
End Sub
这应该起作用:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim tabpage As New TabPage
tabpage.Text = "New Tab"
TabControl1.TabPages.Add(tabpage)
Dim webBrowser As New WebBrowser
TabControl1.SelectedTab = tabpage
tabpage.Controls.Add(webBrowser)
webBrowser.Dock = DockStyle.Fill
webBrowser.Navigate("http://www.stackoverflow.com")
End Sub
用鼠标标记代码,然后单击{}
工具栏图标以正确设置其格式。您提供的代码中没有一个是小的选项卡,我希望它适合整个表单。用鼠标标记代码,然后单击{}
工具栏图标以正确设置格式。你们提供的代码中没有一个是有效的。选项卡显示得很小,我希望它适合整个表单。