ユーザーコントロールの作成

Imports System.Windows.Forms

Public Class MyWebBrowser
    Inherits System.Windows.Forms.WebBrowser
    Public Event UrlChanged(ByVal sender As Object, ByVal e As EventArgs)
    'Dim blnLoad As Boolean 'FormLoadの判断

    ''' <summary>
    ''' Urlプロパティは、WebBrowserコントロールにとって既に定義されているプロパティです
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Shadows Property Url() As System.Uri
        'Overloads Property Url() As System.Uri
        ' シャドウ(Shadows)とオーバーロード(Overloads)の説明は資料を参考して下さい
        Get
            Return MyBase.Url
        End Get
        Set(ByVal value As System.Uri)
            'If blnLoad Then
            MyBase.Url = value
            RaiseEvent UrlChanged(Me, New EventArgs)
            'Else
            '    MyBase.Url = value
            'End If
            'blnLoad = True
        End Set

    End Property

End Class

==================================================================================

Public Class Form1
    Private blnClick As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'MyWebBrowserコントロールのUrlの転換
        If blnClick Then
            Me.MyWebBrowser1.Url = New Uri("http://www.baidu.com/")
            blnClick = False
        Else
            Me.MyWebBrowser1.Url = New Uri("http://www.google.com/")
            blnClick = True
        End If

    End Sub

    'ユーザーコントロールを使用して、ユーザーで定義したイベントを使用します。
    Private Sub MyWebBrowser1_UrlChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyWebBrowser1.UrlChanged
        MsgBox("イベントを発生しました")

    End Sub
End Class