Webブラウザに関していくつか質問があります (ID:143461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あるサイトでこのようなコードを見つけました。 Public Class NetBrowser Dim WebBrowsers() As WebBrowser Dim TabCtrl As TabControl Dim TabPages() As TabPage Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized 'フォームの最大化 TabCtrl = New TabControl '新しくTabControlを作成 TabCtrl.Parent = Me '作成したTabControlをフォームに配置 TabCtrl.Dock = DockStyle.Fill 'TabControlをフォーム全体にドッキング ReDim WebBrowsers(0) '新しくWebBorwserコントロールを宣言 ReDim TabPages(0) '新しくTabPageコントロールを宣言 WebBrowsers(0) = New WebBrowser 'WebBorwserコントロールを作成 TabPages(0) = New TabPage 'TabPageコントロールを作成 TabCtrl.Controls.Add(TabPages(0)) '作成したTabPageをTabControlに配置 WebBrowsers(0).Dock = DockStyle.Fill 'WebBorwserコントロールをタブページ全体にドッキング AddHandler WebBrowsers(0).NewWindow, AddressOf WebBrowsers_NewWindow '作成したWebBrowserコントロールのNewWindowイベントプロシージャをWebBrowsers_NewWindowに設定 WebBrowsers(0).Parent = TabPages(0) '作成したWebBrowserコントロールを、作成したTabPageへ配置 WebBrowsers(0).Navigate("http://www.google.co.jp/") 'URLを表示 TabPages(0).Text = "http://www.google.co.jp/" 'TabPageのテキストに現在のアドレスを表示 ToolStripTextBox1.Text = ("http://www.google.co.jp/") End Sub Private Sub WebBrowsers_NewWindow(sender As Object, e As System.ComponentModel.CancelEventArgs) Dim c As Integer = WebBrowsers.Length '現在のTabの数 Dim Href As String = CType(sender, WebBrowser).Document.ActiveElement.GetAttribute("href") '移動先のＵＲＬ e.Cancel = True '新しいウインドウの生成をキャンセルする ReDim Preserve WebBrowsers(c) 'WebBorwsersとTabPageのインデックスを一つ増やす ReDim Preserve TabPages(c) WebBrowsers(c) = New WebBrowser '新しくWebBrowserコントロールを配置 TabPages(c) = New TabPage '新しくTabPageコントロールを配置 WebBrowsers(c).Dock = DockStyle.Fill '配置したWebBrowserコントロールを、TabPage全体にドッキング AddHandler WebBrowsers(c).NewWindow, AddressOf WebBrowsers_NewWindow '作成したWebBrowserコントロールのNewWindowイベントプロシージャをWebBrowsers_NewWindowに設定 TabCtrl.Controls.Add(TabPages(c)) '作成したTabPageを、TabControlに配置 WebBrowsers(c).Parent = TabPages(c) '作成したWebBrowserコントロールを、作成したTabPageに配置 TabCtrl.SelectedIndex = c '作成したtabPageをアクティブにする WebBrowsers(c).Navigate(Href) '新しいタブに表示されたWebBrowserコントロールの表示アドレスを、Hrefに変更する TabPages(c).Text = If(Href.Length > 24, Href.Substring(0, 21) & "...", Href) 'タブページのタイトルを変更 ToolStripTextBox1.Text = Href End Sub これに、 ・DocumentCompleated時にイベントを発生させる ・TextBoxにURLを入力し、Buttonを押すとページが開く 機能を追加したいです どなたか教えてください