WebBrowser

質問

言語はVB2010です。
WebBrowser1に表示しているページのタイトルをフォームのタイトルバーに表示して、リアルタイムでタイトルが変わるようにしたいです。

回答No.1

田中 裕之（@bybalsendercase） · ベストアンサー

こんにちは

htmlを読み込が完了したら、<title>のInnerTextをフォームのタイトルにするサンプルです。

Public Class Form1
Private Sub f() Handles MyBase.Shown
WebBrowser1.Navigate("http://okwave.jp/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'読み込むURLが違う場合はプロシージャを抜ける
If sender.url.ToString <> e.Url.ToString Then
Exit Sub
End If
'<title>のInnerTextをフォームのタイトルにする
For Each htm As HtmlElement In WebBrowser1.Document.GetElementsByTagName("title")
Me.Text = htm.InnerText
Next
End Sub
End Class

お礼

出来ました！
ありがとうございました！