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を押すとページが開く

機能を追加したいです

どなたか教えてください

←解決時は質問者本人がここをチェックしてください。

戻る