VB.Netのお勉強



WebBrowserコントロール＠VB.Net

WebBrowserを利用します。
Webページをフォームに表示することができます。

フォームに、WebBrowserとTextBox、Buttonを配置します。
フォームロード時に、NavigateにてWebページを表示します。

Buttonを押した時に、TextBoxの値を元に、
Webページを表示する処理を記述します。

また、WebBrowserのDocumentCompletedをHandleし、
Webページのロードが完了したら、
移動したURLをテキストボックスに表示します。


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim url As String = "http://www.google.co.jp"

        Me.WebBrowser1.Navigate(url)
        Me.TextBox1.Text = url

End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.WebBrowser1.Navigate(Me.TextBox1.Text)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Me.TextBox1.Text = Me.WebBrowser1.Url.ToString()
    End Sub
End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.